inst/test-db/nbrOfWorkers.R

make_test(title = "nbrOfWorkers()", tags = c("nbrOfWorkers"), {
  n <- nbrOfWorkers()
  message(sprintf("nbrOfWorkers: %g", n))
  stopifnot(is.numeric(n), length(n) == 1L, n >= 1L)
})
HenrikBengtsson/future.tests documentation built on May 28, 2023, 2:56 a.m.