tests/testthat/test-function-write_file_info.R

test_that("write_file_info() works", {

  f <- write_file_info

  expect_error(f())

  f(data.frame(path = "/a/b/c"), (file <- tempfile()))
  expect_true(file.exists(file))
})
KWB-R/fakin.path.app documentation built on Nov. 25, 2020, 10:20 p.m.