use unique sandbox path for tests

rstudio · Nov 19, 2024 · 2f1be6a · 2f1be6a
1 parent 52ecf5d
commit 2f1be6a
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testthat/helper-setup.R b/tests/testthat/helper-setup.R
@@ -47,6 +47,10 @@ renv_tests_setup_envvars <- function(scope = parent.frame()) {
   root <- renv_scope_tempfile("renv-root-", scope = scope)
   ensure_directory(root)
 
+  # set up sandbox directory
+  sandbox <- file.path(root, "sandbox")
+  ensure_directory(sandbox)
+
   renv_scope_envvars(
     RENV_AUTOLOAD_ENABLED = FALSE,
     RENV_CONFIG_LOCKING_ENABLED = FALSE,
@@ -57,6 +61,7 @@ renv_tests_setup_envvars <- function(scope = parent.frame()) {
     RENV_PATHS_LOCAL = NULL,
     RENV_PATHS_LOCKFILE = NULL,
     RENV_PATHS_RENV = NULL,
+    RENV_PATHS_SANDBOX = sandbox,
     RENV_WATCHDOG_ENABLED = FALSE,
     RENV_WATCHDOG_DEBUG = FALSE,
     scope = scope