335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
|
(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)
(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)
|
>
>
|
|
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))))
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)
|