Updated testsuite to handle classes not possible to coerce to pin

rOpenGov · Jun 7, 2015 · 63f0be2 · 63f0be2
1 parent 986ed3c
commit 63f0be2
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testthat/test-as.pin.R b/tests/testthat/test-as.pin.R
@@ -67,4 +67,9 @@ test_that(desc="error expected",{
   test_pin_res <- c(TRUE, rep(FALSE, 6))
   suppressWarnings(expect_equal(!is.na(as.pin(test_pin)), test_pin_res))
 
+  non_relevant_class <- lm(1:10~rep(1:5,2))
+  expect_error(as.pin(non_relevant_class))
+  expect_error(as.pin(c(TRUE,FALSE)))
 })
+
+