fixed a test on guessType

mllg · Mar 19, 2015 · cf057ff · cf057ff
1 parent 2a9836c
commit cf057ff
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test_guessType.r b/tests/testthat/test_guessType.r
@@ -22,5 +22,5 @@ test_that("guessType", {
   expect_true(grepl("matrix'$", checkLogical(xm)))
   expect_true(grepl("array'$", checkLogical(xa)))
   expect_true(grepl("frame'$", checkLogical(xf)))
-  expect_true(grepl("myclass'$", checkLogical(setClasses(1, "myclass"))))
+  x = 1; class(x) = "myclass"; expect_true(grepl("myclass'$", checkLogical(x)))
 })