test

pik-piam · Jan 24, 2024 · 021b66c · 021b66c
1 parent 3cd68c3
commit 021b66c
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/tests/testthat/test-localRedirect.R b/tests/testthat/test-localRedirect.R
@@ -41,6 +41,13 @@ test_that("scope for localRedirect can be set", {
     localRedirect("tau", target = "tau2")
     expect_identical(getConfig("redirections"), list(tau = normalizePath("tau2")))
   }
-  f()
+  f1()
   expect_identical(getConfig("redirections"), list())
+
+  f2 <- function() {
+    localRedirect("tau", target = "tau2", .local = FALSE)
+    expect_identical(getConfig("redirections"), list(tau = normalizePath("tau2")))
+  }
+  f2()
+  expect_identical(getConfig("redirections"), list(tau = normalizePath("tau2")))
 })