TESTS: Enable 'plan() - interrupts = NA/FALSE/TRUE' test by default. Produce error on warnings for future (> 1.68.0)

Author: HenrikBengtsson

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: future.tests
 Title: Test Suite for 'Future API' Backends
-Version: 0.9.0-9007
+Version: 0.9.0-9008
 Authors@R: c(
   person("Henrik", "Bengtsson", role = c("aut", "cre", "cph"), email = "[email protected]"),
   person(family = "The R Consortium", comment = "Project was awarded an Infrastructure Steering Committee (ISC) grant in 2017", role = "fnd"))

NEWS.md

@@ -10,9 +10,7 @@
 
  * Add tests for `cancel()`.
 
- * Under development:
- 
-   - Assert that `plan()` accepts argument `interrupts`.
+ * Assert that `plan()` accepts argument `interrupts`.
 
 
 # Version 0.9.0 [2025-04-14]

inst/test-db/plan.R

@@ -111,7 +111,7 @@ make_test(title = "plan() - workers=<invalid>", args = list(), tags = c("plan",
 })
 
 
-make_test(title = "plan() - interrupts = NA/FALSE/TRUE", args = list(), tags = c("plan", "devel"), {
+make_test(title = "plan() - interrupts = NA/FALSE/TRUE", args = list(), tags = c("plan", "interrupts"), {
   current_plan <- plan()
   print(current_plan)
 
@@ -124,7 +124,11 @@ make_test(title = "plan() - interrupts = NA/FALSE/TRUE", args = list(), tags = c
         plan(current_plan, interrupts = interrupts)
       }
     }, warning = function(w) {
-      stop(conditionMessage(w))
+      if (packageVersion("future") > "1.68.0") {
+        stop(conditionMessage(w))
+      } else {
+        warning(conditionMessage(w))
+      }
     })
   }
 })