Merge pull request #615 from bastistician/fix_tests_mc_cores

crsh · web-flow · commit 0bd9c26e0649 · 2026-02-24T22:47:32.000+01:00
fix test error under MC_CORES &gt; 1
diff --git a/tests/testthat/test_apa_print_merMod.R b/tests/testthat/test_apa_print_merMod.R
@@ -216,7 +216,7 @@ test_that(
     captured <- capture_output({
       mixed_KR  <- afex::mixed(formula = yield ~ N * P + (1|block), data = npk, method = "KR")
       mixed_S   <- afex::mixed(formula = yield ~ N * P + (1|block), data = npk, method = "S")
-      mixed_PB  <- afex::mixed(formula = yield ~ N * P + (1|block), data = npk, method = "PB", args_test = list(nsim = 50))
+      mixed_PB  <- afex::mixed(formula = yield ~ N * P + (1|block), data = npk, method = "PB", args_test = list(nsim = 50, cl = 1))
       mixed_LRT <- afex::mixed(formula = yield ~ N * P + (1|block), data = npk, method = "LRT")
     })
     #

Original file line number	Diff line number	Diff line change
`@@ -216,7 +216,7 @@ test_that(`
`216`	`216`	`captured <- capture_output({`
`217`	`217`	`mixed_KR <- afex::mixed(formula = yield ~ N * P + (1\|block), data = npk, method = "KR")`
`218`	`218`	`mixed_S <- afex::mixed(formula = yield ~ N * P + (1\|block), data = npk, method = "S")`
`219`		`- mixed_PB <- afex::mixed(formula = yield ~ N * P + (1\|block), data = npk, method = "PB", args_test = list(nsim = 50))`
	`219`	`+ mixed_PB <- afex::mixed(formula = yield ~ N * P + (1\|block), data = npk, method = "PB", args_test = list(nsim = 50, cl = 1))`
`220`	`220`	`mixed_LRT <- afex::mixed(formula = yield ~ N * P + (1\|block), data = npk, method = "LRT")`
`221`	`221`	`})`
`222`	`222`	`#`