Pass checks also when R_FUTURE_PLAN=multicore

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future
-Version: 1.34.0-9117
+Version: 1.34.0-9118
 Title: Unified Parallel and Distributed Processing in R for Everyone
 Imports:
     digest,

tests/FutureRegistry.R

@@ -2,7 +2,7 @@ source("incl/start.R")
 
 message("*** FutureRegistry() ...")
 
-for (where in c(sprintf("multicore-%s", future:::session_uuid()), "rscript")) {
+for (where in c("multicore-dummy-uuid", "rscript")) {
   message(sprintf("*** FutureRegistry('%s', 'list') ...", where))
   futures <- FutureRegistry(where, action = "list")
   print(futures)

tests/demo.R

@@ -3,7 +3,10 @@ source("incl/start.R")
 message("*** Demos ...")
 
 message("*** Fibonacci demo of the 'future' package ...")
+# Temporarily protect against non-default R_FUTURE_PLAN
+oopts <- options(future.plan = NULL)
 demo("fibonacci", package = "future", ask = FALSE)
+options(oopts)
 message("*** Fibonacci demo of the 'future' package ... DONE")