Overview
| Comment: | Undo short-circuit of check of can run more tests ==/FAIL/orion,mars/== |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-failed-testdat |
| Files: | files | file ages | folders |
| SHA1: |
cc8c96d82216317d7c917cbfafcebf28 |
| User & Date: | mrwellan on 2020-09-23 13:21:58 |
| Original Comment: | Undo short-circuit of check of can run more tests |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-09-23
| ||
| 15:16 | Do not exit on failure to create directory - race conditons on NFS cause false fail scenarios - just keep going and cross your fingers... ==/FAIL/orion,mars/== check-in: c5b1d00b22 user: mrwellan tags: v1.6572, v1.65-failed-testdat | |
| 13:21 | Undo short-circuit of check of can run more tests ==/FAIL/orion,mars/== check-in: cc8c96d822 user: mrwellan tags: v1.65-failed-testdat | |
|
2020-09-22
| ||
| 11:17 | changed version to 1.6572 ==/FAIL/orion,mars/== check-in: f26da7218e user: mmgraham tags: v1.6572, v1.65-failed-testdat | |
Changes
Modified runs.scm from [030b929939] to [e5ce9acbf0].
| ︙ | ︙ | |||
1781 1782 1783 1784 1785 1786 1787 |
(loop (car tal)(cdr tal) reg reruns)))
;; if items is a proc then need to run items:get-items-from-config, get the list and loop
;; - but only do that if resources exist to kick off the job
;; EXPAND ITEMS
((or (procedure? items)(eq? items 'have-procedure))
(debug:print-info 4 *default-log-port* "cond branch - " "rtq-4")
| | | | | > > > | < < | 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 |
(loop (car tal)(cdr tal) reg reruns)))
;; if items is a proc then need to run items:get-items-from-config, get the list and loop
;; - but only do that if resources exist to kick off the job
;; EXPAND ITEMS
((or (procedure? items)(eq? items 'have-procedure))
(debug:print-info 4 *default-log-port* "cond branch - " "rtq-4")
(let ((can-run-more (runs:can-run-more-tests runsdat run-id jobgroup max-concurrent-jobs)))
(if (and (list? can-run-more)
(car can-run-more)) ;; itemized test expanded here
(let ((loop-list (runs:expand-items hed tal reg reruns regfull newtal jobgroup
max-concurrent-jobs run-id waitons item-path
testmode test-record can-run-more items runname
tconfig reglen test-registry test-records itemmaps)))
(if loop-list
(apply loop loop-list)
(debug:print-info 4 *default-log-port* " -- Can't expand hed="hed)))
;; if can't run more just loop with next possible test
(loop (car newtal)(cdr newtal) reg reruns))))
;; this case should not happen, added to help catch any bugs
((and (list? items) itemdat)
(debug:print-info 4 *default-log-port* "cond branch - " "rtq-5")
(debug:print-error 0 *default-log-port* "Should not have a list of items in a test and the itemspath set - please report this")
|
| ︙ | ︙ |