TESTS: be agile to required test arguments

Author: HenrikBengtsson

DESCRIPTION

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

inst/testme/test-Test-class.R

@@ -4,12 +4,6 @@
 library(future.tests)
 library(future)
 
-lazy <- FALSE
-global <- TRUE
-stdout <- TRUE
-value <- TRUE
-recursive <- FALSE
-
 tests <- load_tests()
 message("Number of tests: ", length(tests))
 
@@ -19,7 +13,14 @@ print(df_tests)
 message("Run first three tests ...")
 
 library(future)
-results <- run_tests(head(tests, 3L))
+
+tests_3 <- head(tests, 3L)
+
+## Create default values
+defaults <- lapply(tests_3, FUN = function(test) test[["args"]])
+defaults <- do.call(c, unname(defaults))
+defaults <- lapply(defaults, FUN = function(arg) arg[[1]])
+results <- run_tests(tests_3, defaults = defaults)
 print(results)
 
 df_results <- do.call(rbind, results)
@@ -34,9 +35,6 @@ tests <- tests[seq(from = 1L, to = length(tests), length.out = 5L)]
 
 library(future)
 
-value <- TRUE
-recursive <- FALSE
-
 ntests <- length(tests)
 
 add_test_plan(plan(sequential))

inst/testme/test-one-test.R

@@ -1,16 +1,14 @@
 library(future.tests)
 library(future)
 
-lazy <- FALSE
-global <- TRUE
-stdout <- TRUE
-value <- TRUE
-recursive <- FALSE
-
 tests <- load_tests()
 
 test <- tests[[1]]
 print(test)
 
-result <- run_test(test)
+## Create default values
+defaults <- test[["args"]]
+defaults <- lapply(defaults, FUN = function(arg) arg[[1]])
+
+result <- run_test(test, defaults = defaults)
 print(result)