@@ -241,17 +241,18 @@ ;; NB// Should expand items here and then insert into the run queue. (let ((sorted-testnames (tests:sort-by-priority-and-waiton test-records))) (let loop (; (numtimes 0) ;; shouldn't need this (hed (car sorted-test-names)) (tal (cdr sorted-test-names))) - (let* ((test-record (hash-table-ref test-records hed)) WHERE TO DO: (items:get-items-from-config config) + (let* ((test-record (hash-table-ref test-records hed)) (tconfig (tests:testqueue-get-testconfig test-record)) (waitons (tests:testqueue-get-waitons test-record)) (priority (tests:testqueue-get-priority test-record)) (itemdat (tests:testqueue-get-itemdat test-record)) (items (tests:testqueue-get-items test-record)) (item-path (item-list->path itemdat))) + (debug:print 0 "WHERE TO DO: (items:get-items-from-config config)") (cond ((not items) ;; when false the test is ok to be handed off to launch (let ((have-resources (runs:can-run-more-tests db test-record)) ;; look at the test jobgroup and tot jobs running (prereqs-not-met (db:get-prereqs-not-met db run-id waiton item-path))) (if (and have-resources