tests/testthat/test-write.R

test_that("save_as() works", {
  dir = tempdir()
  path = file.path(dir, "mtcars.rds")
  expect_output(save_as(mtcars, dir), path)
  expect_true(file.exists(path))
  expect_identical(readRDS(path), mtcars)
})
heavywatal/rwtl documentation built on April 29, 2024, 2:02 a.m.