Differences From Artifact [7fbb0be9d4]:
- File runs.scm — part of check-in [8b52109594] at 2017-12-29 15:58:43 on branch v1.65 — we need to wait longer for state-status to settle for run wait (user: bjbarcla, size: 135004) [annotate] [blame] [check-ins using]
To Artifact [977a378661]:
- File runs.scm — part of check-in [e4b276aa24] at 2017-12-31 00:38:36 on branch v1.65-cant-verify-at-home — idea (user: bb, size: 135117) [annotate] [blame] [check-ins using] [more...]
| ︙ | ︙ | |||
2142 2143 2144 2145 2146 2147 2148 2149 2150 2151 2152 2153 2154 2155 |
(loop (car newtal)(cdr newtal)))
))
) ; end case rem-status
) ; end let
); end cond has-subrun
(else
(debug:print-info 0 *default-log-port* "test: " test-name " itest-state: " test-state)
(if (member test-state (list "RUNNING" "LAUNCHED" "REMOTEHOSTSTART" "KILLREQ"))
(begin
(if (not (hash-table-ref/default test-retry-time test-fulln #f))
(begin
;; want to set to REMOVING BUT CANNOT do it here?
(hash-table-set! test-retry-time test-fulln (current-seconds))))
| > | 2142 2143 2144 2145 2146 2147 2148 2149 2150 2151 2152 2153 2154 2155 2156 |
(loop (car newtal)(cdr newtal)))
))
) ; end case rem-status
) ; end let
); end cond has-subrun
(else
;; BB - TODO - consider backgrounding to threads to delete tests (work below)
(debug:print-info 0 *default-log-port* "test: " test-name " itest-state: " test-state)
(if (member test-state (list "RUNNING" "LAUNCHED" "REMOTEHOSTSTART" "KILLREQ"))
(begin
(if (not (hash-table-ref/default test-retry-time test-fulln #f))
(begin
;; want to set to REMOVING BUT CANNOT do it here?
(hash-table-set! test-retry-time test-fulln (current-seconds))))
|
| ︙ | ︙ |