498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
|
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")))
|