TESTS: Skip plan(..., workers = <...>) tests if plan tested has already set 'workers'

Author: HenrikBengtsson

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: future.tests
 Title: Test Suite for 'Future API' Backends
-Version: 0.9.0-9012
+Version: 0.9.0-9013
 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

@@ -18,6 +18,12 @@
    that is about to be deprecated in the **future** package.
 
  * Relax assertions in test of `resolved()` with lazy futures.
+
+## Bug Fixes
+
+ * Tests on `plan()` adjusting argument `workers` were not skipped if
+   the plan tested already sets argument `workers` to a fixed value,
+   e.g. `plan(cluster, workers = cl)`.
 
 
 # Version 0.9.0 [2025-04-14]

inst/test-db/plan.R

@@ -12,7 +12,14 @@ make_test(title = "plan() - workers=<numeric>", args = list(), tags = c("plan",
     future.tests::skip_test()
     return()
   }
-  
+
+  ## Is argument 'workers' already set?
+  current_tweaks <- attr(current_plan, "tweaks", exact = TRUE)
+  if ("workers" %in% names(current_tweaks)) {
+    future.tests::skip_test()
+    return()
+  }
+
   ## FIXME: These tests only work for backends where 'workers' take
   ##        numeric values.
   plan(current_plan, workers = 1L)
@@ -41,7 +48,14 @@ make_test(title = "plan() - workers=<function>", args = list(), tags = c("plan",
     future.tests::skip_test()
     return()
   }
-  
+
+  ## Is argument 'workers' already set?
+  current_tweaks <- attr(current_plan, "tweaks", exact = TRUE)
+  if ("workers" %in% names(current_tweaks)) {
+    future.tests::skip_test()
+    return()
+  }
+
   n0 <- nbrOfWorkers()
   cat(sprintf("Number of initial workers: %g\n", n0))
 
@@ -83,7 +97,14 @@ make_test(title = "plan() - workers=<invalid>", args = list(), tags = c("plan",
     future.tests::skip_test()
     return()
   }
-  
+
+  ## Is argument 'workers' already set?
+  current_tweaks <- attr(current_plan, "tweaks", exact = TRUE)
+  if ("workers" %in% names(current_tweaks)) {
+    future.tests::skip_test()
+    return()
+  }
+
   ## Invalid number of workers or value on 'workers'
   res <- tryCatch({
     plan(current_plan, workers = 0L)