File: test_parallelStart.R

package info (click to toggle)
r-cran-parallelmap 1.5.1-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 336 kB
  • sloc: sh: 13; makefile: 2
file content (17 lines) | stat: -rw-r--r-- 460 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
context("parallelStart")

# FIXME: I do NOT know why this blocks in R CMD check
if (interactive()) {

  test_that("parallelStart finds regged level", {
    oldopt = getOption("warn")
    options(warn = 2L)
    parallelRegisterLevels(levels = "bla")
    parallelStartSocket(level = "custom.bla", cpus = 2L)
    parallelStop()
    # remove regged level again for clean state
    options(parallelMap.registered.levels = list())
    options(warn = oldopt)
  })

}