tests/testthat/test-function-read_path_information.R

test_that("read_path_information() works", {

  f <- kwb.fakin:::read_path_information

  expect_error(f())

  expect_message(f(file_info_dir = system.file(package = "kwb.fakin")))

  f(kwb.fakin:::extdata_file(""), pattern = "^example_file_info")
})
KWB-R/kwb.fakin documentation built on June 14, 2022, 2 p.m.