added some tests

mllg · May 8, 2015 · 57d8f83 · 57d8f83
1 parent 3504a07
commit 57d8f83
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/tests/testthat/test_anyMissing.r b/tests/testthat/test_anyMissing.r
@@ -63,6 +63,18 @@ test_that("allMissing", {
   expect_false(allMissing(xm))
   expect_false(allMissing(xf))
 
+  xb[] = xi[] = xd[] = xc[] = xm[] = xs = NA
+  xl = list(NULL, NULL)
+  xf$a = xf$b = NA
+
+  expect_true(allMissing(xb))
+  expect_true(allMissing(xi))
+  expect_true(allMissing(xd))
+  expect_true(allMissing(xc))
+  expect_true(allMissing(xs))
+  expect_true(allMissing(xl))
+  expect_true(allMissing(xm))
+  expect_true(allMissing(xf))
 
   expect_false(allMissing(as.raw(1)))
   expect_false(allMissing(NULL))

diff --git a/tests/testthat/test_checkInteger.r b/tests/testthat/test_checkInteger.r
@@ -17,6 +17,7 @@ test_that("checkInteger", {
   expect_false(testInteger(1:3, any.missing = FALSE, len = 5))
   expect_true(testInteger(1:3, lower = 1L, upper = 3L))
   expect_false(testInteger(1:3, lower = 5))
+  expect_false(testInteger(1:3, upper = 1))
 
   expect_error(assertInteger(1), "integer")
 })