R Under development (unstable) (2025-04-13 r88141 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(future.tests)
> library(future)
> 
> test_plans <- test_plans()
> print(test_plans)
list()
> 
> add_test_plan(plan(sequential))
> add_test_plan(plan(multisession, workers = 1L))
> add_test_plan(plan(multisession, workers = 2L))
> 
> test_plans <- test_plans()
> print(test_plans)
[[1]]
plan(sequential)

[[2]]
plan(multisession, workers = 1L)

[[3]]
plan(multisession, workers = 2L)

> stopifnot(length(test_plans) == 3L)
> 
> res <- along_test_plans({ 42L })
Evaluating expression under future plan #1 of 3 ...
sequential:
- args: function (..., gc = FALSE, earlySignal = FALSE, envir = parent.frame(), workers = "<NULL>")
- tweaked: FALSE
- call: plan(sequential)
FutureBackend to be launched
Evaluating expression under future plan #1 of 3 ... DONE
Evaluating expression under future plan #2 of 3 ...
multisession:
- args: function (..., workers = 1L, envir = parent.frame())
- tweaked: TRUE
- call: plan(multisession, workers = 1L)
SequentialFutureBackend:
Inherits: FutureBackend
Number of workers: 1
Number of free workers: 1
Available cores: 2
Automatic garbage collection: FALSE
Early signaling: FALSE
Interrupts are enabled: TRUE
Maximum total size of globals: +Inf
Maximum total size of value: +Inf
Argument 'persistent': NULL
Argument 'wait.timeout': NULL
Argument 'wait.interval': NULL
Argument 'wait.alpha': NULL
Argument 'hooks': FALSE
Number of active futures: 0
Number of futures since start: 0
Evaluating expression under future plan #2 of 3 ... DONE
Evaluating expression under future plan #3 of 3 ...
multisession:
- args: function (..., workers = 2L, envir = parent.frame())
- tweaked: TRUE
- call: plan(multisession, workers = 2L)
MultisessionFutureBackend:
Inherits: ClusterFutureBackend, MultiprocessFutureBackend, FutureBackend
Number of workers: 2
Number of free workers: 2
Available cores: 2
Automatic garbage collection: FALSE
Early signaling: TRUE
Interrupts are enabled: TRUE
Maximum total size of globals: +Inf
Maximum total size of value: +Inf
Argument 'persistent': FALSE
Argument 'wait.timeout': 86400
Argument 'wait.interval': 0.01
Argument 'wait.alpha': 1.01
Argument 'hooks': FALSE
Number of active futures: 0
Number of futures since start: 0
Workers of type RichSOCKcluster:
- Summary: Socket cluster with 2 nodes where 2 nodes are on host 'localhost' (R Under development (unstable) (2025-04-13 r88141 ucrt), platform x86_64-w64-mingw32)
- [ OK ] Node 1/2: valid connection, alive [RichSOCKnode of a socket cluster on local host 'localhost' with pid 113112 (R Under development (unstable) (2025-04-13 r88141 ucrt), x86_64-w64-mingw32) using socket connection #4 ('<-CRANwin3.fb05.statistik.uni-dortmund.de:36561')]
- [ OK ] Node 2/2: valid connection, alive [RichSOCKnode of a socket cluster on local host 'localhost' with pid 157112 (R Under development (unstable) (2025-04-13 r88141 ucrt), x86_64-w64-mingw32) using socket connection #5 ('<-CRANwin3.fb05.statistik.uni-dortmund.de:36561')]
Evaluating expression under future plan #3 of 3 ... DONE
> print(res)
[[1]]
[1] 42

[[2]]
[1] 42

[[3]]
[1] 42

> 
> proc.time()
   user  system elapsed 
   2.31    1.56    7.17