tests/testthat/test-function-tempSubdirectory.R

test_that("tempSubdirectory() works", {
  
  y <- tempSubdirectory("abc")
  
  expect_is(y, "character")
  expect_true(file.exists(y))
  expect_identical(basename(y), "abc")
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.