Overview
| Comment: | adding my changes to runs.scm -- note: not in a completely runnable state |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | debug_chained_waiton | v1.60_defunct |
| Files: | files | file ages | folders |
| SHA1: |
9ff8cae0bf0b672108e88a0229a001b9 |
| User & Date: | bjbarcla on 2016-04-18 15:41:37 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-04-18
| ||
| 18:47 | ceaned up dfs.scm a bit Closed-Leaf check-in: a482e0ffbd user: bjbarcla tags: debug_chained_waiton, v1.60_defunct | |
| 15:41 | adding my changes to runs.scm -- note: not in a completely runnable state check-in: 9ff8cae0bf user: bjbarcla tags: debug_chained_waiton, v1.60_defunct | |
| 15:30 | adding dfs poc for solving chained-waiton check-in: 985f2017bf user: bjbarcla tags: debug_chained_waiton, v1.60_defunct | |
Changes
Modified runs.scm from [8f7cfd9962] to [5411b91e62].
| ︙ | ︙ | |||
498 499 500 501 502 503 504 |
(cdr filtered-remtests)
(runs:toposort (cdr filtered-remtests) all-tests-registry))))
;;(set! remtests (runs:toposort remtests all-tests-registry))
;;(loop (car remtests)(cdr remtests))
(loop processed new-hed new-tal)
)))))))
| | | | 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 |
(cdr filtered-remtests)
(runs:toposort (cdr filtered-remtests) all-tests-registry))))
;;(set! remtests (runs:toposort remtests all-tests-registry))
;;(loop (car remtests)(cdr remtests))
(loop processed new-hed new-tal)
)))))))
;; above: populate test-records hash
;; below - manage call to run-tests-queue
(counter-reset 'rtloop)
(debug:print-info 0 "BB: Finished elaboration of waiton dependencies (maybe?)")
(if (not (null? required-tests))
(debug:print-info 0 "BB Adding \"" (string-intersperse required-tests " ") "\" to the run queue")) ; BB changed 1 to 0
;; NOTE: these are all parent tests, items are not expanded yet.
(debug:print-info 0 "BB test-records=" (hash-table->alist test-records)) ; BB: changed 4 to 0
(let ((reglen (configf:lookup *configdat* "setup" "runqueue")))
|
| ︙ | ︙ |