R Under development (unstable) (2025-08-24 r88696 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-BatchtoolsFuture.R
> ## Don't edit - it was autogenerated by inst/testme/deploy.R
> future.batchtools:::testme("BatchtoolsFuture")
Test 'BatchtoolsFuture' ...
Sourcing 9 prologue scripts ...
01/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.batchtools/testme/_prologue/001.load.R'
02/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.batchtools/testme/_prologue/002.record-state.R'
03/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.batchtools/testme/_prologue/030.imports.R'
04/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.batchtools/testme/_prologue/050.utils.R'
05/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.batchtools/testme/_prologue/090.context.R'
06/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.batchtools/testme/_prologue/090.options.R'
07/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.batchtools/testme/_prologue/091.envvars.R'
08/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.batchtools/testme/_prologue/099.future-setup.R'
09/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.batchtools/testme/_prologue/995.detrius-connections.R'
Sourcing 9 prologue scripts ... done
Running test script: 'D:/RCompile/CRANincoming/R-devel/lib/future.batchtools/testme/test-BatchtoolsFuture.R'

> library(future)

> message("*** BatchtoolsFuture() ...")
*** BatchtoolsFuture() ...

> message("*** BatchtoolsFuture() - cleanup ...")
*** BatchtoolsFuture() - cleanup ...

> plan(future.batchtools::batchtools_local)

> f <- future({
+     1
+ })

> res <- await(f, cleanup = TRUE)

> print(res)
FutureResult:
value: 'integer'
visible: TRUE
stdout: character
conditions: [n = 0] 
RNG used: FALSE
duration: 0.04464197 secs (started 2025-08-26 00:41:14.180216)
version: 1.8

> stopifnot(res$value == 1)

> message("*** BatchtoolsFuture() - cleanup ... DONE")
*** BatchtoolsFuture() - cleanup ... DONE

> message("*** BatchtoolsFuture() - deleting exceptions ...")
*** BatchtoolsFuture() - deleting exceptions ...

> f <- future(42)

> print(f)
BatchtoolsLocalFuture:
Label: <unnamed-2>
Expression:
[1] 42
Globals: <none>
Packages: <none>
L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
Capture standard output: TRUE
Capture condition classes: 'condition' (excluding '<none>')
Immediate condition classes: 'immediateCondition'
Lazy evaluation: FALSE
Local evaluation: TRUE
Asynchronous evaluation: TRUE
Early signaling: FALSE
Environment: R_GlobalEnv
State: 'running'
Resolved: TRUE
Unique identifier: fb25e4d5ac7caae492a52716f22adc0a-2
Owner process: fb25e4d5ac7caae492a52716f22adc0a
Class: 'BatchtoolsLocalFuture', 'BatchtoolsUniprocessFuture', 'BatchtoolsFuture', 'Future'
Value: <not collected>
Conditions captured: <none>
batchtools configuration file: <NA>
batchtools cluster functions: 'Interactive'
batchtools cluster functions template: <NA>
batchtools status: 'defined', 'finished', 'started', 'submitted'
Output captured by batchtools:
[output] ### [bt]: This is batchtools v0.9.18
[output] ### [bt]: Starting calculation of 1 jobs
[output] ### [bt]: Setting working directory to 'D:/RCompile/CRANincoming/R-devel/future.batchtools.Rcheck/tests'
[output] Loading required package: methods
[output] ### [bt]: Memory measurement disabled
[output] ### [bt]: Starting job [batchtools job.id=1]
[output] ### [bt]: Setting seed to 20849 ...
[output] 
[output] ### [bt]: Job terminated successfully [batchtools job.id=1]
[output] ### [bt]: Calculation finished!
batchtools Registry:
  File dir exists: TRUE
  Work dir exists: TRUE
Job Registry
  Backend  : Interactive
  File dir : D:/temp/2025_08_26_00_40_17_26176/Rtmp6T98JC/.future/20250826_004113-6T98JC/batchtools_4432841
  Work dir : D:/RCompile/CRANincoming/R-devel/future.batchtools.Rcheck/tests
  Jobs     : 1
  Seed     : 20848
  Writeable: TRUE

> v <- value(f)

> print(v)
[1] 42

> stopifnot(v == 42)

> res <- delete(f)

> print(f)
BatchtoolsLocalFuture:
Label: <unnamed-2>
Expression:
[1] 42
Globals: <none>
Packages: <none>
L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
Capture standard output: TRUE
Capture condition classes: 'condition' (excluding '<none>')
Immediate condition classes: 'immediateCondition'
Lazy evaluation: FALSE
Local evaluation: TRUE
Asynchronous evaluation: TRUE
Early signaling: FALSE
Environment: R_GlobalEnv
State: 'finished'
Resolved: TRUE
Unique identifier: fb25e4d5ac7caae492a52716f22adc0a-2
Owner process: fb25e4d5ac7caae492a52716f22adc0a
Class: 'BatchtoolsLocalFuture', 'BatchtoolsUniprocessFuture', 'BatchtoolsFuture', 'Future'
Value: 35 bytes of class 'integer'
Duration: 0.04528689 secs (started 2025-08-26 00:41:14.996417)
Worker process: a66ad3879fb2ece90e895e675ef15062
batchtools configuration file: <NA>
batchtools cluster functions: 'Interactive'
batchtools cluster functions template: <NA>
batchtools status: 'defined', 'finished', 'started', 'submitted'
Output captured by batchtools:

batchtools Registry:
  File dir exists: FALSE
  Work dir exists: TRUE
Job Registry
  Backend  : Interactive
  File dir : D:/temp/2025_08_26_00_40_17_26176/Rtmp6T98JC/.future/20250826_004113-6T98JC/batchtools_4432841
  Work dir : D:/RCompile/CRANincoming/R-devel/future.batchtools.Rcheck/tests
  Jobs     : 1
  Seed     : 20848
  Writeable: TRUE

> res <- delete(f)

> print(f)
BatchtoolsLocalFuture:
Label: <unnamed-2>
Expression:
[1] 42
Globals: <none>
Packages: <none>
L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
Capture standard output: TRUE
Capture condition classes: 'condition' (excluding '<none>')
Immediate condition classes: 'immediateCondition'
Lazy evaluation: FALSE
Local evaluation: TRUE
Asynchronous evaluation: TRUE
Early signaling: FALSE
Environment: R_GlobalEnv
State: 'finished'
Resolved: TRUE
Unique identifier: fb25e4d5ac7caae492a52716f22adc0a-2
Owner process: fb25e4d5ac7caae492a52716f22adc0a
Class: 'BatchtoolsLocalFuture', 'BatchtoolsUniprocessFuture', 'BatchtoolsFuture', 'Future'
Value: 35 bytes of class 'integer'
Duration: 0.04528689 secs (started 2025-08-26 00:41:14.996417)
Worker process: a66ad3879fb2ece90e895e675ef15062
batchtools configuration file: <NA>
batchtools cluster functions: 'Interactive'
batchtools cluster functions template: <NA>
batchtools status: 'defined', 'finished', 'started', 'submitted'
Output captured by batchtools:

batchtools Registry:
  File dir exists: FALSE
  Work dir exists: TRUE
Job Registry
  Backend  : Interactive
  File dir : D:/temp/2025_08_26_00_40_17_26176/Rtmp6T98JC/.future/20250826_004113-6T98JC/batchtools_4432841
  Work dir : D:/RCompile/CRANincoming/R-devel/future.batchtools.Rcheck/tests
  Jobs     : 1
  Seed     : 20848
  Writeable: TRUE

> message("*** BatchtoolsFuture() - deleting exceptions ... DONE")
*** BatchtoolsFuture() - deleting exceptions ... DONE

> message("*** BatchtoolsFuture() - registry exceptions ...")
*** BatchtoolsFuture() - registry exceptions ...

> f <- future({
+     x <- 1
+ })

> f$state <- "running"

> if (!is.null(f$config$reg)) {
+     path <- f$config$reg$file.dir
+     unlink(path, recursive = TRUE)
+ }

> res <- tryCatch({
+     value(f)
+ }, error = function(ex) ex)

> print(res)
<simpleError in if (reg$writeable && file_mtime(fs::path(reg$file.dir, "registry.rds")) >     reg$mtime + 1) {    warning("Registry has been altered since last read. Switching to read-only mode in this session. See ?loadRegistry.")    reg$writeable = FALSE}: missing value where TRUE/FALSE needed>

> stopifnot(inherits(res, "error"))

> res <- tryCatch({
+     await(f)
+ }, error = function(ex) ex)

> print(res)
<simpleError in if (reg$writeable && file_mtime(fs::path(reg$file.dir, "registry.rds")) >     reg$mtime + 1) {    warning("Registry has been altered since last read. Switching to read-only mode in this session. See ?loadRegistry.")    reg$writeable = FALSE}: missing value where TRUE/FALSE needed>

> stopifnot(inherits(res, "error"))

> message("*** BatchtoolsFuture() - registry exceptions ... DONE")
*** BatchtoolsFuture() - registry exceptions ... DONE

> message("*** BatchtoolsFuture() - timeout ...")
*** BatchtoolsFuture() - timeout ...

> if (fullTest && availableCores(constraints = "multicore") > 
+     1) {
+     plan(future.batchtools::batchtools_multicore)
+     options(future.wai .... [TRUNCATED] 

> message("*** BatchtoolsFuture() - timeout ... DONE")
*** BatchtoolsFuture() - timeout ... DONE

> message("*** BatchtoolsFuture() ... DONE")
*** BatchtoolsFuture() ... DONE
Test time: user.self=0.4s, sys.self=0.2s, elapsed=3s, user.child=NAs, sys.child=NAs
Test 'BatchtoolsFuture' ... success
> 
> proc.time()
   user  system elapsed 
   0.81    0.37    3.15