diff --git a/tests/testthat/_snaps/archive.md b/tests/testthat/_snaps/archive.md index 9eab6e9f..6e010da0 100644 --- a/tests/testthat/_snaps/archive.md +++ b/tests/testthat/_snaps/archive.md @@ -2,7 +2,7 @@ Code res <- dumb_ex %>% as_epi_archive() - Condition + Condition Warning: Found rows that appear redundant based on last (version of each) observation carried forward; these rows have been removed to 'compactify' and save space: Key: diff --git a/tests/testthat/test-archive.R b/tests/testthat/test-archive.R index 1791d870..7bde9b46 100644 --- a/tests/testthat/test-archive.R +++ b/tests/testthat/test-archive.R @@ -55,7 +55,7 @@ dumb_ex <- data.frame( version = as.Date(c("2020-01-01", "2020-01-02")) ) test_that("new_epi_archive correctly detects and warns about compactification", { - expect_snapshot(res <- dumb_ex %>% as_epi_archive()) + expect_snapshot(res <- dumb_ex %>% as_epi_archive(), cnd_class = TRUE) }) test_that("other_keys can only contain names of the data.frame columns", {