TESTS: woops, forgot to add progressor

Author: HenrikBengtsson

tests/zzz,doFuture.R

@@ -5,7 +5,9 @@ if (requireNamespace("doFuture", quietly = TRUE)) {
   library("doFuture", character.only = TRUE)
   registerDoFuture()
   with_progress({
+    p <- progressor(10)
     y <- foreach(x = 1:10) %dopar% {
+      p()
       slow_sum(x, stdout=TRUE, message=TRUE)
     }
   })

tests/zzz,future.apply.R

@@ -3,7 +3,9 @@ options(progressr.interval = 0.0, progressr.delay = 0.01)
 
 if (requireNamespace("future.apply", quietly = TRUE)) {
   with_progress({
+    p <- progressor(10)
     y <- future.apply::future_lapply(1:10, function(x) {
+      p()
       slow_sum(x, stdout=TRUE, message=TRUE)
     })
   })