CRAN/TESTS: Skipping some tests when running on Windows 32-bit and not explicitly requesting _R_CHECK_FULL_=true

Author: HenrikBengtsson

tests/batchtools_custom.R

@@ -19,8 +19,8 @@ stopifnot(inherits(f, "BatchtoolsFuture"))
 
 ## Check whether a batchtools_custom future is resolved
 ## or not will force evaluation
-print(resolved(f))
-stopifnot(resolved(f))
+print(is_resolved <- resolved(f))
+stopifnot(is_resolved)
 
 y <- value(f)
 print(y)

tests/batchtools_interactive.R

@@ -12,8 +12,8 @@ stopifnot(inherits(f, "BatchtoolsFuture"))
 
 ## Check whether a batchtools_interactive future is resolved
 ## or not will force evaluation
-print(resolved(f))
-stopifnot(resolved(f))
+print(is_resolved <- resolved(f))
+stopifnot(is_resolved)
 
 y <- value(f)
 print(y)

tests/batchtools_local.R

@@ -12,8 +12,8 @@ stopifnot(inherits(f, "BatchtoolsFuture"))
 
 ## Check whether a batchtools_local future is resolved
 ## or not will force evaluation
-print(resolved(f))
-stopifnot(resolved(f))
+print(is_resolved <- resolved(f))
+stopifnot(is_resolved)
 
 y <- value(f)
 print(y)

tests/batchtools_multicore.R

@@ -7,6 +7,10 @@ for (cores in 1:min(2L, availableCores("multicore"))) {
   ## FIXME:
   if (!fullTest && cores > 1) next
 
+  ## CRAN processing times:
+  ## On Windows 32-bit, don't run these tests
+  if (!fullTest && isWin32) next
+
   mprintf("Testing with %d cores ...\n", cores)
   options(mc.cores = cores - 1L)
 
@@ -15,10 +19,6 @@ for (cores in 1:min(2L, availableCores("multicore"))) {
   }
 
   for (globals in c(FALSE, TRUE)) {
-    ## SPEEDUP: Skip part of the tests on Windows to decrease
-    ## the overall testing time on CRAN. /HB 2018-07-18
-    if (!supportsMulticore() && !globals) next
-    
     mprintf("*** batchtools_multicore(..., globals = %s) without globals\n",
             globals)
 
@@ -35,8 +35,6 @@ for (cores in 1:min(2L, availableCores("multicore"))) {
     print(y)
     stopifnot(y == 42L)
 
-    if (!supportsMulticore()) next
-
     mprintf("*** batchtools_multicore(..., globals = %s) with globals\n",
           globals)
     ## A global variable
@@ -79,26 +77,6 @@ for (cores in 1:min(2L, availableCores("multicore"))) {
     }
   } # for (globals ...)
 
-
-  mprintf("*** batchtools_multicore() and errors\n", globals)
-  f <- batchtools_multicore({
-    stop("Whoops!")
-    1
-  })
-  v <- value(f, signal = FALSE)
-  print(v)
-  stopifnot(inherits(v, "simpleError"))
-
-  res <- try(value(f), silent = TRUE)
-  print(res)
-  stopifnot(inherits(res, "try-error"))
-
-  ## Error is repeated
-  res <- try(value(f), silent = TRUE)
-  print(res)
-  stopifnot(inherits(res, "try-error"))
-
-  
   if (cores > 1) {
     message("*** batchtools_multicore(..., workers = 1L) ...")
 
@@ -119,6 +97,29 @@ for (cores in 1:min(2L, availableCores("multicore"))) {
   mprintf("Testing with %d cores ... DONE\n", cores)
 } ## for (cores ...)
 
+
+## CRAN processing times:
+## On Windows 32-bit, don't run these tests
+if (fullTest || !isWin32) {
+  mprintf("*** batchtools_multicore() and errors\n", globals)
+  f <- batchtools_multicore({
+    stop("Whoops!")
+    1
+  })
+  v <- value(f, signal = FALSE)
+  print(v)
+  stopifnot(inherits(v, "simpleError"))
+  
+  res <- try(value(f), silent = TRUE)
+  print(res)
+  stopifnot(inherits(res, "try-error"))
+  
+  ## Error is repeated
+  res <- try(value(f), silent = TRUE)
+  print(res)
+  stopifnot(inherits(res, "try-error"))
+}
+
 message("*** batchtools_multicore() ... DONE")
 
 source("incl/end.R")

tests/demo.R

@@ -1,5 +1,11 @@
 source("incl/start.R")
 
+plan(batchtools_local)
+
+## CRAN processing times:
+## On Windows 32-bit, don't run these tests via batchtools
+if (!fullTest && isWin32) plan(sequential)
+
 options(future.demo.mandelbrot.nrow = 2L)
 options(future.demo.mandelbrot.resolution = 50L)
 options(future.demo.mandelbrot.delay = FALSE)
@@ -8,7 +14,6 @@ message("*** Demos ...")
 
 message("*** Mandelbrot demo of the 'future' package ...")
 
-plan(batchtools_local)
 demo("mandelbrot", package = "future", ask = FALSE)
 
 message("*** Demos ... DONE")

tests/dotdotdot.R

@@ -1,6 +1,13 @@
 source("incl/start.R")
 library("listenv")
 
+strategies <- c("batchtools_interactive", "batchtools_local")
+
+## CRAN processing times:
+## On Windows 32-bit, don't run these tests
+if (!fullTest && isWin32) strategies <- character(0L)
+
+
 message("*** Global argument '...' in futures ...")
 
 sum_fcns <- list()
@@ -34,7 +41,7 @@ sum_fcns$D <- function(x, y) {
 }
 
 
-for (strategy in c("batchtools_interactive", "batchtools_local")) {
+for (strategy in strategies) {
   plan(strategy, substitute = FALSE)
 
   for (name in names(sum_fcns)) {

tests/future,labels.R

@@ -4,6 +4,10 @@ message("*** Futures - labels ...")
 
 strategies <- c("batchtools_local")
 
+## CRAN processing times:
+## On Windows 32-bit, don't run these tests
+if (!fullTest && isWin32) strategies <- character(0L)
+
 for (strategy in strategies) {
   mprintf("- plan('%s') ...\n", strategy)
   plan(strategy)

tests/future,lazy.R

@@ -4,6 +4,10 @@ message("*** Futures - lazy ...")
 
 strategies <- c("batchtools_local")
 
+## CRAN processing times:
+## On Windows 32-bit, don't run these tests
+if (!fullTest && isWin32) strategies <- character(0L)
+
 for (strategy in strategies) {
   mprintf("- plan('%s') ...\n", strategy)
   plan(strategy)

tests/globals,formulas.R

@@ -5,6 +5,10 @@ library("stats")    ## lm(), poly(), xtabs()
 
 plan(batchtools_local)
 
+## CRAN processing times:
+## On Windows 32-bit, don't run these tests on batchtools
+if (!fullTest && isWin32) plan(sequential)
+
 message("*** Globals - formulas ...")
 
 message("*** Globals - lm(<formula>) ...")

tests/globals,manual.R

@@ -2,6 +2,10 @@ source("incl/start.R")
 
 plan(batchtools_local)
 
+## CRAN processing times:
+## On Windows 32-bit, don't run these tests on batchtools
+if (!fullTest && isWin32) plan(sequential)
+
 message("*** Globals - manually ...")
 
 message("*** Globals manually specified as named list ...")