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-BatchtoolsFutureBackend.R
> ## Don't edit - it was autogenerated by inst/testme/deploy.R
> future.batchtools:::testme("BatchtoolsFutureBackend")
Test 'BatchtoolsFutureBackend' ...
 chr "none"

> library(future.batchtools)
Loading required package: future

> message("*** BatchtoolsFutureBackend() ...")
*** BatchtoolsFutureBackend() ...

> is_os <- function(name) {
+     if (name == "windows") {
+         return(.Platform$OS.type == "windows")
+     }
+     else {
+         grepl(paste .... [TRUNCATED] 

> backend <- future.batchtools::BatchtoolsFutureBackend(delete = "never")

> n <- future::nbrOfWorkers(backend)

> stopifnot(n == 1)

> backend <- future.batchtools::BatchtoolsFutureBackend(workers = c("n1", 
+     "n2"), delete = "never")

> n <- future::nbrOfWorkers(backend)

> stopifnot(n == 2)

> backend <- future.batchtools::BatchtoolsFutureBackend(workers = function() 3, 
+     delete = "never")

> n <- future::nbrOfWorkers(backend)

> stopifnot(n == 3)

> backend <- future.batchtools::BatchtoolsUniprocessFutureBackend(delete = "never")

> n <- future.batchtools:::nbrOfFreeWorkers.BatchtoolsUniprocessFutureBackend(backend)

> stopifnot(n == 1)

> n_bg <- future.batchtools:::nbrOfFreeWorkers.BatchtoolsUniprocessFutureBackend(backend, 
+     background = TRUE)

> stopifnot(n_bg == 0)

> backend <- future.batchtools::BatchtoolsMultiprocessFutureBackend(workers = 2, 
+     delete = "never")

> n <- future.batchtools:::nbrOfFreeWorkers.BatchtoolsMultiprocessFutureBackend(backend)

> stopifnot(n == 2)

> backend <- future.batchtools::BatchtoolsUniprocessFutureBackend(delete = "never")

> stopifnot(inherits(backend, "BatchtoolsUniprocessFutureBackend"))

> backend <- future.batchtools::BatchtoolsMultiprocessFutureBackend(workers = 2, 
+     delete = "never")

> stopifnot(inherits(backend, "BatchtoolsMultiprocessFutureBackend"))

> backend <- future.batchtools::BatchtoolsLocalFutureBackend(delete = "never")

> stopifnot(inherits(backend, "BatchtoolsLocalFutureBackend"))

> backend <- future.batchtools::BatchtoolsInteractiveFutureBackend(delete = "never")

> stopifnot(inherits(backend, "BatchtoolsInteractiveFutureBackend"))

> if (parallelly::supportsMulticore()) {
+     backend <- future.batchtools::BatchtoolsMulticoreFutureBackend(delete = "never")
+     stopifnot(inheri .... [TRUNCATED] 

> backend <- future.batchtools::BatchtoolsCustomFutureBackend(cluster.functions = batchtools::makeClusterFunctionsInteractive(external = TRUE), 
+     .... [TRUNCATED] 

> stopifnot(inherits(backend, "BatchtoolsCustomFutureBackend"))

> b <- future.batchtools::BatchtoolsLsfFutureBackend(template = "lsf", 
+     delete = "never")

> stopifnot(inherits(b, "BatchtoolsLsfFutureBackend"))

> n <- future::nbrOfWorkers(b)

> stopifnot(n >= 1)

> b <- future.batchtools::BatchtoolsOpenLavaFutureBackend(template = "openlava", 
+     delete = "never")

> stopifnot(inherits(b, "BatchtoolsOpenLavaFutureBackend"))

> n <- future::nbrOfWorkers(b)

> stopifnot(n >= 1)

> b <- future.batchtools::BatchtoolsSGEFutureBackend(template = "sge", 
+     delete = "never")

> stopifnot(inherits(b, "BatchtoolsSGEFutureBackend"))

> n <- future::nbrOfWorkers(b)

> stopifnot(n >= 1)

> b <- future.batchtools::BatchtoolsSlurmFutureBackend(template = "slurm", 
+     delete = "never")

> stopifnot(inherits(b, "BatchtoolsSlurmFutureBackend"))

> n <- future::nbrOfWorkers(b)

> stopifnot(n >= 1)

> b <- future.batchtools::BatchtoolsTorqueFutureBackend(template = "torque", 
+     delete = "never")

> stopifnot(inherits(b, "BatchtoolsTorqueFutureBackend"))

> n <- future::nbrOfWorkers(b)

> stopifnot(n >= 1)

> cf <- future.batchtools::makeClusterFunctionsSlurm2()

> stopifnot(inherits(cf, "ClusterFunctions"))

> stopifnot(cf$name == "Slurm")

> if (!is_os("windows")) {
+     b <- future.batchtools::BatchtoolsBashFutureBackend(template = "bash", 
+         delete = "never")
+     stopifnot(i .... [TRUNCATED] 

> message("*** BatchtoolsFutureBackend() ... DONE")
*** BatchtoolsFutureBackend() ... 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.2s, sys.self=0.05s, elapsed=0.2s, user.child=NAs, sys.child=NAs
Test 'tempdirname' ... success
> 
> proc.time()
   user  system elapsed 
   0.98    0.20    1.14