Overview
| Comment: | Add force of INCOMPLETE on recipt of KILL signal and allow rerun of INCOMPLETE |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
466d73ebe85382a4aaa2bd8dd045e3ef |
| User & Date: | matt on 2015-09-29 00:00:22 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-10-04
| ||
| 23:26 | Added cache for testconfig. Corrected field order in dashboard test control panel check-in: d1f77a7687 user: matt tags: v1.60 | |
|
2015-09-29
| ||
| 00:00 | Add force of INCOMPLETE on recipt of KILL signal and allow rerun of INCOMPLETE check-in: 466d73ebe8 user: matt tags: v1.60 | |
|
2015-09-28
| ||
| 23:55 | Add force of INCOMPLETE on recipt of KILL signal and allow rerun of INCOMPLETE check-in: 819c0ffe18 user: matt tags: v1.60 | |
Changes
Modified launch.scm from [8b1cffaed9] to [5d62fc5f7e].
| ︙ | ︙ | |||
238 239 240 241 242 243 244 | ;; (set-signal-handler! signal/int (lambda () ;; Do not run the test if it is REMOVING, RUNNING, KILLREQ or REMOTEHOSTSTART, ;; Mark the test as REMOTEHOSTSTART *IMMEDIATELY* ;; (let ((test-info (rmt:get-testinfo-state-status run-id test-id))) (cond | | | 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 |
;; (set-signal-handler! signal/int (lambda ()
;; Do not run the test if it is REMOVING, RUNNING, KILLREQ or REMOTEHOSTSTART,
;; Mark the test as REMOTEHOSTSTART *IMMEDIATELY*
;;
(let ((test-info (rmt:get-testinfo-state-status run-id test-id)))
(cond
((member (db:test-get-state test-info) '("INCOMPLETE" "KILLED" "UNKNOWN" "KILLREQ" "STUCK")) ;; prior run of this test didn't complete, go ahead and try to rerun
(debug:print 0 "INFO: test is INCOMPLETE or KILLED, treat this execute call as a rerun request")
(tests:test-force-state-status! run-id test-id "REMOTEHOSTSTART" "n/a")) ;; prime it for running
((not (member (db:test-get-state test-info) '("REMOVING" "REMOTEHOSTSTART" "RUNNING" "KILLREQ")))
(tests:test-force-state-status! run-id test-id "REMOTEHOSTSTART" "n/a"))
(else ;; (member (db:test-get-state test-info) '("REMOVING" "REMOTEHOSTSTART" "RUNNING" "KILLREQ"))
(debug:print 0 "ERROR: test state is " (db:test-get-state test-info) ", cannot proceed")
(exit))))
|
| ︙ | ︙ |