TESTS: Increase test coverage

Author: HenrikBengtsson

tests/handlers.R

@@ -5,9 +5,24 @@ message("handlers() ...")
 hs <- handlers()
 print(hs)
 
+for (kk in seq_along(hs)) {
+  h <- hs[[kk]]
+  print(h)
+  handler <- h()
+  print(handler)
+}
+
+
 hs <- handlers("txtprogressbar")
 print(hs)
-print(hs[[1]])
+
+for (kk in seq_along(hs)) {
+  h <- hs[[kk]]
+  print(h)
+  handler <- h()
+  print(handler)
+}
+
 
 message("handlers() ... DONE")
 

tests/incl/start,load-only.R

@@ -6,6 +6,8 @@ oopts0 <- options()
 ## Default options for tests
 oopts <- options()
 
+check_full <- isTRUE(as.logical(Sys.getenv("R_CHECK_FULL", "FALSE")))
+
 ## Private
 `%||%` <- progressr:::`%||%`
 hpaste <- progressr:::hpaste
@@ -30,6 +32,11 @@ non_supported_progression_handlers <- function() {
   if (.Platform$OS.type != "windows") {
     names <- c(names, "winprogressbar")
   }
+  if (!check_full) {
+    names <- c(names, "notifier")
+    names <- c(names, "shiny")
+  }
+  names <- unique(names)
   paste0(names, "_handler")
 }
 

tests/progressor.R

@@ -0,0 +1,13 @@
+source("incl/start.R")
+
+message("progressor() ...")
+
+p <- progressor(3L)
+print(p)
+
+p <- progressor(along = 1:3)
+print(p)
+
+message("progressor() ... DONE")
+
+source("incl/end.R")

tests/utils.R

@@ -96,6 +96,12 @@ print(in_r_cmd_check())
 message("*** in_r_cmd_check() ... done")
 
 
+message("*** .onLoad() ...")
+
+progressr:::.onLoad(pkgname = "progressr")
+
+message("*** .onLoad() ... done")
+
 message("*** utils ... DONE")
 
 source("incl/end.R")

tests/zzz,shiny.R

@@ -0,0 +1,18 @@
+source("incl/start.R")
+
+if (requireNamespace("shiny", quietly = TRUE)) {
+  ## This will generate:
+  ## Error in shiny::withProgress(expr, ..., env = env, quoted = TRUE) : 
+  ## 'session' is not a ShinySession object.
+  tryCatch({
+    withProgressShiny({
+      p <- progressor(3L)
+      y <- lapply(1:3, function(n) {
+        p()
+        slow_sum(1:n, stdout=TRUE, message=TRUE)
+      })
+    })
+  }, error = identity)
+}
+
+source("incl/end.R")