Now the test code is displayed if there is a check error

Author: HenrikBengtsson

DESCRIPTION

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

NEWS.md

@@ -1,6 +1,8 @@
 # Version (development version)
 
- * ...
+## New Features
+
+ * Now the test code is displayed if there is a check error.
 
 
 # Version 0.8.0 [2024-03-31]

R/check_plan.R

@@ -106,26 +106,28 @@ check_plan <- function(tests = test_db(), defaults = list(), timeout = getOption
         args <- as.list(sets_of_args[aa, , drop = FALSE])
         args_tag <- paste(sprintf("%s=%s", names(args), unlist(args)), collapse = ", ")
         msg <- NULL
-	if (status[aa] == "OK") {
+        if (status[aa] == "OK") {
           cat(sprintf("  %s %s\n", ok, args_tag))
-	  total["OK"] <- total["OK"] + 1L
-	} else if (status[aa] == "ERROR") {
+          total["OK"] <- total["OK"] + 1L
+        } else if (status[aa] == "ERROR") {
           cat(sprintf("  %s %s\n", error, args_tag))
-	  total["ERROR"] <- total["ERROR"] + 1L
-	  result <- test_results[[tt]][[aa]]
-	  ex <- result$error
+          total["ERROR"] <- total["ERROR"] + 1L
+          result <- test_results[[tt]][[aa]]
+          ex <- result$error
           msg <- c(sprintf("Error of class %s with message:", sQuote(class(ex)[1])),
                    conditionMessage(ex))
           call <- conditionCall(ex)
-	  if (length(call) > 0) msg <- c(msg, "Call:", deparse(call))
-	  if (length(result$output) > 0) msg <- c(msg, "Output:", result$output)
-	} else if (status[aa] == "SKIP") {
+          if (length(call) > 0) msg <- c(msg, "Call:", deparse(call))
+          code <- paste(deparse(test$expr), collapse = "\n")
+          msg <- c(msg, "Test code:", code)
+          if (length(result$output) > 0) msg <- c(msg, "Output:", result$output)
+        } else if (status[aa] == "SKIP") {
           cat(sprintf("  %s %s\n", skip, args_tag))
-	  total["SKIP"] <- total["SKIP"] + 1L
+          total["SKIP"] <- total["SKIP"] + 1L
           msg <- conditionMessage(test_results[[tt]][[aa]]$skipped)
-	} else if (status[aa] == "TIMEOUT") {
+        } else if (status[aa] == "TIMEOUT") {
           cat(sprintf("  %s %s %s\n", timeout_error, args_tag, yellow(sprintf("(> %s)", pretty_sec(timeout)))))
-	  total["TIMEOUT"] <- total["TIMEOUT"] + 1L
+          total["TIMEOUT"] <- total["TIMEOUT"] + 1L
         }
 
         if (is.character(msg) && length(msg) > 0L && any(nzchar(msg) > 0L)) {