TESTS: More test coverage

Author: HenrikBengtsson

NEWS

@@ -1,7 +1,7 @@
 Package: future.batchtools
 ==========================
 
-Version: 0.4.0-9000 [2017-05-16]
+Version: 0.4.0-9000 [2017-06-01]
 
  o ...
 

tests/future,labels.R

@@ -1,10 +1,7 @@
 source("incl/start.R")
-supportedStrategies <- future:::supportedStrategies
 
 message("*** Futures - labels ...")
 
-strategies <- supportedStrategies()
-strategies <- setdiff(strategies, "multiprocess")
 strategies <- c("batchtools_local")
 
 for (strategy in strategies) {

tests/future,lazy.R

@@ -0,0 +1,27 @@
+source("incl/start.R")
+
+message("*** Futures - lazy ...")
+
+strategies <- c("batchtools_local")
+
+for (strategy in strategies) {
+  mprintf("- plan('%s') ...", strategy)
+  plan(strategy)
+
+  a <- 42
+  f <- future(2 * a, lazy = TRUE)
+  a <- 21
+  v <- value(f)
+  stopifnot(v == 84)
+
+  a <- 42
+  v %<-% { 2 * a } %lazy% TRUE
+  a <- 21
+  stopifnot(v == 84)
+
+  mprintf("- plan('%s') ... DONE", strategy)
+} ## for (strategy ...)
+
+message("*** Futures - lazy ... DONE")
+
+source("incl/end.R")

tests/resources_OP.R

@@ -0,0 +1,13 @@
+source("incl/start.R")
+
+message("*** %resources% ...")
+
+plan(batchtools_local)
+
+## This will test `%resources%` but it'll be ignored
+## (with a warning) by batchtools_local()
+y %<-% { 42 } %resources% list(mem = "42gb")
+
+message("*** %resources% ... DONE")
+
+source("incl/end.R")

tests/zzz.onUnload.R

@@ -0,0 +1,15 @@
+source("incl/start.R")
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+# Load and unload of package
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+loadNamespace("future.batchtools")
+
+message("*** .onUnload() ...")
+
+libpath <- dirname(system.file(package = "future.batchtools"))
+future.batchtools:::.onUnload(libpath)
+
+message("*** .onUnload() ... DONE")
+
+source("incl/end.R")