tests/testthat/test-function-listFiles.R

#library(testthat)
test_that("listFiles() works", {

  f <- kwb.utils:::listFiles

  expect_message(expect_is(f(), "data.frame"))
  expect_silent(f(silent = TRUE))
  expect_silent(f(path = character(), silent = TRUE))
  
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.