tests/testthat/test-function-createDirAndReturnPath.R

test_that("createDirAndReturnPath() gives a warning", {
  
  targetdir <- file.path(tempdir(), basename(tempfile(pattern = "test")))
  
  expect_warning(createDirAndReturnPath(targetdir, dbg = FALSE))
  expect_output(path <- createDirectory(targetdir), "already exists")
  expect_identical(path, targetdir)
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.