TESTS: Add package test with 'furrr' too

Author: HenrikBengtsson

.gitignore

@@ -2,3 +2,4 @@
 *~
 **/*~
 .local
+inst/doc

DESCRIPTION

@@ -7,20 +7,23 @@ Authors@R: c(
          email = "henrikb@braju.com"))
 License: GPL (>= 3)
 Imports:
-  digest
+    digest
 Suggests:
-  utils,
-  tcltk,
-  beepr,
-  notifier,
-  pbmcapply,
-  plyr,
-  progress,
-  future.apply,
-  doFuture
+    utils,
+    tcltk,
+    beepr,
+    notifier,
+    pbmcapply,
+    plyr,
+    progress,
+    ## For testing purposes:
+    doFuture,
+    future.apply,
+    furrr
 Remotes:
   gaborcsardi/notifier@d92b1b6
 URL: https://github.com/HenrikBengtsson/progressr
 BugReports: https://github.com/HenrikBengtsson/progressr/issues
 RoxygenNote: 6.1.1
 Roxygen: list(markdown = TRUE)
+

tests/zzz,furrr.R

@@ -0,0 +1,12 @@
+library(progressr)
+options(progressr.interval = 0.0, progressr.delay = 0.01)
+
+if (requireNamespace("furrr", quietly = TRUE)) {
+  with_progress({
+    p <- progressor(10)
+    y <- furrr::future_map(1:10, function(x) {
+      p()
+      slow_sum(x, stdout=TRUE, message=TRUE)
+    })
+  })
+}