TESTS: Another two tests need to be conditioned on mirai (>= 0.13.2)

futureverse · Apr 12, 2024 · 9a91f38 · 9a91f38
1 parent b46a112
commit 9a91f38
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 9 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: future.mirai
-Version: 0.1.1-9017
+Version: 0.1.1-9018
 Depends:
     future
 Imports:

diff --git a/tests/globals,formulas.R b/tests/globals,formulas.R
@@ -111,14 +111,17 @@ outer_function <- function(x) {
 y0 <- outer_function(1L)
 str(y0)
 
-f <- future({ outer_function(1L) })
-y <- value(f)
-str(y)
-stopifnot(all.equal(y, y0))
-
-y %<-% { outer_function(1L) }
-str(y)
-stopifnot(all.equal(y, y0))
+## This requires mirai (>= 0.13.2)
+if (packageVersion("mirai") >= "0.13.2") {
+  f <- future({ outer_function(1L) })
+  y <- value(f)
+  str(y)
+  stopifnot(all.equal(y, y0))
+
+  y %<-% { outer_function(1L) }
+  str(y)
+  stopifnot(all.equal(y, y0))
+}
 
 message("*** Globals - map(x, ~ expr) ... DONE")
 

diff --git a/tests/zzz,future_lapply.R b/tests/zzz,future_lapply.R
@@ -1,3 +1,6 @@
+## This requires mirai (>= 0.13.2)
+if (packageVersion("mirai") >= "0.13.2") {
+
 source("incl/start.R")
 library("listenv")
 
@@ -129,3 +132,5 @@ if (requireNamespace("future.apply", quietly = TRUE)) {
 }
 
 source("incl/end.R")
+
+}