TESTS: Add a batchtools configuration R script for testing batchtools_custom() [#10]

Author: HenrikBengtsson

inst/templates-for-R_CMD_check/batchtools.conf.R

@@ -0,0 +1 @@
+cluster.functions <- batchtools::makeClusterFunctionsInteractive(external = TRUE)

tests/batchtools_custom.R

@@ -4,13 +4,22 @@ library("listenv")
 
 message("*** batchtools_custom() ...")
 
-cf <- makeClusterFunctionsInteractive(external = TRUE)
-str(cf)
+message("*** batchtools_custom() w/ 'conf.file' on R_BATCHTOOLS_SEARCH_PATH")
+
+f <- batchtools_custom({
+  42L
+})
+print(f)
+stopifnot(inherits(f, "BatchtoolsFuture"))
+v <- value(f)
+print(v)
+stopifnot(v == 42L)
 
 
-message("*** batchtools_custom() ...")
+message("*** batchtools_custom() w/ 'cluster.functions' without globals")
 
-message("*** batchtools_custom() without globals")
+cf <- makeClusterFunctionsInteractive(external = TRUE)
+str(cf)
 
 f <- batchtools_custom({
   42L
@@ -27,7 +36,7 @@ print(y)
 stopifnot(y == 42L)
 
 
-message("*** batchtools_custom() with globals")
+message("*** batchtools_custom()  w/ 'cluster.functions' with globals")
 ## A global variable
 a <- 0
 f <- batchtools_custom({
@@ -50,7 +59,7 @@ print(v)
 stopifnot(v == 0)
 
 
-message("*** batchtools_custom() with globals (tricky)")
+message("*** batchtools_custom()  w/ 'cluster.functions' with globals (tricky)")
 x <- listenv()
 for (ii in 1:2) {
   x[[ii]] <- batchtools_custom({ ii }, globals = TRUE, cluster.functions = cf)
@@ -59,7 +68,7 @@ v <- unlist(values(x))
 stopifnot(all(v == 1:2))  ## Make sure globals are frozen
 
 
-message("*** batchtools_custom() and errors")
+message("*** batchtools_custom()  w/ 'cluster.functions' and errors")
 f <- batchtools_custom({
   stop("Whoops!")
   1

tests/incl/start,load-only.R

@@ -13,6 +13,20 @@ oplan <- future::plan()
 options(future.batchtools.workers = NULL)
 Sys.unsetenv("R_FUTURE_BATCHTOOLS_WORKERS")
 
+path <- Sys.getenv("R_BATCHTOOLS_SEARCH_PATH")
+if (!nzchar(path)) {
+  path <- system.file(package = "future.batchtools",
+                      "templates-for-R_CMD_check", mustWork = TRUE)
+  Sys.setenv(R_BATCHTOOLS_SEARCH_PATH = path)
+} else {
+  warning("Using a non-standard R_BATCHTOOLS_SEARCH_PATH while testing: ",
+          sQuote(path))
+  if (!file_test("-d", path)) {
+    stop("R_BATCHTOOLS_SEARCH_PATH specifies a non-existing folder: ",
+         sQuote(path))
+  }
+}
+
 ## Use local batchtools futures by default
 future::plan(future.batchtools::batchtools_local)
 
@@ -33,15 +47,6 @@ all_strategies <- local({
     ## When testing for instance 'batchtools_sge', look for a customize
     ## template file, e.g. R_BATCHTOOLS_SEARCH_PATH/batchtools.sge.tmpl
     if (length(strategies) > 0L) {
-      path <- Sys.getenv("R_BATCHTOOLS_SEARCH_PATH")
-      if (!nzchar(path)) {
-        path <- system.file(package = "future.batchtools",
-                            "templates-for-R_CMD_check", mustWork = TRUE)
-        Sys.setenv(R_BATCHTOOLS_SEARCH_PATH = path)
-      } else if (!file_test("-d", path)) {
-        warning("R_BATCHTOOLS_SEARCH_PATH specifies a non-existing folder: ",
-                sQuote(path))
-      }
       ## If there is a custom R_BATCHTOOLS_SEARCH_PATH/setup.R' file, run it
       pathname <- file.path(path, "setup.R")
       if (file_test("-f", pathname)) source(pathname, local = envir)