tests/testthat/test-function-is_valid_path_file.R

test_that("is_valid_path_file() works", {

  f <- fakin.path.app:::is_valid_path_file

  expect_error(f())

  f(structure(
    list(paths = TRUE, forbidden = TRUE),
    file = "my-file",
    first_rows = c("row-1", "row-2")
  ))
})
KWB-R/fakin.path.app documentation built on Nov. 25, 2020, 10:20 p.m.