Overview
| Comment: | Cherry pick from d1581174c1: Fixed SKIP handling |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | rebase-envprocessing |
| Files: | files | file ages | folders |
| SHA1: |
a0aaa881dfd2de7133bd53e4ae8abdd8 |
| User & Date: | mrwellan on 2016-04-28 08:38:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-04-28
| ||
| 08:39 | Cherry pick from f07159010c: SKIP now working after adding stop on skip check-in: fa0e02b9cd user: mrwellan tags: rebase-envprocessing | |
| 08:38 | Cherry pick from d1581174c1: Fixed SKIP handling check-in: a0aaa881df user: mrwellan tags: rebase-envprocessing | |
| 08:38 | Cherry pick from 34b0e9037f: Drop default number of reruns to 1 check-in: 8af90deb5c user: mrwellan tags: rebase-envprocessing | |
Changes
Modified launch.scm from [906a43fb00] to [fecc064d89].
| ︙ | ︙ | |||
136 137 138 139 140 141 142 |
(logfna (if logpro-used (conc stepname ".html") "")))
(rmt:teststep-set-status! run-id test-id stepname "end" exinfo #f logfna))
(if logpro-used
(rmt:test-set-log! run-id test-id (conc stepname ".html")))
;; set the test final status
(let* ((process-exit-status (launch:einf-exit-code exit-info)) ;; (vector-ref exit-info 2))
(this-step-status (cond
| | | | | > | | 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 |
(logfna (if logpro-used (conc stepname ".html") "")))
(rmt:teststep-set-status! run-id test-id stepname "end" exinfo #f logfna))
(if logpro-used
(rmt:test-set-log! run-id test-id (conc stepname ".html")))
;; set the test final status
(let* ((process-exit-status (launch:einf-exit-code exit-info)) ;; (vector-ref exit-info 2))
(this-step-status (cond
((and (eq? process-exit-status 2) logpro-used) 'warn) ;; logpro 2 = warnings
((and (eq? process-exit-status 3) logpro-used) 'check) ;; logpro 3 = check
((and (eq? process-exit-status 4) logpro-used) 'waived) ;; logpro 4 = waived
((and (eq? process-exit-status 5) logpro-used) 'abort) ;; logpro 5 = abort
((and (eq? process-exit-status 6) logpro-used) 'skip) ;; logpro 6 = skip
((eq? process-exit-status 0) 'pass) ;; logpro 0 = pass
(else 'fail)))
(overall-status (cond
((eq? (launch:einf-rollup-status exit-info) 2) 'warn) ;; rollup-status (vector-ref exit-info 3)
((eq? (launch:einf-rollup-status exit-info) 0) 'pass) ;; (vector-ref exit-info 3)
(else 'fail)))
(next-status (cond
((eq? overall-status 'pass) this-step-status)
|
| ︙ | ︙ |