Merge branch 'pr86' into develop

Author: HenrikBengtsson

tests/with_progress.R

@@ -167,6 +167,20 @@ if (requireNamespace("utils", quietly = TRUE)) {
 message("with_progress() - multiple handlers ... done")
 
 
+message("with_progress() - return value and visibility ...")
+
+res <- with_progress(x)
+stopifnot(identical(x, res))
+
+res <- withVisible(with_progress(x))
+stopifnot(identical(res$visible, TRUE))
+
+res <- withVisible(with_progress(y <- x))
+stopifnot(identical(res$visible, FALSE))
+
+message("with_progress() - return value and visibility ... done")
+
+
 message("with_progress() ... done")
 
 source("incl/end.R")

tests/without_progress.R

@@ -13,4 +13,19 @@ with_progress(without_progress(y <- slow_sum(x)))
 
 message("without_progress() ... done")
 
+
+message("without_progress() - return value and visibility ...")
+
+res <- without_progress(x)
+stopifnot(identical(x, res))
+
+res <- withVisible(without_progress(x))
+stopifnot(identical(res$visible, TRUE))
+
+res <- withVisible(without_progress(y <- x))
+stopifnot(identical(res$visible, FALSE))
+
+message("without_progress() - return value and visibility ... done")
+
+
 source("incl/end.R")