tests/testthat/test-guessCores.R

In xrobin/xavamess: Useful Miscellaneous Functions

library(xavamess)

ncores <- guessCores(verbose = FALSE)

context("guessCores returns sensible results")
expect_true(is.integer(ncores), label = "ncores is an integer")
expect_gt(ncores, 0, label = "ncores is positive")

context("guessCores output is sensible")
expect_silent(guessCores(verbose = FALSE))
expect_output(guessCores(verbose = TRUE), sprintf(" %d ", ncores), label = "output contains the number of cores with verbose=TRUE")

context("guessCores's 'max' argument works")
expect_lte(guessCores(max = 2, verbose = FALSE), 2, label = "returns no more than 2 with max = 2")

test_that("Invalid NCPUS are ignored", {
	Sys.setenv("NCPUS"=0)
	expect_identical(guessCores(verbose = FALSE), 1L)
	Sys.setenv("NCPUS"=-1)
	expect_identical(guessCores(), 1L)
})

test_that("Valid NCPUS are enforced", {
	Sys.setenv("NCPUS"=1)
	expect_identical(guessCores(verbose = FALSE), 1L)
	Sys.setenv("NCPUS"=100)
	expect_identical(guessCores(verbose = FALSE), 100L)
})