TESTS: Add more clues, in case there are errors [#7]

futureverse · May 9, 2024 · c2edb0c · c2edb0c
1 parent b957a5f
commit c2edb0c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: future.mirai
-Version: 0.2.0-9000
+Version: 0.2.0-9001
 Depends:
     future
 Imports:

diff --git a/tests/mirai_cluster,worker-termination.R b/tests/mirai_cluster,worker-termination.R
@@ -20,7 +20,10 @@ if (.Platform$OS.type != "windows") {
   res <- tryCatch(value(f), error = identity)
   print(res)
   stopifnot(inherits(res, "FutureError"))
-
+
+  message("Number of workers: ", nbrOfWorkers())
+  message("Number of free workers: ", nbrOfFreeWorkers())
+
   stopifnot(
     nbrOfWorkers() == all - 1L,
     nbrOfFreeWorkers() == free - 1L