tests

tests/testthat/test-cloc.R

@@ -1,6 +1,11 @@
-context("basic functionality")
-test_that("we can do something", {
+context("cloc works")
+test_that("core bits are functioning as expected", {
 
-  #expect_that(some_function(), is_a("data.frame"))
+  res <- cloc(system.file("extdata", "App.java", package="cloc"))
+
+  expect_equal(res$file_count[1], 1)
+  expect_equal(res$loc[1], 8)
+  expect_equal(res$blank_lines[1], 1)
+  expect_equal(res$comment_lines[1], 4)
 
 })