From ca019c903d470f3a3e6a6b21a511e336812e18dd Mon Sep 17 00:00:00 2001 From: chainsawriot Date: Wed, 15 May 2024 00:44:44 +0200 Subject: [PATCH] Add `trust` to tests fix #414 (#416) --- tests/testthat/test_format_R.R | 4 ++-- tests/testthat/test_format_rdata.R | 24 ++++++++++++------------ tests/testthat/test_format_rds.R | 6 +++--- tests/testthat/test_identical.R | 8 ++++---- tests/testthat/test_import_list.R | 18 +++++++++--------- 5 files changed, 30 insertions(+), 30 deletions(-) diff --git a/tests/testthat/test_format_R.R b/tests/testthat/test_format_R.R index bb6eee1..0dea867 100644 --- a/tests/testthat/test_format_R.R +++ b/tests/testthat/test_format_R.R @@ -4,12 +4,12 @@ test_that("Export / Import to .R dump file", { withr::with_tempfile("iris_file", fileext = ".R", code = { export(iris, iris_file) expect_true(file.exists(iris_file)) - expect_true(is.data.frame(import(iris_file))) + expect_true(is.data.frame(import(iris_file, trust = TRUE))) }) withr::with_tempfile("iris_file", fileext = ".dump", code = { export(iris, iris_file) expect_true(file.exists(iris_file)) - expect_true(is.data.frame(import(iris_file))) + expect_true(is.data.frame(import(iris_file, trust = TRUE))) }) }) diff --git a/tests/testthat/test_format_rdata.R b/tests/testthat/test_format_rdata.R index 4a9ea5e..408c303 100644 --- a/tests/testthat/test_format_rdata.R +++ b/tests/testthat/test_format_rdata.R @@ -3,8 +3,8 @@ test_that("Export to and import from Rdata", { ## data frame export(iris, iris_file) expect_true(file.exists(iris_file)) - expect_true(is.data.frame(import(iris_file))) - expect_true(is.data.frame(import(iris_file, which = 1))) + expect_true(is.data.frame(import(iris_file, trust = TRUE))) + expect_true(is.data.frame(import(iris_file, which = 1, trust = TRUE))) }) withr::with_tempfile("iris_file", fileext = ".Rdata", code = { ## environment @@ -12,15 +12,15 @@ test_that("Export to and import from Rdata", { e$iris <- iris export(e, iris_file) expect_true(file.exists(iris_file)) - expect_true(is.data.frame(import(iris_file))) - expect_true(is.data.frame(import(iris_file, which = 1))) + expect_true(is.data.frame(import(iris_file, trust = TRUE))) + expect_true(is.data.frame(import(iris_file, which = 1, trust = TRUE))) }) withr::with_tempfile("iris_file", fileext = ".Rdata", code = { ## character export("iris", iris_file) expect_true(file.exists(iris_file)) - expect_true(is.data.frame(import(iris_file))) - expect_true(is.data.frame(import(iris_file, which = 1))) + expect_true(is.data.frame(import(iris_file, trust = TRUE))) + expect_true(is.data.frame(import(iris_file, which = 1, trust = TRUE))) }) withr::with_tempfile("iris_file", fileext = ".Rdata", code = { ## expect error otherwise @@ -33,8 +33,8 @@ test_that("Export to and import from rda", { ## data frame export(iris, iris_file) expect_true(file.exists(iris_file)) - expect_true(is.data.frame(import(iris_file))) - expect_true(is.data.frame(import(iris_file, which = 1))) + expect_true(is.data.frame(import(iris_file, trust = TRUE))) + expect_true(is.data.frame(import(iris_file, which = 1, trust = TRUE))) }) withr::with_tempfile("iris_file", fileext = ".rda", code = { ## environment @@ -42,15 +42,15 @@ test_that("Export to and import from rda", { e$iris <- iris export(e, iris_file) expect_true(file.exists(iris_file)) - expect_true(is.data.frame(import(iris_file))) - expect_true(is.data.frame(import(iris_file, which = 1))) + expect_true(is.data.frame(import(iris_file, trust = TRUE))) + expect_true(is.data.frame(import(iris_file, which = 1, trust = TRUE))) }) withr::with_tempfile("iris_file", fileext = ".rda", code = { ## character export("iris", iris_file) expect_true(file.exists(iris_file)) - expect_true(is.data.frame(import(iris_file))) - expect_true(is.data.frame(import(iris_file, which = 1))) + expect_true(is.data.frame(import(iris_file, trust = TRUE))) + expect_true(is.data.frame(import(iris_file, which = 1, trust = TRUE))) }) withr::with_tempfile("iris_file", fileext = ".rda", code = { ## expect error otherwise diff --git a/tests/testthat/test_format_rds.R b/tests/testthat/test_format_rds.R index 545786f..7cf3d77 100644 --- a/tests/testthat/test_format_rds.R +++ b/tests/testthat/test_format_rds.R @@ -2,7 +2,7 @@ test_that("Export to and import from rds", { withr::with_tempfile("iris_file", fileext = ".rds", code = { export(iris, iris_file) expect_true(file.exists(iris_file)) - expect_true(is.data.frame(import(iris_file))) + expect_true(is.data.frame(import(iris_file, trust = TRUE))) }) }) @@ -10,7 +10,7 @@ test_that("Export to rds (non-data frame)", { withr::with_tempfile("list_file", fileext = ".rds", code = { export(list(1:10, letters), list_file) expect_true(file.exists(list_file)) - expect_true(inherits(import(list_file), "list")) - expect_true(length(import(list_file)) == 2L) + expect_true(inherits(import(list_file, trust = TRUE), "list")) + expect_true(length(import(list_file, trust = TRUE)) == 2L) }) }) diff --git a/tests/testthat/test_identical.R b/tests/testthat/test_identical.R index efed756..4522d36 100644 --- a/tests/testthat/test_identical.R +++ b/tests/testthat/test_identical.R @@ -8,10 +8,10 @@ test_that("Data identical (text formats)", { test_that("Data identical (R formats)", { withr::with_tempdir(code = { - expect_equivalent(import(export(mtcars, "mtcars.rds")), mtcars) - expect_equivalent(import(export(mtcars, "mtcars.R")), mtcars) - expect_equivalent(import(export(mtcars, "mtcars.RData")), mtcars) - expect_equivalent(import(export(mtcars, "mtcars.R", format = "dump")), mtcars) + expect_equivalent(import(export(mtcars, "mtcars.rds"), trust = TRUE), mtcars) + expect_equivalent(import(export(mtcars, "mtcars.R"), trust = TRUE), mtcars) + expect_equivalent(import(export(mtcars, "mtcars.RData"), trust = TRUE), mtcars) + expect_equivalent(import(export(mtcars, "mtcars.R", format = "dump"), trust = TRUE), mtcars) }) }) diff --git a/tests/testthat/test_import_list.R b/tests/testthat/test_import_list.R index e9e51b2..a44d17d 100644 --- a/tests/testthat/test_import_list.R +++ b/tests/testthat/test_import_list.R @@ -1,9 +1,9 @@ test_that("Data identical (import_list)", { withr::with_tempfile("mtcars_file", fileext = ".rds", code = { export(mtcars, mtcars_file) - expect_equivalent(import_list(rep(mtcars_file, 2)), list(mtcars, mtcars)) + expect_equivalent(import_list(rep(mtcars_file, 2), trust = TRUE), list(mtcars, mtcars)) mdat <- rbind(mtcars, mtcars) - dat <- import_list(rep(mtcars_file, 2), rbind = TRUE) + dat <- import_list(rep(mtcars_file, 2), rbind = TRUE, trust = TRUE) expect_true(ncol(dat) == ncol(mdat) + 1) expect_true(nrow(dat) == nrow(mdat)) expect_true("_file" %in% names(dat)) @@ -13,7 +13,7 @@ test_that("Data identical (import_list)", { test_that("Import multi-object .Rdata in import_list()", { withr::with_tempfile("rdata_file", fileext = ".rdata", code = { export(list(mtcars = mtcars, iris = iris), rdata_file) - dat <- import_list(rdata_file) + dat <- import_list(rdata_file, trust = TRUE) expect_true(identical(dat[[1]], mtcars)) expect_true(identical(dat[[2]], iris)) }) @@ -57,7 +57,7 @@ test_that("import_list() preserves 'which' names when specified", { test_that("Import single file via import_list()", { withr::with_tempfile("data_file", fileext = ".rds", code = { export(mtcars, data_file) - expect_true(identical(import_list(data_file, rbind = TRUE), mtcars)) + expect_true(identical(import_list(data_file, rbind = TRUE, trust = TRUE), mtcars)) }) }) @@ -74,9 +74,9 @@ test_that("Import single file from zip via import_list()", { test_that("Using setclass in import_list()", { withr::with_tempfile("data_file", fileext = ".rds", code = { export(mtcars, data_file) - dat1 <- import_list(rep(data_file, 2), setclass = "data.table", rbind = TRUE) + dat1 <- import_list(rep(data_file, 2), setclass = "data.table", rbind = TRUE, trust = TRUE) expect_true(inherits(dat1, "data.table")) - dat2 <- import_list(rep(data_file, 2), setclass = "tbl", rbind = TRUE) + dat2 <- import_list(rep(data_file, 2), setclass = "tbl", rbind = TRUE, trust = TRUE) expect_true(inherits(dat2, "tbl")) }) }) @@ -157,7 +157,7 @@ test_that("Informative message when files are not found #389", { export(mtcars, mtcars_file) expect_true(file.exists(mtcars_file)) expect_false(file.exists("nonexisting.rds")) - expect_warning(import_list(c(mtcars_file, "nonexisting.rds")), "^Import failed for nonexisting") + expect_warning(import_list(c(mtcars_file, "nonexisting.rds"), trust = TRUE), "^Import failed for nonexisting") }) }) @@ -167,8 +167,8 @@ test_that("Missing files and rbind", { expect_true(file.exists(mtcars_file)) expect_false(file.exists("nonexisting.rds")) expect_false(file.exists("nonexisting2.rds")) - expect_warning(x <- import_list(c(mtcars_file, "nonexisting.rds"), rbind = TRUE), "^Import failed for nonexisting") + expect_warning(x <- import_list(c(mtcars_file, "nonexisting.rds"), rbind = TRUE, trust = TRUE), "^Import failed for nonexisting") expect_true(is.data.frame(x)) - expect_warning(x <- import_list(c("nonexisting.rds", "nonexisting2.rds"), rbind = TRUE), "^Import failed for nonexisting") + expect_warning(x <- import_list(c("nonexisting.rds", "nonexisting2.rds"), rbind = TRUE, trust = TRUE), "^Import failed for nonexisting") }) })