1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
|
;; gonna try a strategy change here.
;;
;; check if can run more tests. if yes, continue, if no, rest for 10 seconds, check again
;; repeat until can run more tests
;;
;; look at the test jobgroup and tot jobs running
(if (not (runs:dat-wait-for-jobs-funcion runsdat))
(runs:dat-wait-for-jobs-function-set!
runsdat
(lambda ()
(let loop-can-run-more
((res (runs:can-run-more-tests runsdat run-id jobgroup max-concurrent-jobs))
(remtries 1440)) ;; we can wait for up to two hours for jobs to get done
(match res
|
|
|
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
|
;; gonna try a strategy change here.
;;
;; check if can run more tests. if yes, continue, if no, rest for 10 seconds, check again
;; repeat until can run more tests
;;
;; look at the test jobgroup and tot jobs running
(if (not (runs:dat-wait-for-jobs-function runsdat))
(runs:dat-wait-for-jobs-function-set!
runsdat
(lambda ()
(let loop-can-run-more
((res (runs:can-run-more-tests runsdat run-id jobgroup max-concurrent-jobs))
(remtries 1440)) ;; we can wait for up to two hours for jobs to get done
(match res
|