Nothing
################################################################################
context("test-register-parallel")
################################################################################
test_that("register_parallel() works", {
test <- function(ncores, ...) {
register_parallel(ncores, ...)
foreach(i = 1:2) %dopar% i
}
expect_identical(test(1), as.list(1:2))
options(bigstatsr.check.parallel.blas = FALSE)
expect_identical(test(2), as.list(1:2))
expect_error({ foreach(i = 1:2) %dopar% i }, "con")
})
################################################################################
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.