From ac88a2fd793288d1d99046d32400974db82d85ea Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Tue, 12 Jul 2022 14:07:55 +0200 Subject: Avoid spawning multiple cores in tests on CRAN --- tests/testthat/test_nlme.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test_nlme.R b/tests/testthat/test_nlme.R index a3bc9413..a1f267bb 100644 --- a/tests/testthat/test_nlme.R +++ b/tests/testthat/test_nlme.R @@ -25,7 +25,7 @@ test_that("nlme_function works correctly", { d3 <- add_err(d_SFO_3, function(value) 4, n = 1, seed = 345678) ds <- c(d1 = d1, d2 = d2, d3 = d3) - f <- mmkin("SFO", ds, cores = 1, quiet = TRUE) + f <- mmkin("SFO", ds, cores = n_cores, quiet = TRUE) mean_dp <- mean_degparms(f) grouped_data <- nlme_data(f) @@ -113,7 +113,7 @@ test_that("nlme_function works correctly in other cases", { names(ds_me_sfo_5) <- paste("Dataset", 1:15) dimnames(ds_me_sfo_5) <- list(Subset = 1:3, DT50 = dt50_in) - f_me_sfo_5 <- mmkin("SFO", ds_me_sfo_5, quiet = TRUE) + f_me_sfo_5 <- mmkin("SFO", ds_me_sfo_5, cores = n_cores, quiet = TRUE) ds_me_sfo_5_grouped_mkin <- nlme_data(f_me_sfo_5) ds_me_sfo_5_mean_dp <- mean_degparms(f_me_sfo_5) -- cgit v1.2.1