309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
|
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
|
-
-
+
+
|
(filter
(lambda (t)
(or (not (vector? t))
(not (equal? "COMPLETED" (db:test-get-state t)))))
prereqs-not-met)))
(pretty-string (lambda (lst)
(map (lambda (t)
(if (string? t)
t
(if (not (vector? t))
(conc t)
(conc (db:test-get-testname t) ":" (db:test-get-state t) "/" (db:test-get-status t))))
lst))))
(debug:print 6
"itemdat: " itemdat
"\n items: " items
"\n item-path: " item-path
"\n waitons: " waitons)
|
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
|
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
|
-
-
-
+
+
+
|
(let* ((have-resources (runs:can-run-more-tests db test-record)) ;; look at the test jobgroup and tot jobs running
(prereqs-not-met (db:get-prereqs-not-met db run-id waitons item-path mode: testmode))
(fails (calc-fails prereqs-not-met))
(non-completed (calc-not-completed prereqs-not-met)))
(debug:print 8 "INFO: have-resources: " have-resources " prereqs-not-met: "
(string-intersperse
(map (lambda (t)
(if (string? t)
(conc " WARNING: t is a string=" t )
(conc (db:test-get-state t)"/"(db:test-get-status t))))
(if (not (vector? t))
(conc " WARNING: t is not a vector=" t )
(conc (db:test-get-state t) "/" (db:test-get-status t))))
prereqs-not-met) ", ") " fails: " fails)
;; Don't know at this time if the test have been launched at some time in the past
;; i.e. is this a re-launch?
(cond
((and have-resources
(or (null? prereqs-not-met)
(and (eq? testmode 'toplevel)
|