try something else

NeuroShepherd · Nov 8, 2024 · b23e186 · b23e186
1 parent 846cbc6
commit b23e186
Showing 1 changed file with 27 additions and 28 deletions.
diff --git a/tests/testthat/test-zzz_fix1.R b/tests/testthat/test-zzz_fix1.R
@@ -8,44 +8,43 @@ test_that("test .onLoad", {
 
 
   if (is_chk) {
-    invisible()
-  } else {
-
+    indep_session <- callr::r(function() {
+      ordinalsimr_opts_preload <- grep("ordinalsimr.", names(options()), value = TRUE) |>
+        purrr::set_names() |>
+        purrr::map(~getOption(.x))
 
-  indep_session <- callr::r(function() {
-    ordinalsimr_opts_preload <- grep("ordinalsimr.", names(options()), value = TRUE) |>
-      purrr::set_names() |>
-      purrr::map(~getOption(.x))
 
+      pkgload::load_all()
 
-    pkgload::load_all()
+      ordinalsimr_opts_postload <- grep("ordinalsimr.", names(options()), value = TRUE) |>
+        purrr::set_names() |>
+        purrr::map(~getOption(.x))
 
-    ordinalsimr_opts_postload <- grep("ordinalsimr.", names(options()), value = TRUE) |>
-      purrr::set_names() |>
-      purrr::map(~getOption(.x))
+      return(
+        list(ordinalsimr_opts_preload = ordinalsimr_opts_preload,
+             ordinalsimr_opts_postload = ordinalsimr_opts_postload))
+    })
 
-    return(
-      list(ordinalsimr_opts_preload = ordinalsimr_opts_preload,
-           ordinalsimr_opts_postload = ordinalsimr_opts_postload))
-  })
 
 
+    # check that the options are empty on starting R
+    expect_length(indep_session$ordinalsimr_opts_preload, 0)
 
-  # check that the options are empty on starting R
-  expect_length(indep_session$ordinalsimr_opts_preload, 0)
+    # check that options exist after loading the package
+    expect_named(indep_session$ordinalsimr_opts_postload, c('ordinalsimr.default_iterations',
+                                                            'ordinalsimr.default_ratio',
+                                                            'ordinalsimr.default_size_max',
+                                                            'ordinalsimr.default_size_min'
+    ))
+    expect_length(indep_session$ordinalsimr_opts_postload, 4)
 
-  # check that options exist after loading the package
-  expect_named(indep_session$ordinalsimr_opts_postload, c('ordinalsimr.default_iterations',
-                                                          'ordinalsimr.default_ratio',
-                                                          'ordinalsimr.default_size_max',
-                                                          'ordinalsimr.default_size_min'
-  ))
-  expect_length(indep_session$ordinalsimr_opts_postload, 4)
+    expect_equal(indep_session$ordinalsimr_opts_postload$ordinalsimr.default_iterations, 1000)
+    expect_equal(indep_session$ordinalsimr_opts_postload$ordinalsimr.default_size_min, 30)
+    expect_equal(indep_session$ordinalsimr_opts_postload$ordinalsimr.default_size_max, 200)
+    expect_equal(indep_session$ordinalsimr_opts_postload$ordinalsimr.default_ratio, "50:50")
+  } else {
 
-  expect_equal(indep_session$ordinalsimr_opts_postload$ordinalsimr.default_iterations, 1000)
-  expect_equal(indep_session$ordinalsimr_opts_postload$ordinalsimr.default_size_min, 30)
-  expect_equal(indep_session$ordinalsimr_opts_postload$ordinalsimr.default_size_max, 200)
-  expect_equal(indep_session$ordinalsimr_opts_postload$ordinalsimr.default_ratio, "50:50")
+    invisible()
 
 }