tests/testthat/test-write.R

context("write")

test_that("write", {
  objects <- list(mtcars = datasets::mtcars, chickwts = datasets::chickwts)  
  dir <- tempdir()
  
  expect_identical(write_files(named_list(), dir), character(0))
  write_files(objects, dir)
})
poissonconsulting/filer documentation built on Feb. 17, 2021, 3:26 a.m.