Overview
| Comment: | Fixed SKIP handling |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6031 | v1.60_defunct |
| Files: | files | file ages | folders |
| SHA1: |
d1581174c1b9771dfbd8d470331a3cfc |
| User & Date: | mrwellan on 2016-03-11 11:01:13 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-03-12
| ||
| 00:49 | SKIP now working after adding stop on skip check-in: f07159010c user: matt tags: v1.60_defunct | |
|
2016-03-11
| ||
| 11:01 | Fixed SKIP handling check-in: d1581174c1 user: mrwellan tags: v1.6031, v1.60_defunct | |
|
2016-03-09
| ||
| 22:25 | Drop default number of reruns to 1 check-in: 34b0e9037f user: matt tags: v1.60_defunct | |
Changes
Modified launch.scm from [62ddd3c164] to [73c2d4b810].
| ︙ | ︙ | |||
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)
|
| ︙ | ︙ |