TESTS: In future releases, lazy futures may stay vanilla Future objects [ci skip]

Author: HenrikBengtsson

NEWS

@@ -1,7 +1,7 @@
 Package: future.batchtools
 ==========================
 
-Version: 0.9.0-9000 [2020-10-13]
+Version: 0.9.0-9000 [2020-12-21]
 
 DOCUMENTATION:
 

tests/plan.R

@@ -39,17 +39,23 @@ for (type in c("batchtools_interactive", "batchtools_local")) {
   }
   plan(type, registry = list(work.dir = NULL))
   f <- future(42, lazy = TRUE)
-  utils::str(list(normalize_path(f$config$reg$work.dir), getwd = getwd()))
-  stopifnot(normalize_path(f$config$reg$work.dir) == getwd())
+  ## In future releases, lazy futures may stay vanilla Future objects
+  if (inherits(f, "BatchtoolsFuture")) {
+    utils::str(list(normalize_path(f$config$reg$work.dir), getwd = getwd()))
+    stopifnot(normalize_path(f$config$reg$work.dir) == getwd())
+  }
 
   path <- tempdir()
   plan(type, registry = list(work.dir = path))
   f <- future(42, lazy = TRUE)
-  utils::str(list(
-    normalizePath(f$config$reg$work.dir),
-    path = normalizePath(path)
-  ))
-  stopifnot(normalize_path(f$config$reg$work.dir) == normalize_path(path))
+  ## In future releases, lazy futures may stay vanilla Future objects
+  if (inherits(f, "BatchtoolsFuture")) {
+    utils::str(list(
+      normalizePath(f$config$reg$work.dir),
+      path = normalizePath(path)
+    ))
+    stopifnot(normalize_path(f$config$reg$work.dir) == normalize_path(path))
+  }
 
   mprintf("*** plan('%s') ... DONE\n", type)
 } # for (type ...)