Overview
| Comment: | reverted the change to condition the call to runs:incremental-print-results on debug 3. This was breaking the subrun test. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
43dabdcf28e879b0be0273f143699372 |
| User & Date: | mmgraham on 2021-04-29 15:11:50 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-04-29
| ||
| 15:13 | updated version to v1.6585 check-in: b665f476b3 user: mmgraham tags: v1.65, v1.6585 | |
| 15:11 | reverted the change to condition the call to runs:incremental-print-results on debug 3. This was breaking the subrun test. check-in: 43dabdcf28 user: mmgraham tags: v1.65 | |
|
2021-04-23
| ||
| 14:55 | Adjusted server startup timing values. Changed CHECK to be a failing status for prereq. Moved some debug messages to higher debug levels. Added unsetting of HTTP_PROXY env vars. check-in: 5ef2e6042b user: mmgraham tags: v1.65 | |
Changes
Modified runs.scm from [2f42b47c06] to [dcda6cf6d1].
| ︙ | ︙ | |||
1285 1286 1287 1288 1289 1290 1291 |
(not (member 'exclusive testmode)))))
;; (hash-table-delete! *max-tries-hash* (db:test-make-full-name test-name item-path))
;; we are going to reset all the counters for test retries by setting a new hash table
;; this means they will increment only when nothing can be run
(set! *max-tries-hash* (make-hash-table))
(run:test run-id run-info keyvals runname test-record flags #f test-registry all-tests-registry runsdat testdat)
| < | < | 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 |
(not (member 'exclusive testmode)))))
;; (hash-table-delete! *max-tries-hash* (db:test-make-full-name test-name item-path))
;; we are going to reset all the counters for test retries by setting a new hash table
;; this means they will increment only when nothing can be run
(set! *max-tries-hash* (make-hash-table))
(run:test run-id run-info keyvals runname test-record flags #f test-registry all-tests-registry runsdat testdat)
(runs:incremental-print-results run-id)
(hash-table-set! test-registry (db:test-make-full-name test-name item-path) 'running)
(runs:shrink-can-run-more-tests-count runsdat) ;; DELAY TWEAKER (still needed?)
;; (thread-sleep! *global-delta*)
(if (or (not (null? tal))(not (null? reg)))
(runs:loop-values tal reg reglen regfull reruns) ;; hed should be dropped at this time
#f))
|
| ︙ | ︙ | |||
1669 1670 1671 1672 1673 1674 1675 |
(debug:print-info 0 *default-log-port* "Skipping test " tfullname " as it has been marked do not run due to being completed or not runnable"))
(if (or (not (null? tal))(not (null? reg)))
(loop (runs:queue-next-hed tal reg reglen regfull)
(runs:queue-next-tal tal reg reglen regfull)
(runs:queue-next-reg tal reg reglen regfull)
reruns))))
;; (loop (car tal)(cdr tal) reg reruns))))
| < | < | 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 1680 1681 |
(debug:print-info 0 *default-log-port* "Skipping test " tfullname " as it has been marked do not run due to being completed or not runnable"))
(if (or (not (null? tal))(not (null? reg)))
(loop (runs:queue-next-hed tal reg reglen regfull)
(runs:queue-next-tal tal reg reglen regfull)
(runs:queue-next-reg tal reg reglen regfull)
reruns))))
;; (loop (car tal)(cdr tal) reg reruns))))
(runs:incremental-print-results run-id)
(debug:print 4 *default-log-port* "TOP OF LOOP => "
"test-name: " test-name
"\n hed: " hed
"\n tal: " (runs:pretty-long-list tal)
"\n reg: " reg
"\n test-record " test-record
"\n itemdat: " itemdat
|
| ︙ | ︙ |