Overview
| Comment: | we need to wait longer for state-status to settle for run wait |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
8b52109594c7f506182eb0cf780a8e30 |
| User & Date: | bjbarcla on 2017-12-29 15:58:43 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-12-29
| ||
| 16:10 | run-wait should wait on launched tests too check-in: 9f03d93cdd user: bjbarcla tags: v1.65 | |
| 15:58 | we need to wait longer for state-status to settle for run wait check-in: 8b52109594 user: bjbarcla tags: v1.65 | |
| 15:33 | typo check-in: a630d7090c user: bjbarcla tags: v1.65 | |
Changes
Modified runs.scm from [6feb7f0612] to [7fbb0be9d4].
| ︙ | ︙ | |||
1568 1569 1570 1571 1572 1573 1574 |
(else
(debug:print-info 4 *default-log-port* "cond branch - " "rtq-9")
(debug:print-info 4 *default-log-port* "Exiting loop with...\n hed=" hed "\n tal=" tal "\n reruns=" reruns))
))) ;; end loop on sorted test names
;; now *if* -run-wait we wait for all tests to be done
;; Now wait for any RUNNING tests to complete (if in run-wait mode)
| | | 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 |
(else
(debug:print-info 4 *default-log-port* "cond branch - " "rtq-9")
(debug:print-info 4 *default-log-port* "Exiting loop with...\n hed=" hed "\n tal=" tal "\n reruns=" reruns))
))) ;; end loop on sorted test names
;; now *if* -run-wait we wait for all tests to be done
;; Now wait for any RUNNING tests to complete (if in run-wait mode)
(thread-sleep! 10) ;; I think there is a race condition here. Let states/statuses settle
(let wait-loop ((num-running (rmt:get-count-tests-running-for-run-id run-id))
(prev-num-running 0))
;; (debug:print-info 13 *default-log-port* "num-running=" num-running ", prev-num-running=" prev-num-running)
(if (and (or (args:get-arg "-run-wait")
(equal? (configf:lookup *configdat* "setup" "run-wait") "yes"))
(> num-running 0))
(begin
|
| ︙ | ︙ |