Use withr; set CI="false"

Author: hadley

tests/testthat/test-parallel.R

@@ -60,8 +60,7 @@ test_that("fail", {
 
 test_that("snapshots", {
   withr::local_envvar(c(TESTTHAT_PARALLEL = "TRUE"))
-  withr::defer(unlink(tmp, recursive = TRUE))
-  dir.create(tmp <- tempfile("testthat-snap-"))
+  tmp <- withr::local_tempdir("testthat-snap-")
   file.copy(test_path("test-parallel", "snap"), tmp, recursive = TRUE)
   # we cannot run these with the silent reporter, because it is not
   # parallel compatible, and they'll not run in parallel
@@ -82,11 +81,11 @@ test_that("snapshots", {
 })
 
 test_that("new snapshots are added", {
-  withr::local_envvar(c(TESTTHAT_PARALLEL = "TRUE"))
-  withr::defer(unlink(tmp, recursive = TRUE))
-  dir.create(tmp <- tempfile("testthat-snap-"))
+  withr::local_envvar(c(TESTTHAT_PARALLEL = "TRUE", CI = "false"))
+  tmp <- withr::local_tempdir("testthat-snap-")
   file.copy(test_path("test-parallel", "snap"), tmp, recursive = TRUE)
   unlink(file.path(tmp, "snap", "tests", "testthat", "_snaps", "snap-2.md"))
+
   # we cannot run these with the silent reporter, because it is not
   # parallel compatible, and they'll not run in parallel
   capture.output(suppressMessages(
@@ -107,13 +106,13 @@ test_that("new snapshots are added", {
 
 test_that("snapshots are removed if test file has no snapshots", {
   withr::local_envvar(c(TESTTHAT_PARALLEL = "TRUE"))
-  withr::defer(unlink(tmp, recursive = TRUE))
-  dir.create(tmp <- tempfile("testthat-snap-"))
+  tmp <- withr::local_tempdir("testthat-snap-")
   file.copy(test_path("test-parallel", "snap"), tmp, recursive = TRUE)
   writeLines(
     "test_that(\"2\", { expect_true(TRUE) })",
     file.path(tmp, "snap", "tests", "testthat", "test-snap-2.R")
   )
+
   # we cannot run these with the silent reporter, because it is not
   # parallel compatible, and they'll not run in parallel
   capture.output(suppressMessages(