diff --git a/tests/testthat/test-parallel.R b/tests/testthat/test-parallel.R index 0bd34c0..2f76d05 100644 --- a/tests/testthat/test-parallel.R +++ b/tests/testthat/test-parallel.R @@ -94,8 +94,10 @@ fit_C_parallel <- mad_wrap(legacy = FALSE, parallel = TRUE, pal = FALSE) test_that("results are identical after parallelization", { expect_identical(fit_R_pal, fit_R) expect_identical(fit_R_parallel, fit_R) + expect_identical(fit_R_pal, fit_C_parallel) # expect_identical(fit_C_pal, fit_C) # FIXME: not identical # expect_identical(fit_C_parallel, fit_C) # FIXME: not identical + expect_identical(fit_C_pal, fit_C_parallel) }) test_that("parallel and pal cannot be both true", {