442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
|
(eq? (hash-table-ref/default test-registery x #f) 'start))
(hash-table-keys test-registery))
", "))
(thread-sleep! 0.1)
(loop hed tal reruns))
((not have-resources) ;; simply try again after waiting a second
(debug:print-info 1 "no resources to run new tests, waiting ...")
;; (thread-sleep! (+ 2 *global-delta*))
;; could have done hed tal here but doing car/cdr of newtal to rotate tests
(loop (car newtal)(cdr newtal) reruns))
((and have-resources
(or (null? prereqs-not-met)
(and (eq? testmode 'toplevel)
(null? non-completed))))
(run:test run-id runname keyvallst test-record flags #f)
|
>
>
|
|
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
|
(eq? (hash-table-ref/default test-registery x #f) 'start))
(hash-table-keys test-registery))
", "))
(thread-sleep! 0.1)
(loop hed tal reruns))
((not have-resources) ;; simply try again after waiting a second
(debug:print-info 1 "no resources to run new tests, waiting ...")
;; Have gone back and forth on this but db starvation is an issue.
;; wait one second before looking again to run jobs.
(thread-sleep! 1) ;; (+ 2 *global-delta*))
;; could have done hed tal here but doing car/cdr of newtal to rotate tests
(loop (car newtal)(cdr newtal) reruns))
((and have-resources
(or (null? prereqs-not-met)
(and (eq? testmode 'toplevel)
(null? non-completed))))
(run:test run-id runname keyvallst test-record flags #f)
|