read back and check

easystats · Sep 14, 2023 · 9dc9bd9 · 9dc9bd9
1 parent 510dc5a
commit 9dc9bd9
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/testthat/test-data_write.R b/tests/testthat/test-data_write.R
@@ -147,4 +147,8 @@ 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")
+
+  # check if data is really the same
+  d2 <- data_read(tmp)
+  expect_identical(d2, d)
 })