Add a bit more debug info around batchtools::waitForJobs() call

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future.batchtools
-Version: 0.12.2-9964
+Version: 0.12.2-9965
 Depends:
     R (>= 3.2.0),
     parallelly,

R/BatchtoolsFutureBackend-class.R

@@ -766,9 +766,17 @@ await <- function(future, cleanup = TRUE, ...) {
   ## Sleep function - increases geometrically as a function of iterations
   sleep_fcn <- function(i) delta * alpha ^ (i - 1)
 
+  if (debug) mdebugf_push("batchtools::waitForJobs(..., timeout = %s) ...", timeout)
   res <- waitForJobs(ids = jobid, timeout = timeout, sleep = sleep_fcn,
                      stop.on.error = FALSE, reg = reg)
-  if (debug) mdebugf("batchtools::waitForJobs(): %s", res)
+  if (!isTRUE(res)) {
+    warning(FutureWarning(sprintf("batchtools::waitForJobs(..., timeout = %s) returned FALSE", timeout), future = future))
+  }
+  if (debug) {
+    mdebugf("Result: %s", res)
+    mdebugf_pop()
+  }
+  
   stat <- status(future)
   if (debug) {
     mdebugf("status(): %s", paste(sQuote(stat), collapse = ", "))