Overview
| Comment: | Fixed wrong ordering on maxretries if not defined |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | test-specific-db |
| Files: | files | file ages | folders |
| SHA1: |
ccfbba74c45789b6c19c849245e204dd |
| User & Date: | matt on 2012-09-27 12:41:06 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-09-27
| ||
| 16:03 | Cached collection of basic run info check-in: fb1ab3f6c9 user: matt tags: test-specific-db | |
| 12:41 | Fixed wrong ordering on maxretries if not defined check-in: ccfbba74c4 user: matt tags: test-specific-db | |
| 10:30 | Added configuration control for max-retries check-in: a944a39310 user: matt tags: test-specific-db | |
Changes
Modified runs.scm from [8808e6f240] to [2776bfc4cb].
| ︙ | ︙ | |||
290 291 292 293 294 295 296 |
;; NB// Should expand items here and then insert into the run queue.
(debug:print 5 "test-records: " test-records ", keyvallst: " keyvallst " flags: " (hash-table->alist flags))
(let ((sorted-test-names (tests:sort-by-priority-and-waiton test-records))
(item-patts (hash-table-ref/default flags "-itempatt" #f))
(test-registery (make-hash-table))
(num-retries 0)
(max-retries (config-lookup *configdat* "setup" "maxretries")))
| | | 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 |
;; NB// Should expand items here and then insert into the run queue.
(debug:print 5 "test-records: " test-records ", keyvallst: " keyvallst " flags: " (hash-table->alist flags))
(let ((sorted-test-names (tests:sort-by-priority-and-waiton test-records))
(item-patts (hash-table-ref/default flags "-itempatt" #f))
(test-registery (make-hash-table))
(num-retries 0)
(max-retries (config-lookup *configdat* "setup" "maxretries")))
(set! max-retries (if (and max-retries (string->number max-retries))(string->number max-retries) 100))
(if (not (null? sorted-test-names))
(let loop ((hed (car sorted-test-names))
(tal (cdr sorted-test-names))
(reruns '()))
(if (not (null? reruns))(debug:print 4 "INFO: reruns=" reruns))
(let* ((test-record (hash-table-ref test-records hed))
(test-name (tests:testqueue-get-testname test-record))
|
| ︙ | ︙ |
Modified tests/fullrun/megatest.config from [ad0623f776] to [25c2dbe531].
| ︙ | ︙ | |||
13 14 15 16 17 18 19 | [setup] # FULL or 2, NORMAL or 1, OFF or 0 synchronous OFF # Throttle roughly scales the db access milliseconds to seconds delay throttle 0.02 # Max retries allows megatest to re-check that a tests status has changed # as tests can have transient FAIL status occasionally | | | 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | [setup] # FULL or 2, NORMAL or 1, OFF or 0 synchronous OFF # Throttle roughly scales the db access milliseconds to seconds delay throttle 0.02 # Max retries allows megatest to re-check that a tests status has changed # as tests can have transient FAIL status occasionally # maxretries 200 [validvalues] state start end status pass fail n/a 0 1 running # These are set before all tests, override them # in the testconfig [pre-launch-env-overrides] section |
| ︙ | ︙ |