tests/testthat/test-function-get_file_property_names.R

test_that("get_file_property_names() works", {

  f <- kwb.fakin:::get_file_property_names

  expect_is(f(), "character")
  expect_true(all(grepl("System", f())))
})
KWB-R/kwb.fakin documentation built on June 14, 2022, 2 p.m.