TESTS: Add more tests

Author: HenrikBengtsson

tests/debug.R

@@ -2,7 +2,7 @@ source("incl/start.R")
 
 message("with_progress() - progressr.debug = TRUE ...")
 
-options(progressr.handlers = progressr:::known_progression_handlers(exclude = "shiny_handler"))
+options(progressr.debug = TRUE)
 
 with_progress({
   y <- slow_sum(1:10)

tests/make_progression_handler.R

@@ -0,0 +1,21 @@
+source("incl/start.R")
+
+options(progressr.debug = TRUE)
+
+message("make_progression_handler() ...")
+
+my_handler <- function(symbol = "*", file = stderr(), target = "terminal", ...) {
+  reporter <- local({
+    list(
+      update = function(config, state, progression, ...) {
+        if (state$enabled && progression$amount != 0) cat(file = file, symbol)
+      }
+    )
+  })
+
+  make_progression_handler("my_handler", reporter, ...)
+}
+
+message("make_progression_handler() ... done")
+
+source("incl/end.R")