Added a couple more unit tests (#17)

ocbe-uio · Jun 25, 2024 · 66befd2 · 66befd2
1 parent 30c9c40
commit 66befd2
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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", {