Overview
| Comment: | Added five second delay in front of run-wait code. This works around a race condition. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
ae43e37aac594dafaccd9c7bdc392a44 |
| User & Date: | matt on 2015-09-03 23:39:12 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-09-07
| ||
| 22:35 | Added -clean-rerun for reseting all FAIL,KILLED,KILLREQ,ABORT etc. tests and rerunning the provided testpatt check-in: a5f377aa33 user: matt tags: v1.60 | |
|
2015-09-03
| ||
| 23:39 | Added five second delay in front of run-wait code. This works around a race condition. check-in: ae43e37aac user: matt tags: v1.60 | |
|
2015-09-02
| ||
| 18:40 | Fixed typo in sql stmt check-in: d975509ef3 user: mrwellan tags: v1.60 | |
Changes
Modified runs.scm from [5c044d06bf] to [994d6dfbe4].
| ︙ | ︙ | |||
1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 |
(debug:print-info 0 "Have leftovers!")
(loop (car reg)(cdr reg) '() reruns))
(else
(debug:print-info 4 "Exiting loop with...\n hed=" hed "\n tal=" tal "\n reruns=" reruns))
)))
;; 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)
(let wait-loop ((num-running (rmt:get-count-tests-running-for-run-id run-id))
(prev-num-running 0))
;; (debug:print 0 "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
| > | 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 |
(debug:print-info 0 "Have leftovers!")
(loop (car reg)(cdr reg) '() reruns))
(else
(debug:print-info 4 "Exiting loop with...\n hed=" hed "\n tal=" tal "\n reruns=" reruns))
)))
;; 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! 5) ;; 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 0 "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
|
| ︙ | ︙ |