Overview
| Comment: | Fixed bug with continuing to launch tests for a run after first pass though the list |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
428bbd9b3618aeef144d679ca3dfed34 |
| User & Date: | mrwellan on 2011-12-05 12:34:03 |
| Other Links: | manifest | tags |
Context
|
2011-12-05
| ||
| 13:03 | Only re-run if using the -rerun switch or -force switch (difference from old behaviour) check-in: 5b8b902667 user: mrwellan tags: trunk, waiton-broken-but-works | |
| 12:34 | Fixed bug with continuing to launch tests for a run after first pass though the list check-in: 428bbd9b36 user: mrwellan tags: trunk | |
| 10:13 | Added MT_RUNNAME back in check-in: 38766f7852 user: mrwellan tags: trunk | |
Changes
Modified configf.scm from [b844677094] to [9adef42084].
| ︙ | ︙ | |||
145 146 147 148 149 150 151 |
(list configdat toppath configfile fname))))
(define (config-lookup cfgdat section var)
(let ((sectdat (hash-table-ref/default cfgdat section '())))
(if (null? sectdat)
#f
(let ((match (assoc var sectdat)))
| | | 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 |
(list configdat toppath configfile fname))))
(define (config-lookup cfgdat section var)
(let ((sectdat (hash-table-ref/default cfgdat section '())))
(if (null? sectdat)
#f
(let ((match (assoc var sectdat)))
(if match ;; (and match (list? match)(> (length match) 1))
(cadr match)
#f))
)))
(define (configf:section-vars cfgdat section)
(let ((sectdat (hash-table-ref/default cfgdat section '())))
(if (null? sectdat)
|
| ︙ | ︙ |
Modified runs.scm from [12b249e892] to [bf2ea07774].
| ︙ | ︙ | |||
287 288 289 290 291 292 293 | (null? prereqs-not-met)) ;; no loop - drop though and use the loop at the bottom (run:test db run-id runname keyvallst test-record flags #f) ;; else the run is stuck, temporarily or permanently (let ((newtal (append tal (list hed)))) ;; couldn't run, take a breather (thread-sleep! 1) | | | 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 | (null? prereqs-not-met)) ;; no loop - drop though and use the loop at the bottom (run:test db run-id runname keyvallst test-record flags #f) ;; else the run is stuck, temporarily or permanently (let ((newtal (append tal (list hed)))) ;; couldn't run, take a breather (thread-sleep! 1) (loop (car newtal)(cdr newtal)))))) ;; case where an items came in as a list been processed ((and (list? items) ;; thus we know our items are already calculated (not itemdat)) ;; and not yet expanded into the list of things to be done (if (>= *verbosity* 1)(pp items)) ;; (if (>= *verbosity* 5) ;; (begin |
| ︙ | ︙ |