Running 'foreach_dofuture,cluster-missing-doFuture-pkg.R' [2s]
  Running 'foreach_dofuture,errors.R' [9s]
  Running 'foreach_dofuture,globals.R' [7s]
  Running 'foreach_dofuture,nested_colon.R' [1s]
  Running 'foreach_dofuture,nested_dofuture.R' [14s]
  Running 'foreach_dofuture,rng.R' [4s]
  Running 'foreach_dofuture.R' [3s]
  Running 'foreach_dopar,cluster-missing-doFuture-pkg.R' [2s]
  Running 'foreach_dopar,doRNG,dopar.R' [3s]
  Running 'foreach_dopar,doRNG,dorng.R' [5s]
  Running 'foreach_dopar,errors.R' [7s]
  Running 'foreach_dopar,globals.R' [7s]
  Running 'foreach_dopar,nested_colon.R' [1s]
  Running 'foreach_dopar,nested_dopar.R' [15s]
  Running 'foreach_dopar,options-for-export.R' [4s]
  Running 'foreach_dopar.R' [3s]
  Running 'makeChunks.R' [4s]
  Running 'options,nested.R' [3s]
  Running 'registerDoFuture.R' [2s]
  Running 'times.R' [2s]
  Running 'utils.R' [1s]
  Running 'withDoRNG.R' [3s]
Running the tests in 'tests/foreach_dofuture,nested_colon.R' failed.
Complete output:
  > source("incl/start.R")
  Loading required package: foreach
  Loading required package: future
  R Under development (unstable) (2024-03-24 r86185 ucrt)
  Platform: x86_64-w64-mingw32/x64
  Running under: Windows Server 2022 x64 (build 20348)
  
  Matrix products: default
  
  
  locale:
  [1] LC_COLLATE=C                 LC_CTYPE=German_Germany.utf8
  [3] LC_MONETARY=C                LC_NUMERIC=C                
  [5] LC_TIME=C                   
  
  time zone: Europe/Berlin
  tzcode source: internal
  
  attached base packages:
  [1] stats     graphics  grDevices utils     datasets  methods   base     
  
  other attached packages:
  [1] doFuture_1.0.1 future_1.33.1  foreach_1.5.2 
  
  loaded via a namespace (and not attached):
   [1] compiler_4.4.0      parallelly_1.37.1   tools_4.4.0        
   [4] parallel_4.4.0      future.apply_1.11.1 listenv_0.9.1      
   [7] codetools_0.2-19    iterators_1.0.14    digest_0.6.35      
  [10] globals_0.16.3     
  > 
  > strategies <- future:::supportedStrategies()
  > strategies <- setdiff(strategies, "multiprocess")
  > 
  > message("*** doFuture - nested w/ %:% ...")
  *** doFuture - nested w/ %:% ...
  > 
  > for (strategy1 in strategies) {
  +   for (strategy2 in strategies) {
  +     message(sprintf("- plan(list('%s', '%s')) ...", strategy1, strategy2))
  +     plan(list(a = strategy1, b = strategy2))
  +     nested <- plan("list")
  +     
  +     as <- 1:2
  +     bs <- 3:1
  +     
  +     x <- foreach(a = as) %:% foreach(b = bs) %dofuture% {
  +       list(a = a, b = b, plan_b = future::plan("list"), plan = future::plan("next"))
  +     }
  + 
  +     stopifnot(length(x) == length(as))
  +     for (aa in seq_along(as)) {
  +       x_aa <- x[[aa]]
  +       stopifnot(length(x_aa) == length(bs))
  +       a <- as[aa]
  +       for (bb in seq_along(bs)) {
  +         x_aa_bb <- x_aa[[bb]]
  +         b <- bs[bb]
  +         stopifnot(
  +           length(x_aa_bb) == 4L,
  +           all(names(x_aa_bb) == c("a", "b", "plan_b", "plan")),
  +           x_aa_bb$a == a,
  +           x_aa_bb$b == b,
  +           length(x_aa_bb$plan_b) == length(nested[-1]),
  +           inherits(x_aa_bb$plan_b[[1]], strategy2),
  +           inherits(x_aa_bb$plan, strategy2)
  +         )
  +       }
  +     }
  + 
  +     ## Cleanup in order make sure none of these variables exist as
  +     ## proxies for missing globals of the name names
  +     rm(list = c("as", "bs", "x", "nested"))
  + 
  +     ## WORKAROUND: Shut down *nested* parallel workers as an attempt to avoid
  +     ## * checking for detritus in the temp directory ... NOTE
  +     ## from 'R CMD check --as-cran' when running on MS Windows. This looks
  +     ## like a bug in R, cf. https://bugs.r-project.org/show_bug.cgi?id=18133    
  +     message("- shut down nested workers")
  +     dummy <- foreach(ii = 1:nbrOfWorkers()) %dofuture% plan("sequential")
  +     plan("sequential")
  +     
  +     message(sprintf("- plan(list('%s', '%s')) ... DONE", strategy1, strategy2))
  +   }
  + }
  - plan(list('sequential', 'sequential')) ...
  [15:29:03.723] doFuture2() ...
Running the tests in 'tests/foreach_dopar,nested_colon.R' failed.
Complete output:
  > source("incl/start.R")
  Loading required package: foreach
  Loading required package: future
  R Under development (unstable) (2024-03-24 r86185 ucrt)
  Platform: x86_64-w64-mingw32/x64
  Running under: Windows Server 2022 x64 (build 20348)
  
  Matrix products: default
  
  
  locale:
  [1] LC_COLLATE=C                 LC_CTYPE=German_Germany.utf8
  [3] LC_MONETARY=C                LC_NUMERIC=C                
  [5] LC_TIME=C                   
  
  time zone: Europe/Berlin
  tzcode source: internal
  
  attached base packages:
  [1] stats     graphics  grDevices utils     datasets  methods   base     
  
  other attached packages:
  [1] doFuture_1.0.1 future_1.33.1  foreach_1.5.2 
  
  loaded via a namespace (and not attached):
   [1] compiler_4.4.0      parallelly_1.37.1   tools_4.4.0        
   [4] parallel_4.4.0      future.apply_1.11.1 listenv_0.9.1      
   [7] codetools_0.2-19    iterators_1.0.14    digest_0.6.35      
  [10] globals_0.16.3     
  > 
  > strategies <- future:::supportedStrategies()
  > 
  > message("*** doFuture - nested w/ %:% ...")
  *** doFuture - nested w/ %:% ...
  > 
  > registerDoFuture()
  > 
  > for (strategy1 in strategies) {
  +   for (strategy2 in strategies) {
  +     message(sprintf("- plan(list('%s', '%s')) ...", strategy1, strategy2))
  +     plan(list(a = strategy1, b = strategy2))
  +     nested <- plan("list")
  +     
  +     as <- 1:2
  +     bs <- 3:1
  +     
  +     x <- foreach(a = as) %:% foreach(b = bs) %dopar% {
  +       list(a = a, b = b, plan_b = future::plan("list"), plan = future::plan("next"))
  +     }
  + 
  +     stopifnot(length(x) == length(as))
  +     for (aa in seq_along(as)) {
  +       x_aa <- x[[aa]]
  +       stopifnot(length(x_aa) == length(bs))
  +       a <- as[aa]
  +       for (bb in seq_along(bs)) {
  +         x_aa_bb <- x_aa[[bb]]
  +         b <- bs[bb]
  +         stopifnot(
  +           length(x_aa_bb) == 4L,
  +           all(names(x_aa_bb) == c("a", "b", "plan_b", "plan")),
  +           x_aa_bb$a == a,
  +           x_aa_bb$b == b,
  +           length(x_aa_bb$plan_b) == length(nested[-1]),
  +           inherits(x_aa_bb$plan_b[[1]], strategy2),
  +           inherits(x_aa_bb$plan, strategy2)
  +         )
  +       }
  +     }
  + 
  +     ## Cleanup in order make sure none of these variables exist as
  +     ## proxies for missing globals of the name names
  +     rm(list = c("as", "bs", "x", "nested"))
  + 
  +     ## WORKAROUND: Shut down *nested* parallel workers as an attempt to avoid
  +     ## * checking for detritus in the temp directory ... NOTE
  +     ## from 'R CMD check --as-cran' when running on MS Windows. This looks
  +     ## like a bug in R, cf. https://bugs.r-project.org/show_bug.cgi?id=18133    
  +     message("- shut down nested workers")
  +     dummy <- foreach(ii = 1:nbrOfWorkers()) %dopar% plan("sequential")
  +     plan("sequential")
  +     
  +     message(sprintf("- plan(list('%s', '%s')) ... DONE", strategy1, strategy2))
  +   }
  + }
  - plan(list('sequential', 'sequential')) ...
  [15:29:48.210] doFuture() ...