R version 4.6.0 RC (2026-04-22 r89945 ucrt) -- "Because it was There"
Copyright (C) 2026 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.

> #! /usr/bin/env Rscript
> ## This runs testme test script inst/testme/test-plan.R
> ## Don't edit - it was autogenerated by inst/testme/deploy.R
> future.batchtools:::testme("plan")
Test 'plan' ...
 chr "none"

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

> message("*** future::plan(future.batchtools::batchtools_local)")
*** future::plan(future.batchtools::batchtools_local)

> oplan <- future::plan(future.batchtools::batchtools_local)

> print(future::plan())
batchtools_local:
- args: function (..., fs.latency = 0, delete = getOption("future.batchtools.delete", "on-success"), workers = "<NULL>")
- tweaked: FALSE
- call: future::plan(future.batchtools::batchtools_local)
BatchtoolsLocalFutureBackend:
Inherits: BatchtoolsUniprocessFutureBackend, BatchtoolsFutureBackend, SequentialFutureBackend, FutureBackend
UUID: 2c0d744c2e0cb237eead3e4276c94683
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
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)
batchtools configuration file: 'D:/RCompile/CRANincoming/R-devel/lib/future.batchtools/templates-for-R_CMD_check/batchtools.conf.R' (82 bytes; 1 lines)
batchtools cluster functions: 'Interactive'
batchtools cluster functions template: <NA>
Cache directory: 'D:\temp\2026_04_25_00_50_17_18966\RtmpiqFU1k\.future\20260425_005245-iqFU1k' (0 folders)
batchtools resources:
 list()

> future::plan(oplan)

> print(future::plan())
sequential:
- args: function (..., envir = parent.frame(), workers = "<NULL>")
- tweaked: FALSE
- call: plan(sequential)
SequentialFutureBackend:
Inherits: FutureBackend
UUID: ff08bcf47aea2c6f518c6ccaf76e8a63
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 'hooks': FALSE
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)

> library(future.batchtools)

> for (type in c("batchtools_interactive", "batchtools_local")) {
+     mprintf("*** plan('%s') ...\n", type)
+     plan(type)
+     stopifnot(inherit .... [TRUNCATED] 
*** plan('batchtools_interactive') ...
[1] 0
Warning in tweak.future(strategy, ..., penvir = penvir) :
  Detected 1 unknown future arguments: 'registry'
Warning in tweak.future(strategy, ..., penvir = penvir) :
  Detected 1 unknown future arguments: 'registry'
*** plan('batchtools_interactive') ... DONE
*** plan('batchtools_local') ...
[1] 0
Warning in tweak.future(strategy, ..., penvir = penvir) :
  Detected 1 unknown future arguments: 'registry'
Warning in tweak.future(strategy, ..., penvir = penvir) :
  Detected 1 unknown future arguments: 'registry'
*** plan('batchtools_local') ... DONE

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

> mpid <- Sys.getpid()

> print(mpid)
[1] 44100

> plan(batchtools_interactive)

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

> print(pid)
[1] 44100

> stopifnot(pid == mpid)

> plan(batchtools_local)

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

> print(pid)
[1] 35680

> stopifnot(pid != mpid)

> message("*** plan() ... DONE")
*** plan() ... DONE
Failed to undo environment variables:
 - Expected environment variables: [n=220] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', ..., 'tempdirname'
 - Environment variables still there: [n=0] 
 - Environment variables missing: [n=1] 'MAKEFLAGS'
Differences environment variable by environment variable:
Skipping, because path appears not to be an 'R CMD check' folder: 'D:/temp/2026_04_25_00_50_17_18966'
Test time: user.self=0.7s, sys.self=0.1s, elapsed=2s, user.child=NAs, sys.child=NAs
Test 'tempdirname' ... success
> 
> proc.time()
   user  system elapsed 
   1.42    0.28    3.25