tests/testthat/test-tempdir.R

test_that("clean needs to be a single logical", {
  expect_error(with_tempdir(clean = "sparkling"), "TRUE or FALSE")
  expect_error(with_tempdir(clean = c(TRUE, FALSE)), "TRUE or FALSE")
})

test_that("tempdir cleans up after itself", {
  tmp <- with_tempdir(getwd())
  expect_false(file.exists(tmp))
})

test_that("tempdir will leave the directory alone if clean = FALSE", {
  tmp <- with_tempdir({
    cat("x\n", file = "hello.txt")
    getwd()
  }, clean = FALSE)

  expect_equal(readLines(file.path(tmp, "hello.txt")), "x")
})

test_that("local_tempdir cleans up after itself", {
  dir <- character()
  local({
    dir <<- local_tempdir()
    expect_true(dir.exists(dir))
  })
  expect_false(dir.exists(dir))
})

test_that("local_tempdir leaves the directory if `clean = FALSE`", {
  dir <- character()
  local({
    dir <<- local_tempdir(clean = FALSE)
    expect_true(dir.exists(dir))
  })
  expect_true(dir.exists(dir))

  unlink(dir, recursive = TRUE)
})

Try the withr package in your browser

Any scripts or data that you put into this service are public.

withr documentation built on March 18, 2022, 7:47 p.m.