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

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

> library(listenv)

> strategies <- c("batchtools_interactive", "batchtools_local")

> message("*** Global argument '...' in futures ...")
*** Global argument '...' in futures ...

> sum_fcns <- list()

> sum_fcns$A <- function(x, ...) {
+     message("Arguments '...' exists: ", exists("...", inherits = TRUE))
+     y %<-% {
+         sum(x, ...)
+    .... [TRUNCATED] 

> sum_fcns$B <- function(x, ...) {
+     sumt <- function(x) {
+         message("Arguments '...' exists: ", exists("...", inherits = TRUE))
+         .... [TRUNCATED] 

> sum_fcns$C <- function(x, y) {
+     message("Arguments '...' exists: ", exists("...", inherits = TRUE))
+     y %<-% {
+         sum(x, y)
+     }
 .... [TRUNCATED] 

> sum_fcns$D <- function(x, y) {
+     message("Arguments '...' exists: ", exists("...", inherits = TRUE))
+     y %<-% {
+         sum(x, y, ...)
+   .... [TRUNCATED] 

> for (strategy in strategies) {
+     plan(strategy, substitute = FALSE)
+     for (name in names(sum_fcns)) {
+         mprintf("** Sum function '%s ..." ... [TRUNCATED] 
** Sum function 'A' with plan('batchtools_interactive') ...
function (x, ...) 
{
    message("Arguments '...' exists: ", exists("...", inherits = TRUE))
    y %<-% {
        sum(x, ...)
    }
    y
}
Arguments '...' exists: TRUE
[1] 6
** Sum function 'B' with plan('batchtools_interactive') ...
function (x, ...) 
{
    sumt <- function(x) {
        message("Arguments '...' exists: ", exists("...", inherits = TRUE))
        y %<-% {
            sum(x, ...)
        }
        y
    }
    sumt(x)
}
Arguments '...' exists: TRUE
[1] 6
** Sum function 'C' with plan('batchtools_interactive') ...
function (x, y) 
{
    message("Arguments '...' exists: ", exists("...", inherits = TRUE))
    y %<-% {
        sum(x, y)
    }
    y
}
Arguments '...' exists: FALSE
[1] 6
** Sum function 'D' with plan('batchtools_interactive') ...
function (x, y) 
{
    message("Arguments '...' exists: ", exists("...", inherits = TRUE))
    y %<-% {
        sum(x, y, ...)
    }
    y
}
Arguments '...' exists: FALSE
Warning in delete.BatchtoolsFuture(future) :
  Will not remove batchtools registry, because the status of the batchtools was 'error', 'defined', 'finished', 'started', 'submitted' and future backend argument 'delete' is 'on-success': 'D:/temp/2026_04_25_00_50_17_18966/RtmpGCTrEV/.future/20260425_005150-GCTrEV/batchtools_330440465'
Error in eval(quote({ : '...' used in an incorrect context
[1] "Error in eval(quote({ : '...' used in an incorrect context\n"
attr(,"class")
[1] "try-error"
attr(,"condition")
<simpleError in eval(quote({    {        sum(x, y, ...)    }}), new.env()): '...' used in an incorrect context>
** Sum function 'A' with plan('batchtools_local') ...
function (x, ...) 
{
    message("Arguments '...' exists: ", exists("...", inherits = TRUE))
    y %<-% {
        sum(x, ...)
    }
    y
}
Arguments '...' exists: TRUE
[1] 6
** Sum function 'B' with plan('batchtools_local') ...
function (x, ...) 
{
    sumt <- function(x) {
        message("Arguments '...' exists: ", exists("...", inherits = TRUE))
        y %<-% {
            sum(x, ...)
        }
        y
    }
    sumt(x)
}
Arguments '...' exists: TRUE
[1] 6
** Sum function 'C' with plan('batchtools_local') ...
function (x, y) 
{
    message("Arguments '...' exists: ", exists("...", inherits = TRUE))
    y %<-% {
        sum(x, y)
    }
    y
}
Arguments '...' exists: FALSE
Warning in delete.BatchtoolsFuture(f, onRunning = "skip", onMissing = "ignore",  :
  Will not remove batchtools registry, because the status of the batchtools was 'error', 'defined', 'finished', 'started', 'submitted' and future backend argument 'delete' is 'on-success': 'D:/temp/2026_04_25_00_50_17_18966/RtmpGCTrEV/.future/20260425_005150-GCTrEV/batchtools_330440465'
[1] 6
** Sum function 'D' with plan('batchtools_local') ...
function (x, y) 
{
    message("Arguments '...' exists: ", exists("...", inherits = TRUE))
    y %<-% {
        sum(x, y, ...)
    }
    y
}
Arguments '...' exists: FALSE
Warning in delete.BatchtoolsFuture(future) :
  Will not remove batchtools registry, because the status of the batchtools was 'error', 'defined', 'finished', 'started', 'submitted' and future backend argument 'delete' is 'on-success': 'D:/temp/2026_04_25_00_50_17_18966/RtmpGCTrEV/.future/20260425_005150-GCTrEV/batchtools_1036207822'
Error in eval(quote({ : '...' used in an incorrect context
[1] "Error in eval(quote({ : '...' used in an incorrect context\n"
attr(,"class")
[1] "try-error"
attr(,"condition")
<simpleError in eval(quote({    {        sum(x, y, ...)    }}), new.env()): '...' used in an incorrect context>

> message("*** Global argument '...' in futures ... DONE")
*** Global argument '...' in futures ... 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=1s, sys.self=0.2s, elapsed=5s, user.child=NAs, sys.child=NAs
Test 'tempdirname' ... success
> 
> proc.time()
   user  system elapsed 
   1.98    0.31    5.48 
Warning message:
In delete.BatchtoolsFuture(f, onRunning = "skip", onMissing = "ignore",  :
  Will not remove batchtools registry, because the status of the batchtools was 'error', 'defined', 'finished', 'started', 'submitted' and future backend argument 'delete' is 'on-success': 'D:/temp/2026_04_25_00_50_17_18966/RtmpGCTrEV/.future/20260425_005150-GCTrEV/batchtools_1036207822'