TESTS: Assert that plan() accepts argument interrupts

Author: HenrikBengtsson

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: future.tests
 Title: Test Suite for 'Future API' Backends
-Version: 0.9.0-9000
+Version: 0.9.0-9001
 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"))
@@ -23,5 +23,5 @@ License: LGPL (>= 2.1)
 Encoding: UTF-8
 URL: https://future.tests.futureverse.org, https://github.com/futureverse/future.tests
 BugReports: https://github.com/futureverse/future.tests/issues
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3
 Roxygen: list(markdown = TRUE)

NEWS.md

@@ -1,6 +1,16 @@
 # Version (development version)
 
- * ...
+## New Features
+
+ * Add logical R option `future.tests.devel`, which can be set by
+   environment variable `R_FUTURE_TESTS_DEVEL`. This controls whether
+   tests "under developement" will be run.
+ 
+## Test Updates
+
+ * Under development:
+ 
+   - Assert that `plan()` accepts argument `interrupts`.
 
 
 # Version 0.9.0 [2025-04-14]

R/zzz.R

@@ -12,6 +12,15 @@
     options(future.tests.undo = value)
   }
 
+  value <- getOption("future.tests.devel")
+  if (is.null(value)) {
+    value <- Sys.getenv("R_FUTURE_TESTS_DEVEL", NA_character_)
+    if (!is.na(value)) {
+      value <- isTRUE(as.logical(value))
+      options(future.tests.devel = value)
+    }
+  }
+
   args <- parseCmdArgs()
   cores <- args$cores
   if (is.null(cores)) {

inst/test-db/plan.R

@@ -109,3 +109,22 @@ make_test(title = "plan() - workers=<invalid>", args = list(), tags = c("plan",
   print(res)
   stopifnot(inherits(res, "error"))
 })
+
+
+make_test(title = "plan() - interrupts = NA/FALSE/TRUE", args = list(), tags = c("plan"), register = getOption("future.tests.devel", FALSE), {
+  current_plan <- plan()
+  print(current_plan)
+
+  for (interrupts in c(NA, FALSE, TRUE)) {
+    cat(sprintf("interrupts: %s\n", interrupts))
+    withCallingHandlers({
+      if (is.na(interrupts)) {
+        plan(current_plan)
+      } else {
+        plan(current_plan, interrupts = interrupts)
+      }
+    }, warning = function(w) {
+      stop(conditionMessage(w))
+    })
+  }
+})

pkgdown/_pkgdown.yml.rsp

@@ -26,7 +26,7 @@ home:
 
 navbar:
   structure:
-    right: [futureverse, pkgs, cran, github, lightswitch]
+    right: [search, futureverse, pkgs, cran, github, lightswitch]
   components:
     futureverse:
       icon: fas fa-home
@@ -41,7 +41,10 @@ navbar:
     cran:
       icon: fab fa-r-project
       href: https://cloud.r-project.org/package=<%= pkg %>
-
+      
+search:
+  exclude: ['README_ja.md']
+  
 template:
   params:
     docsearch: