R Under development (unstable) (2025-06-04 r88278 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.

> ## This runs testme test script inst/testme/test-plan.R
> ## Don't edit - it was autogenerated by inst/testme/deploy.R
> future.callr:::testme("plan")
Test 'plan' ...
Sourcing 9 prologue scripts ...
01/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/001.load.R'
02/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/002.record-state.R'
03/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/030.imports.R'
04/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/050.utils.R'
05/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/090.context.R'
06/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/090.options.R'
07/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/091.envvars.R'
08/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/099.future-setup.R'
09/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/995.detrius-connections.R'
Sourcing 9 prologue scripts ... done
Running test script: 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/test-plan.R'

> message("*** plan() ...")
*** plan() ...

> message("*** future::plan(future.callr::callr)")
*** future::plan(future.callr::callr)

> oplan <- future::plan(future.callr::callr)

> print(future::plan())
callr:
- args: function (..., workers = availableCores(), supervise = FALSE, envir = parent.frame())
- tweaked: FALSE
- call: future::plan(future.callr::callr)
CallrFutureBackend:
Inherits: MultiprocessFutureBackend, FutureBackend
UUID: 3ae617cf5ef30d1dd9749c7e616d859a
Number of workers: 2
Number of free workers: 2
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
Number of active futures: 0
Number of futures since start: 0 (0 created, 0 launched, 0 finished)
Total runtime of futures: 0 secs (NaN secs/finished future)

> future::plan(oplan)

> print(future::plan())
callr:
- args: function (..., workers = availableCores(), supervise = FALSE, envir = parent.frame())
- tweaked: FALSE
- call: future::plan(future.callr::callr)
CallrFutureBackend:
Inherits: MultiprocessFutureBackend, FutureBackend
UUID: 3ae617cf5ef30d1dd9749c7e616d859a
Number of workers: 2
Number of free workers: 2
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
Number of active futures: 0
Number of futures since start: 0 (0 created, 0 launched, 0 finished)
Total runtime of futures: 0 secs (NaN secs/finished future)

> library("future.callr")
Loading required package: future

> plan(callr)

> for (type in c("callr")) {
+     mdebugf("*** plan('%s') ...", type)
+     plan(type)
+     stopifnot(inherits(plan("next"), "callr"))
+     a <- 0
 .... [TRUNCATED] 
[1] 0

> message("*** Assert that default backend can be overridden ...")
*** Assert that default backend can be overridden ...

> mpid <- Sys.getpid()

> print(mpid)
[1] 18424

> plan(callr)

> pid %<-% {
+     Sys.getpid()
+ }

> print(pid)
[1] 196228

> stopifnot(pid != mpid)

> message("*** plan() ... DONE")
*** plan() ... DONE
Sourcing 6 epilogue scripts ...
01/06 epilogue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_epilogue/001.undo-future.R'
02/06 epilogue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_epilogue/002.undo-state.R'
Failed to undo environment variables:
 - Expected environment variables: [n=213] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', ..., 'tempdirname'
 - Environment variables still there: [n=0] 
 - Environment variables missing: [n=1] 'MAKEFLAGS'
Differences environment variable by environment variable:
03/06 epilogue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_epilogue/090.gc.R'
04/06 epilogue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_epilogue/099.session_info.R'
05/06 epilogue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_epilogue/995.detritus-connections.R'
06/06 epilogue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_epilogue/999.detritus-files.R'
Skipping, because path appears not to be an 'R CMD check' folder: 'D:/temp/2025_06_05_19_20_16_14476'
Sourcing 6 epilogue scripts ... done
Test time: user.self=0.3s, sys.self=0.03s, elapsed=1s, user.child=NAs, sys.child=NAs
Test 'tempdirname' ... success
> 
> proc.time()
   user  system elapsed 
   0.56    0.07    1.40