TESTS: sprintf() mistakes. Fixed #66 [ci skip]

Author: HenrikBengtsson

tests/utils.R

@@ -31,7 +31,7 @@ printf("x = %s.\n", hpaste(x))
 printf("x = %s.\n", hpaste(x, max_head = 2))
 ## x = 1, 2, ..., 6.
 
-printf("x = %s.\n", hpaste(x), max_head = 3) # Default
+printf("x = %s.\n", hpaste(x, max_head = 3)) # Default
 ## x = 1, 2, 3, ..., 6.
 
 # It will never output 1, 2, 3, 4, ..., 6

tests/zzz,future_lapply.R

@@ -50,7 +50,7 @@ if (requireNamespace("future.apply", quietly = TRUE)) {
   str(list(y0 = y0))
 
   for (strategy in strategies) {
-    mprintf("- plan('%s') ...\n", strategy, debug = TRUE)
+    mprintf("- plan('%s') ...\n", strategy)
     plan(strategy)
     mprint(plan, debug = TRUE)
     if (nbrOfWorkers() > 2) plan(strategy, workers = 2L)
@@ -74,7 +74,7 @@ if (requireNamespace("future.apply", quietly = TRUE)) {
   str(list(y0 = y0))
 
   for (strategy in strategies) {
-    mprintf("- plan('%s') ...\n", strategy, debug = TRUE)
+    mprintf("- plan('%s') ...\n", strategy)
     plan(strategy)
     mprint(plan, debug = TRUE)
     if (nbrOfWorkers() > 2) plan(strategy, workers = 2L)
@@ -97,7 +97,7 @@ if (requireNamespace("future.apply", quietly = TRUE)) {
   str(list(y0 = y0))
 
   for (strategy in strategies) {
-    mprintf("- plan('%s') ...\n", strategy, debug = TRUE)
+    mprintf("- plan('%s') ...\n", strategy)
     plan(strategy)
     mprint(plan, debug = TRUE)
     if (nbrOfWorkers() > 2) plan(strategy, workers = 2L)
@@ -131,7 +131,7 @@ if (requireNamespace("future.apply", quietly = TRUE)) {
   str(list(y0 = y0))
 
   for (strategy in strategies) {
-    mprintf("- plan('%s') ...\n", strategy, debug = TRUE)
+    mprintf("- plan('%s') ...\n", strategy)
     plan(strategy)
     if (nbrOfWorkers() > 2) plan(strategy, workers = 2L)
     stopifnot(nbrOfWorkers() < Inf)