test: limit option conservation test to "diseasystore."

ssi-dk · Dec 19, 2023 · 36de3b9 · 36de3b9
1 parent 70b2094
commit 36de3b9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R
@@ -1,5 +1,5 @@
 # Store the current options (for later conservation test -- see test-zzz.R)
-diseasy_opts <- purrr::keep(names(options()), ~ startsWith(., "diseasy")) |>
+diseasy_opts <- purrr::keep(names(options()), ~ startsWith(., "diseasystore.")) |>
   purrr::map(options) |>
   purrr::reduce(c)
 

diff --git a/tests/testthat/test-zzz.R b/tests/testthat/test-zzz.R
@@ -1,5 +1,5 @@
 test_that(r"{options are conserved during testing}", {
-  current_diseasy_opts <- purrr::keep(names(options()), ~ startsWith(., "diseasy")) |>
+  current_diseasy_opts <- purrr::keep(names(options()), ~ startsWith(., "diseasystore.")) |>
     purrr::map(options) |>
     purrr::reduce(c)