TESTS: Test that handlers can deal with zero-length progressors (#108)

Author: HenrikBengtsson

tests/handler_pbmcapply.R

@@ -2,8 +2,11 @@ source("incl/start.R")
 
 if (requireNamespace("pbmcapply", quietly = TRUE)) {
   handlers("pbmcapply")
-  with_progress({ y <- slow_sum(1:10) })
-  print(y)
+  for (x in list(1:10, 1L, integer(0))) {
+    message("length(x): ", length(x))
+    with_progress({ y <- slow_sum(x) })
+    print(y)
+  }
 }
 
 source("incl/end.R")

tests/handler_progress.R

@@ -6,17 +6,18 @@ if (requireNamespace("progress", quietly = TRUE)) {
   options(progressr.handlers = handler_progress)
 }  
 
-x <- 1:10
-
 message("handler_progress() ...")
 
-with_progress({
-  progress <- progressor(along = x)
-  for (ii in x) {
-    Sys.sleep(getOption("progressr.demo.delay", 0.1))
-    progress(message = sprintf("(%s)", paste(letters[1:ii], collapse="")))
-  }
-})
+for (x in list(1:10, 1L, integer(0))) {
+  message("length(x): ", length(x))
+  with_progress({
+    progress <- progressor(along = x)
+    for (ii in x) {
+      Sys.sleep(getOption("progressr.demo.delay", 0.1))
+      progress(message = sprintf("(%s)", paste(letters[1:ii], collapse="")))
+    }
+  })
+}
 
 message("handler_progress() ... done")
 

tests/handler_rstudio.R

@@ -6,17 +6,18 @@ if (requireNamespace("rstudioapi", quietly = TRUE) && rstudioapi::isAvailable())
   options(progressr.handlers = handler_rstudio)
 }  
 
-x <- 1:10
-
 message("handler_rstudio() ...")
 
-with_progress({
-  progress <- progressor(along = x)
-  for (ii in x) {
-    Sys.sleep(getOption("progressr.demo.delay", 0.1))
-    progress(message = sprintf("(%s)", paste(letters[1:ii], collapse="")))
-  }
-})
+for (x in list(1:10, 1L, integer(0))) {
+  message("length(x): ", length(x))
+  with_progress({
+    progress <- progressor(along = x)
+    for (ii in x) {
+      Sys.sleep(getOption("progressr.demo.delay", 0.1))
+      progress(message = sprintf("(%s)", paste(letters[1:ii], collapse="")))
+    }
+  })
+}
 
 message("handler_rstudio() ... done")
 

tests/handler_tkprogressbar.R

@@ -6,16 +6,20 @@ if (capabilities("tcltk") && requireNamespace("tcltk", quietly = TRUE)) {
   options(progressr.handlers = handler_tkprogressbar)
 }  
 
-x <- 1:10
 
 message("handler_progress() ...")
-with_progress({
-  progress <- progressor(along = x)
-  for (ii in x) {
-    Sys.sleep(getOption("progressr.demo.delay", 0.1))
-    progress(message = sprintf("(%s)", paste(letters[1:ii], collapse="")))
-  }
-})
+
+for (x in list(1:10, 1L, integer(0))) {
+  message("length(x): ", length(x))
+  with_progress({
+    progress <- progressor(along = x)
+    for (ii in x) {
+      Sys.sleep(getOption("progressr.demo.delay", 0.1))
+      progress(message = sprintf("(%s)", paste(letters[1:ii], collapse="")))
+    }
+  })
+}
+
 message("handler_progress() ... done")
 
 source("incl/end.R")

tests/progressor.R

@@ -18,6 +18,14 @@ local({
   p("A message")
 })
 
+message("- zero length")
+local({
+  p <- progressor(0L)
+  print(p)
+  p()
+  p("A message")
+})
+
 message("- multiple consequtive progressors")
 local({
   message("Progressor #1")