Try using if condition for tests on CRAN

NeuroShepherd · Nov 8, 2024 · 0b25bd1 · 0b25bd1
1 parent 2e190db
commit 0b25bd1
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/tests/testthat/test-zzz_fix1.R b/tests/testthat/test-zzz_fix1.R
@@ -4,7 +4,9 @@
 
 test_that("test .onLoad", {
 
+  is_chk <- Sys.getenv("_R_CHECK_PACKAGE_NAME_", "") != .packageName
 
+  if (is_chk) {
     indep_session <- callr::r(function() {
       ordinalsimr_opts_preload <- grep("ordinalsimr.", names(options()), value = TRUE) |>
         purrr::set_names() |>
@@ -39,6 +41,7 @@ test_that("test .onLoad", {
     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")
+  }
 
 
 })