inst/unitTests/test_bpvectorize.R

In BiocParallel: Bioconductor facilities for parallel evaluation

test_bpvectorize_Params <- function()
{
    doParallel::registerDoParallel(2)
    params <- list(serial=SerialParam(),
                   snow=SnowParam(2),
                   batchjobs=BatchJobsParam(2, progressbar=FALSE),
                   dopar=DoparParam())
    if (.Platform$OS.type != "windows")
        params$mc <- MulticoreParam(2)

    x <- 1:10
    expected <- sqrt(x)
    for (param in names(params)) {
        psqrt <- bpvectorize(sqrt, BPPARAM=params[[param]])
        checkIdentical(expected, psqrt(x))
    }

    ## clean up
    env <- foreach:::.foreachGlobals
    rm(list=ls(name=env), pos=env)
    closeAllConnections()
    TRUE
}