tests/testthat/test_trust.R

In rio: A Swiss-Army Knife for Data I/O

test_that("Deprecation of untrusted dump", {
    withr::with_tempfile("iris_file", fileext = ".dump", code = {
      export(iris, iris_file)
      ## expect deprecation to work
      lifecycle::expect_deprecated(import(iris_file), regexp = "set to FALSE by default")
      ## expect false to error
      expect_error(import(iris_file, trust = FALSE))
  })
})

test_that("Deprecation of untrusted Rdata", {
    withr::with_tempfile("iris_file", fileext = ".Rdata", code = {
        export(iris, iris_file)
        ## expect deprecation to work
        lifecycle::expect_deprecated(import(iris_file), regexp = "set to FALSE by default")
        ## expect false to error
        expect_error(import(iris_file, trust = FALSE))
    })
})

test_that("Deprecation of untrusted rds", {
    withr::with_tempfile("iris_file", fileext = ".rds", code = {
      export(iris, iris_file)
      ## expect deprecation to work
      lifecycle::expect_deprecated(import(iris_file), regexp = "set to FALSE by default")
      ## expect false to error
      expect_error(import(iris_file, trust = FALSE))
  })
})

test_that("No deprecation warning if `trust` is explicit", {
    withr::with_tempfile("iris_file", fileext = ".rds", code = {
        export(iris, iris_file)
        expect_silent(import(iris_file, trust = TRUE))
        expect_error(import(iris_file, trust = FALSE)) ## no warning right?
    })
})

test_that("Undocumented feature, options", {
    withr::with_options(list(rio.import.trust = TRUE), {
        withr::with_tempfile("iris_file", fileext = ".rds", code = {
            export(iris, iris_file)
            expect_silent(import(iris_file))
            expect_error(import(iris_file), NA)
        })
    })
    withr::with_options(list(rio.import.trust = FALSE), {
        withr::with_tempfile("iris_file", fileext = ".rds", code = {
            export(iris, iris_file)
            expect_error(import(iris_file))
        })
    })
})

test_that("`trust` wont cause problems for other import methods", {
    withr::with_tempfile("iris_file", fileext = ".xlsx", code = {
        export(iris, iris_file)
        expect_silent(import(iris_file, trust = TRUE))
        expect_error(import(iris_file, trust = FALSE), NA)
    })
})

test_that("`trust` for import_list()", {
    withr::with_tempfile("iris_file", fileext = ".rdata", code = {
        export(iris, iris_file)
        lifecycle::expect_deprecated(import_list(iris_file), regexp = "set to FALSE by default")
        expect_silent(import_list(iris_file, trust = TRUE))
        expect_error(import_list(iris_file, trust = FALSE))

    })
})

test_that("`trust` wont cause problems for other formats in import_list", {
    withr::with_tempfile("data_file", fileext = ".xlsx", code = {
        export(list(a = mtcars, b = iris), data_file)
        expect_silent(import(data_file))
        expect_silent(import(data_file, trust = TRUE))
        expect_error(import(data_file, trust = FALSE), NA)
    })
})