Overview
Comment: | wip |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65-rerun-logpro |
Files: | files | file ages | folders |
SHA1: |
386832d44235c0915bd0c59098ed39ee |
User & Date: | bjbarcla on 2018-12-13 15:50:49 |
Other Links: | branch diff | manifest | tags |
Context
2018-12-14
| ||
16:38 | wip check-in: 86beaad746 user: bjbarcla tags: v1.65-rerun-logpro | |
2018-12-13
| ||
15:50 | wip check-in: 386832d442 user: bjbarcla tags: v1.65-rerun-logpro | |
15:08 | moved runstep from launch.scm to ezsteps.scm check-in: adb0f2f99c user: bjbarcla tags: v1.65-rerun-logpro | |
Changes
Modified launch.scm from [d7bbb073d5] to [5f4f2eac33].
︙ | |||
82 83 84 85 86 87 88 89 90 91 92 93 94 95 | 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 | + + | ;; (debug:print-info 13 *default-log-port* "Error: run-id/test-id/stepname="run-id"/"test-id"/"stepname" => bad csvr="csvr) ;; ) (cond ((equal? status "PASS") "PASS") ;; skip the message part if status is pass (status (conc (configf:lookup dat "final" "exit-status") ": " (if msg msg "no message"))) (else #f))) #f))) (define (launch:manage-steps run-id test-id item-path fullrunscript ezsteps subrun test-name tconfigreg exit-info m) ;; (let-values ;; (((pid exit-status exit-code) ;; (run-n-wait fullrunscript))) ;; (tests:test-set-status! test-id "RUNNING" "n/a" #f #f) ;; Since we should have a clean slate at this time there is no need to do |
︙ | |||
168 169 170 171 172 173 174 | 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 | - + | (debug:print-error 0 *default-log-port* "ezsteps defined but ezstepslst is zero length") (let loop ((ezstep (car ezstepslst)) (tal (cdr ezstepslst)) (prevstep #f)) (debug:print-info 0 *default-log-port* "Processing ezstep \"" (string-intersperse ezstep " ") "\"") ;; check exit-info (vector-ref exit-info 1) (if (launch:einf-exit-status exit-info) ;; (vector-ref exit-info 1) |
︙ |