275
276
277
278
279
280
281
282
283
284
285
286
287
288
|
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
|
+
|
(if (not (null? remtests))
(loop (car remtests)(cdr remtests)))))))
(if (not (null? required-tests))
(debug:print 1 "INFO: Adding " required-tests " to the run queue"))
;; NOTE: these are all parent tests, items are not expanded yet.
(debug:print 4 "INFO: test-records=" (hash-table->alist test-records))
(runs:run-tests-queue run-id runname test-records keyvallst flags)
(runs:run-tests-queue run-id runname test-records keyvallst flags)
(debug:print 4 "INFO: All done by here")))
;; test-records is a hash table testname:item_path => vector < testname testconfig waitons priority items-info ... >
(define (runs:run-tests-queue run-id runname test-records keyvallst flags)
;; At this point the list of parent tests is expanded
;; NB// Should expand items here and then insert into the run queue.
|