Running '000.sessionDetails.R' [1s]
  Running 'ClusterRegistry.R' [11s]
  Running 'Future-class.R' [4s]
  Running 'FutureError.R' [1s]
  Running 'FutureGlobals.R' [1s]
  Running 'FutureRegistry.R' [1s]
  Running 'as.cluster.R' [4s]
  Running 'availableCores.R' [1s]
  Running 'availableWorkers.R' [1s]
  Running 'backtrace.R' [5s]
  Running 'cluster-missing-future-pkg.R' [2s]
  Running 'cluster.R' [19s]
  Running 'constant.R' [1s]
  Running 'demo.R' [13s]
  Running 'dotdotdot.R' [4s]
  Running 'early-signaling.R' [7s]
  Running 'future,labels.R' [4s]
  Running 'future.R' [1s]
  Running 'futureAssign.R' [4s]
  Running 'futureAssign_OP.R' [5s]
  Running 'futureAssign_OP_with_environment.R' [1s]
  Running 'futureAssign_OP_with_listenv.R' [1s]
  Running 'futureCall.R' [7s]
  Running 'futureOf.R' [1s]
  Running 'futureOf_with_environment.R' [1s]
  Running 'futureOf_with_listenv.R' [1s]
  Running 'futures.R' [30s]
  Running 'globals,NSE.R' [6s]
  Running 'globals,formulas.R' [6s]
  Running 'globals,manual.R' [6s]
  Running 'globals,resolve.R' [4s]
  Running 'globals,subassignment.R' [5s]
  Running 'globals,toolarge.R' [3s]
  Running 'globals,tricky.R' [8s]
  Running 'globals,tricky_recursive.R' [4s]
  Running 'globalsOf,tweaks.R' [1s]
  Running 'invalid-owner.R' [4s]
  Running 'makeClusterPSOCK.R' [3s]
  Running 'mandelbrot.R' [1s]
  Running 'mpi.R' [1s]
  Running 'multicore.R' [1s]
  Running 'multiprocess.R' [4s]
  Running 'multisession.R' [12s]
  Running 'nbrOfWorkers.R' [14s]
  Running 'nested_futures,mc.cores.R' [21s]
  Running 'nested_futures.R' [12s]
  Running 'non-exportable,connections.R' [4s]
  Running 'objectSize.R' [1s]
  Running 'plan.R' [4s]
  Running 'remote.R' [4s]
  Running 'requestCore.R' [3s]
  Running 'requestNode.R' [10s]
  Running 'resolve.R' [24s]
  Running 'rng.R' [1s]
  Running 'sequential.R' [2s]
  Running 'sessionDetails.R' [1s]
  Running 'startup.R' [11s]
  Running 'stdout.R' [5s]
  Running 'transparent.R' [1s]
  Running 'tweak.R' [2s]
  Running 'utils.R' [18s]
  Running 'uuid.R' [1s]
  Running 'whichIndex.R' [1s]
Running the tests in 'tests/rng.R' failed.
Complete output:
  > source("incl/start.R")
  plan(): Setting new future strategy stack:
  List of future strategies:
  1. sequential:
     - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     - tweaked: FALSE
     - call: future::plan("sequential")
  
  plan(): nbrOfWorkers() = 1
  > 
  > message("*** rng ...")
  *** rng ...
  > 
  > ## A valid L'Ecuyer-CMRG RNG seed
  > seed <- c(407L, 1420090545L, 65713854L, -990249945L,
  +           1780737596L, -1213437427L, 1082168682L)
  > f <- Future(42, seed = seed)
  > print(f)
  Future:
  Label: '<none>'
  Expression:
  [1] 42
  Lazy evaluation: FALSE
  Asynchronous evaluation: TRUE
  Local evaluation: TRUE
  Environment: <environment: R_GlobalEnv>
  Capture standard output: TRUE
  Capture condition classes: 'message', 'warning'
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: c(407, 1420090545, 65713854, -990249945, 1780737596, -1213437427, 1082168682)
  Resolved: FALSE
  Value: <not collected>
  Conditions captured: <none>
  Early signalling: FALSE
  Owner process: 2b0d7974-dfc5-562c-01eb-31e386435036
  Class: 'Future', 'environment'
  > 
  > ## See Section 6 on 'Random-number generation' in
  > ## vignette("parallel", package = "parallel")
  > fsample <- function(x, size = 4L, seed = NULL, what = c("future", "%<-%")) {
  +   what <- match.arg(what)
  +   
  +   ## Must use session-specific '.GlobalEnv' here
  +   .GlobalEnv <- globalenv()
  +   
  +   oseed <- .GlobalEnv$.Random.seed
  +   orng <- RNGkind("L'Ecuyer-CMRG")[1L]
  +   on.exit(RNGkind(orng))
  + 
  +   if (!is.null(seed)) {
  +     ## Reset state of random seed afterwards?
  +     on.exit({
  +       if (is.null(oseed)) {
  +         rm(list = ".Random.seed", envir = .GlobalEnv, inherits = FALSE)
  +       } else {
  +         .GlobalEnv$.Random.seed <- oseed
  +       }
  +     }, add = TRUE)
  + 
  +     set.seed(seed)
  +   }
  + 
  +   .seed <- .Random.seed
  + 
  +   if (what == "future") {
  +     fs <- list()
  +     for (ii in seq_len(size)) {
  +       .seed <- parallel::nextRNGStream(.seed)
  +       fs[[ii]] <- future({ sample(x, size = 1L) }, seed = .seed)
  +     }
  +     res <- values(fs)
  +   } else {
  +     res <- listenv::listenv()
  +     for (ii in seq_len(size)) {
  +       .seed <- parallel::nextRNGStream(.seed)
  +       res[[ii]] %<-% { sample(x, size = 1L) } %seed% .seed
  +     }
  +     res <- as.list(res)
  +   }
  +   
  +   res
  + } # fsample()
  > 
  > 
  > dummy <- sample(0:3, size = 1L)
  > seed0 <- .Random.seed
  > 
  > ## Reference sample with fixed random seed
  > plan("sequential")
  plan(): Setting new future strategy stack:
  List of future strategies:
  1. sequential:
     - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     - tweaked: FALSE
     - call: plan("sequential")
  
  plan(): nbrOfWorkers() = 1
  > y0 <- fsample(0:3, seed = 42L)
  getGlobalsAndPackages() ...
  Searching for globals...
  - globals found: [3] '{', 'sample', 'x'
  Searching for globals ... DONE
  Resolving globals: FALSE
  The total size of the 1 globals is 64 bytes (64 bytes)
  - globals: [1] 'x'
  
  getGlobalsAndPackages() ... DONE
  Argument 'seed' must be L'Ecuyer-CMRG RNG seed (integer vector of length seven) as returned by parallel::nextRNGStream(): numeric of length 7
  [1]       10407   -94575036   -24861725   357812871   346211554 -1301022835
  [7]   440649733
  Error in Future(expr = expr, envir = envir, substitute = FALSE, lazy = lazy,  : 
    Argument 'seed' must be L'Ecuyer-CMRG RNG seed (integer vector of length seven) as returned by parallel::nextRNGStream(): numeric of length 7
  Calls: fsample ... evaluator -> SequentialFuture -> UniprocessFuture -> Future
  Execution halted