Add test case

Displayr · Dec 12, 2022 · d4818a5 · d4818a5
1 parent 8a5eafb
commit d4818a5
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/inst/testdata/bad.haven.text.rds b/inst/testdata/bad.haven.text.rds
diff --git a/tests/testthat/test-mergedatasetsbycase.R b/tests/testthat/test-mergedatasetsbycase.R
@@ -1265,5 +1265,10 @@ test_that("DS-4002: works when file extension in upper case", {
                                                               match.by.variable.labels = FALSE), NA)
 })
 
+test_that("DS-4045 Don't fail on converting haven labeled text to date", {
+    bad.variable <- load(findInstDirFile("bad.haven.text.rds"))
+    expect_error(isParsableAsDateTime(bad.variable), NA)
+})
+
 if (file.exists("Combined data set.sav"))
     file.remove("Combined data set.sav")