From 63f0be2d314775ca21dc57eaa2fcb50ad5b32aaf Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?M=C3=A5ns=20Magnusson?= Date: Sun, 7 Jun 2015 20:38:54 +0200 Subject: [PATCH] Updated testsuite to handle classes not possible to coerce to pin --- tests/testthat/test-as.pin.R | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/tests/testthat/test-as.pin.R b/tests/testthat/test-as.pin.R index 6be401a..236cf37 100755 --- 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))) }) + +