tests/testthat/test-function-runInDirectory.R

test_that("runInDirectory() works", {
  
  path <- system.file(package = "kwb.utils")

  expect_identical(runInDirectory(path, dir), dir(path))
  expect_output(runInDirectory(path, dir, .dbg = TRUE))
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.