tests/testthat/test_parallelLibrary.R

In parallelMap: Unified Interface to Parallelization Back-Ends

context("parallelLibrary")

# issue https://github.com/mlr-org/parallelMap/issues/67
test_that("exported packages honor the given parallelization level", {
  parallelRegisterLevels(levels = "test")
  parallelStartSocket(1, level = "custom.test")
  parallelLibrary(packages = "rpart")

  out = parallelMap(function(.) search(), 1, level = "custom.test")[[1]]
  parallelStop()

  expect_true(any(grepl("package:rpart", out)))
})