' d='M14,14H2V2h12v12z'/%3E%3Cpath style='fill:rgb(64,64,64)' d='M13,13H3V3h10v10z'/%3E%3Cpath style='fill:rgb(248,248,248)' d='M12,12H4V4h8v8z'/%3E%3Cpath style='fill:rgb(80,128,208)' d='M11,9H5V7h6v6z'/%3E%3C/svg%3E)
' d='M14,14H2V2h12v12z'/%3E%3Cpath style='fill:rgb(64,64,64)' d='M13,13H3V3h10v10z'/%3E%3Cpath style='fill:rgb(248,248,248)' d='M12,12H4V4h8v8z'/%3E%3Cpath style='fill:rgb(80,128,208)' d='M5,7h2v-2h2v2h2v2h-2v2h-2v-2h-2z'/%3E%3C/svg%3E)
Overview| Comment: | idea |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-cant-verify-at-home |
| Files: | files | file ages | folders |
| SHA1: |
e4b276aa24aa86724ac0cd824a722788 |
| User & Date: | bb on 2017-12-31 00:38:36 |
| Other Links: | branch diff | manifest | tags |
Context|
2018-01-29
| ||
| 12:11 | added launch fail detection and fix for test panel crash on missing ld_lib_path issue check-in: fe0ca9de59 user: bjbarcla tags: v1.65 | |
|
2017-12-31
| ||
| 00:38 | idea Leaf check-in: e4b276aa24 user: bb tags: v1.65-cant-verify-at-home | |
|
2017-12-30
| ||
| 03:12 | fixed two probable bugs check-in: b711d2b430 user: bb tags: v1.65-cant-verify-at-home | |
ChangesModified runs.scm from [7fbb0be9d4] to [977a378661].
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))))
|