update sas/spss/stata tests for new attrs

tidyverse · Sep 9, 2023 · 356848d · 356848d
1 parent 7997072
commit 356848d
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 0 deletions.
diff --git a/tests/testthat/test-haven-sas.R b/tests/testthat/test-haven-sas.R
@@ -217,6 +217,9 @@ test_that("can roundtrip format attribute", {
     e = structure(100.12345, format.sas = "COMMA10.3")
   )
 
+  attr(df, "creation_timestamp") <- as.integer(Sys.time())
+  attr(df, "modified_timestamp") <- as.integer(Sys.time())
+
   path <- tempfile()
 
   write_xpt(df, path)

diff --git a/tests/testthat/test-haven-spss.R b/tests/testthat/test-haven-spss.R
@@ -420,6 +420,9 @@ test_that("works with empty factors", {
 
 test_that("all compression types roundtrip successfully", {
   df <- tibble::tibble(x = 1:10)
+  attr(df, "encoding") <- "UTF-8"
+  attr(df, "creation_timestamp") <- as.integer(Sys.time())
+  attr(df, "modified_timestamp") <- as.integer(Sys.time())
   expect_equal(roundtrip_sav(df, compress = "byte"), df)
   expect_equal(roundtrip_sav(df, compress = "none"), df)
   expect_equal(roundtrip_sav(df, compress = "zsav"), df)

diff --git a/tests/testthat/test-haven-stata.R b/tests/testthat/test-haven-stata.R
@@ -207,6 +207,10 @@ test_that("supports stata version 15", {
 
   df2$x <- as_factor(df2$x)
   df2$y <- zap_formats(df2$y)
+
+  attr(df, "creation_timestamp") <- as.integer(Sys.time())
+  attr(df, "modified_timestamp") <- as.integer(Sys.time())
+
   expect_equal(df2, df)
 })