TESTS: Some speedup by avoiding print():ing Future:s

Author: HenrikBengtsson

tests/BatchtoolsFuture,gc.R

@@ -6,7 +6,6 @@ plan(batchtools_local)
 
 for (how in c("resolve", "value")) {
   f <- future({ 1 })
-  print(f)
 
   if (how == "value") {
     v <- value(f)

tests/BatchtoolsFuture.R

@@ -5,7 +5,6 @@ message("*** BatchtoolsFuture() ...")
 message("*** BatchtoolsFuture() - cleanup ...")
 
 f <- batchtools_local({ 1L })
-print(f)
 res <- await(f, cleanup = TRUE)
 print(res)
 # future (>= 1.7.0-9000)
@@ -19,7 +18,6 @@ message("*** BatchtoolsFuture() - deleting exceptions ...")
 
 ## Deleting a non-resolved future
 f <- BatchtoolsFuture({ x <- 1 })
-print(f)
 res <- tryCatch({
   delete(f)
 }, warning = function(w) w)
@@ -44,7 +42,6 @@ message("*** BatchtoolsFuture() - registry exceptions ...")
 
 ## Non-existing batchtools registry
 f <- BatchtoolsFuture({ x <- 1 })
-print(f)
 
 ## Hack to emulate where batchtools registry is deleted or fails
 f$state <- "running"
@@ -69,15 +66,13 @@ message("*** BatchtoolsFuture() - registry exceptions ... DONE")
 message("*** BatchtoolsFuture() - exceptions ...")
 
 f <- BatchtoolsFuture({ 42L })
-print(f)
 res <- tryCatch({
   loggedError(f)
 }, error = function(ex) ex)
 print(res)
 stopifnot(inherits(res, "error"))
 
 f <- BatchtoolsFuture({ 42L })
-print(f)
 res <- tryCatch({
   loggedOutput(f)
 }, error = function(ex) ex)
@@ -110,7 +105,6 @@ if (fullTest && availableCores(constraints = "multicore") > 1) {
     Sys.sleep(5)
     x <- 1
   })
-  print(f)
 
   res <- tryCatch({
     value(f)

tests/BatchtoolsFutureError.R

@@ -14,7 +14,6 @@ for (cleanup in c(FALSE, TRUE)) {
     print(x)
     stop("Woops!")
   })
-  print(f)
 
   resolve(f)
 

tests/batchtools_custom.R

@@ -64,7 +64,6 @@ f <- batchtools_custom({
   stop("Whoops!")
   1
 }, cluster.functions = cf)
-print(f)
 v <- value(f, signal = FALSE)
 print(v)
 stopifnot(inherits(v, "simpleError"))

tests/batchtools_interactive.R

@@ -28,7 +28,6 @@ f <- batchtools_interactive({
   c <- 2
   a * b * c
 })
-print(f)
 
 ## Although 'f' is a batchtools_interactive future and therefore
 ## resolved/evaluates the future expression only
@@ -55,7 +54,6 @@ f <- batchtools_interactive({
   stop("Whoops!")
   1
 })
-print(f)
 v <- value(f, signal = FALSE)
 print(v)
 stopifnot(inherits(v, "simpleError"))

tests/batchtools_local.R

@@ -28,7 +28,6 @@ f <- batchtools_local({
   c <- 2
   a * b * c
 })
-print(f)
 
 ## Although 'f' is a batchtools_local future and therefore
 ## resolved/evaluates the future expression only
@@ -55,7 +54,6 @@ f <- batchtools_local({
   stop("Whoops!")
   1
 })
-print(f)
 v <- value(f, signal = FALSE)
 print(v)
 stopifnot(inherits(v, "simpleError"))

tests/future,labels.R

@@ -12,20 +12,18 @@ for (strategy in strategies) {
     fcn <- get(strategy, mode = "function")
     stopifnot(inherits(fcn, strategy))
     f <- fcn(42, label = label)
-    print(f)
     stopifnot(identical(f$label, label))
     v <- value(f)
     stopifnot(v == 42)
+    print(f)
 
     f <- future(42, label = label)
-    print(f)
     stopifnot(identical(f$label, label))
     v <- value(f)
     stopifnot(v == 42)
 
     v %<-% { 42 } %label% label
     f <- futureOf(v)
-    print(f)
     stopifnot(identical(f$label, label))
     stopifnot(v == 42)
 

tests/globals,manual.R

@@ -29,7 +29,6 @@ f <- future({
   x <- 1:10
   sumtwo(a + b * x)
 }, globals = TRUE)
-print(f)
 rm(list = names(globals))
 y <- value(f)
 print(y)
@@ -55,7 +54,6 @@ f <- future({
   x <- 1:10
   sumtwo(a + b * x)
 }, globals = FALSE)
-print(f)
 rm(list = names(globals))
 y <- tryCatch(value(f), error = identity)
 if (!inherits(f, c("EagerFuture", "MulticoreFuture"))) {
@@ -74,7 +72,6 @@ f <- future({
   x <- 1:10
   sumtwo(a + b * x)
 }, globals = globals)
-print(f)
 v <- value(f)
 print(v)
 stopifnot(all.equal(v, v0))
@@ -96,7 +93,6 @@ f <- future({
   x <- 1:10
   sumtwo(a + b * x)
 }, globals = c("a", "b", "sumtwo"))
-print(f)
 rm(list = names(globals))
 v <- value(f)
 print(v)