make_test(): register test by default, unless there is a 'devel' tag and R option 'future.tests.devel' is not TRUE

Author: HenrikBengtsson

DESCRIPTION

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

@@ -4,7 +4,7 @@
 
  * 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.
+   tests with a `"devel"` ("under developement") tag will be included.
 
 ## Test Updates
 

R/make_test.R

@@ -14,12 +14,13 @@
 #' futures.
 #'
 #' @param register If TRUE, the test is registered in the test database,
-#' otherwise not.
+#' otherwise not. The default is to register the test, unless `tags` contains
+#' `"devel"`.
 #'
 #' @return (invisibly) A Test.
 #'
 #' @export
-make_test <- function(expr, title = NA_character_, args = list(), tags = NULL, substitute = TRUE, reset_workers = FALSE, register = TRUE) {
+make_test <- function(expr, title = NA_character_, args = list(), tags = NULL, substitute = TRUE, reset_workers = FALSE, register = !("devel" %in% tags) || isTRUE(getOption("future.tests.devel"))) {
   title <- as.character(title)
   stopifnot(length(title) == 1L, nzchar(title))
   if (length(args) > 0) stopifnot(is.list(args), !is.null(names(args)))

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"), register = getOption("future.tests.devel", FALSE), {
+make_test(title = "plan() - interrupts = NA/FALSE/TRUE", args = list(), tags = c("plan", "devel"), {
   current_plan <- plan()
   print(current_plan)