packrat/lib/x86_64-w64-mingw32/3.4.3/withr/tests/testthat/test-tempfile.R

In UBC-MDS/Karl:

context("tempfile")

test_that("with_tempfile works", {

  f1 <- character()
  f2 <- character()

  with_tempfile("file1", {
    writeLines("foo", file1)
    expect_equal(readLines(file1), "foo")
    with_tempfile("file2", {
      writeLines("bar", file2)
      expect_equal(readLines(file1), "foo")
      expect_equal(readLines(file2), "bar")

      f2 <<- file2
    })
    expect_false(file.exists(f2))
    f1 <<- file1
  })
  expect_false(file.exists(f1))
})

test_that("local_tempfile works", {

  f1 <- character()
  f2 <- character()

  f <- function() {
    local_tempfile("file1")
    writeLines("foo", file1)
    expect_equal(readLines(file1), "foo")
    local_tempfile("file2")
    writeLines("bar", file2)
    expect_equal(readLines(file1), "foo")
    expect_equal(readLines(file2), "bar")
    f1 <<- file1
    f2 <<- file2
  }
  f()

  expect_false(file.exists(f1))
  expect_false(file.exists(f2))
})