don't leave test.sav behind

easystats · Oct 6, 2023 · c37a80a · c37a80a
1 parent 4e7967b
commit c37a80a
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 2 deletions.
diff --git a/tests/testthat/_snaps/data_write.md b/tests/testthat/_snaps/data_write.md
@@ -0,0 +1,14 @@
+# data_write, SPSS, mixed types of labelled vectors
+
+    Code
+      data_write(d, "test.sav")
+    Message <simpleMessage>
+      Preparing data file: converting variable types.
+
+# data_write, existing variable label but missing value labels
+
+    Code
+      data_write(d, tmp)
+    Message <simpleMessage>
+      Preparing data file: converting variable types.
+
diff --git a/tests/testthat/test-data_write.R b/tests/testthat/test-data_write.R
@@ -49,7 +49,11 @@ test_that("data_write, SPSS, mixed types of labelled vectors", {
   d$c <- assign_labels(d$c, variable = "Third", values = c("ey", "bee", "see"))
 
   # expect message, but no error
-  expect_message(data_write(d, "test.sav"), regex = "Preparing")
+  skip_if_not_installed("withr")
+  withr::with_tempdir(code = {
+    expect_snapshot(data_write(d, "test.sav"))
+  })
+
 })
 
 
@@ -146,7 +150,7 @@ test_that("data_write, existing variable label but missing value labels", {
   )
   d$a <- assign_labels(d$a, variable = "First")
   # expect message, but no error
-  expect_message(data_write(d, tmp), regex = "Preparing")
+  expect_snapshot(data_write(d, tmp))
 
   # check if data is really the same
   d2 <- data_read(tmp)