tests/testthat/test-parallel.R

In muttest: Mutation Testing

test_that("workers = 2 produces the same score as workers = 1", {
  skip_on_cran()
  .with_example_dir("operators/", {
    mutators <- list(operator("+", "-"), operator("*", "/"))
    p <- muttest_plan(mutators, fs::dir_ls("R"))
    expect_equal(
      as.numeric(.muttest(p, workers = 2)),
      as.numeric(.muttest(p, workers = 1))
    )
  })
})

test_that("workers must be a positive integer", {
  .with_example_dir("operators/", {
    p <- muttest_plan(list(operator("+", "-")), fs::dir_ls("R"))
    expect_error(.muttest(p, workers = 0))
    expect_error(.muttest(p, workers = -1))
    expect_error(.muttest(p, workers = 1.5))
  })
})