File: test_MulticoreParam.R

package info (click to toggle)
r-bioc-biocparallel 1.40.0-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,768 kB
  • sloc: cpp: 139; sh: 14; makefile: 8
file content (25 lines) | stat: -rw-r--r-- 822 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
message("Testing MulticoreParam")

test_MulticoreParam_progressbar <- function()
{
    if (.Platform$OS.type == "windows")
        return()

    checkIdentical(bptasks(MulticoreParam()), 0L)
    checkIdentical(bptasks(MulticoreParam(tasks = 0L, progressbar = TRUE)), 0L)
    checkIdentical(
        bptasks(MulticoreParam(progressbar = TRUE)),
        BiocParallel:::TASKS_MAXIMUM
    )
}

test_MulticoreParam_bpforceGC <- function() {
    if (.Platform$OS.type == "windows")
        return()

    checkIdentical(FALSE, bpforceGC(MulticoreParam()))
    checkIdentical(FALSE, bpforceGC(MulticoreParam(force.GC = FALSE)))
    checkIdentical(TRUE, bpforceGC(MulticoreParam(force.GC = TRUE)))
    checkException(MulticoreParam(force.GC = NA), silent = TRUE)
    checkException(MulticoreParam(force.GC = 1:2), silent = TRUE)
}