Overview
Comment: | wip |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | v1.65-rerun-logpro |
Files: | files | file ages | folders |
SHA1: |
aefba9d5f100edcf3c42a787563a2c23 |
User & Date: | bjbarcla on 2018-12-17 15:46:19 |
Other Links: | branch diff | manifest | tags |
Context
2018-12-17
| ||
15:46 | wip Leaf check-in: aefba9d5f1 user: bjbarcla tags: v1.65-rerun-logpro | |
2018-12-14
| ||
18:01 | wip check-in: 99dec402d5 user: bjbarcla tags: v1.65-rerun-logpro | |
Changes
Modified ezsteps.scm from [f78a0c389c] to [1de8c277e7].
︙ | |||
64 65 66 67 68 69 70 | 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 | - + | ;; (thread-sleep! 0.3) ;; (tests:test-force-state-status! run-id test-id "RUNNING" "n/a") (rmt:set-state-status-and-roll-up-items run-id test-name item-path "RUNNING" #f #f) ;; (thread-sleep! 0.3) ;; NFS slowness has caused grief here ;; if there is a runscript do it first |
︙ | |||
136 137 138 139 140 141 142 | 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 | - + | (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) (let ((logpro-used (ezsteps:runstep ezstep run-id test-id |
︙ |
Modified launch.scm from [f643f6c8f4] to [a456cc3193].
︙ | |||
68 69 70 71 72 73 74 | 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 | - + | (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))) |
︙ | |||
165 166 167 168 169 170 171 172 | 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 | + + + - + | (if (hash-table-ref/default misc-flags 'keep-going #f) ;; keep originals for cpu-load and disk-free unless they change more than the allowed delta (loop (calc-minutes) (or new-cpu-load cpu-load) (or new-disk-free disk-free) (if do-sync (current-seconds) last-sync))))))) (tests:update-central-meta-info run-id test-id (get-cpu-load) (get-df (current-directory))(calc-minutes) #f #f))) ;; NOTE: Checking twice for keep-going is intentional ;; rerun one step ;; rerun one step and subsequent steps ;; rerun logpro for each step (extracting from tconfig if source is there), inheriting env |
︙ | |||
273 274 275 276 277 278 279 280 281 282 283 284 285 286 | 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 | + | (set! *toppath* top-path) (change-directory *toppath*) ;; temporarily switch to the run area home (setenv "MT_TEST_RUN_DIR" work-area) (launch:setup) ;; should be properly in the run area home now (set! tconfigreg (tests:get-all)) ;; mapping of testname => test source path ;; TODO in 2.0: capture stack dump in execute to set incomplete like below does for signals (let ((sighand (lambda (signum) ;; (signal-mask! signum) ;; to mask or not? seems to cause issues in exiting (if (eq? signum signal/stop) (debug:print-error 0 *default-log-port* "attempt to STOP process. Exiting.")) (set! *time-to-exit* #t) (print "Received signal " signum ", cleaning up before exit. Please wait...") (let ((th1 (make-thread (lambda () |
︙ |