tests: load helper functions only locally

cvasi-tktd · Oct 23, 2024 · dd80dca · dd80dca
1 parent c86766d
commit dd80dca
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/tests/testthat/test-calibrate.R b/tests/testthat/test-calibrate.R
@@ -196,7 +196,7 @@ test_that("fit to calibration set", {
 })
 
 test_that("failed simulations during fitting", {
-  source(test_path("class-DummyScenario.R"))
+  source(test_path("class-DummyScenario.R"), local=TRUE)
 
   fail <- DummyFails()
   fail@param$foo <- 1

diff --git a/tests/testthat/test-epx.R b/tests/testthat/test-epx.R
@@ -46,7 +46,7 @@ test_that("factor cutoff", {
 })
 
 test_that("ep_only", {
-  source(test_path("class-DummyScenario.R"))
+  source(test_path("class-DummyScenario.R"), local=TRUE)
 
   sc <- DummyScenario()
 
@@ -62,7 +62,7 @@ test_that("ep_only", {
 })
 
 test_that("long_format", {
-  source(test_path("class-DummyScenario.R"))
+  source(test_path("class-DummyScenario.R"), local=TRUE)
 
   sc <- DummyScenario() %>% set_exposure(data.frame(t=0, c=1))
 
@@ -84,7 +84,7 @@ test_that("long_format", {
 })
 
 test_that("error handling", {
-  source(test_path("class-DummyScenario.R"))
+  source(test_path("class-DummyScenario.R"), local=TRUE)
 
   # only a single scenario and it failed
   expect_warning(rs <- epx(DummyFails(), level=10))