fix test

easystats · Jun 20, 2023 · fcc8687 · fcc8687
1 parent 594c179
commit fcc8687
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/tests/testthat/test-data_write.R b/tests/testthat/test-data_write.R
@@ -43,11 +43,13 @@ test_that("data_write, SPSS, mixed types of labelled vectors", {
     stringsAsFactors = FALSE
   )
 
+  # Date and Logical cannot be labelled
   d$a <- assign_labels(d$a, variable = "First", values = c("one", "two", "three"))
   d$b <- assign_labels(d$b, variable = "Second", values = c("A", "B", "C"))
   d$c <- assign_labels(d$c, variable = "Third", values = c("ey", "bee", "see"))
 
-  expect_silent(data_write(d, tmp))
+  # expect message, but no error
+  expect_message(data_write(d, "test.sav"), regex = "Preparing")
 })