359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
|
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
|
-
-
+
+
+
|
(begin
(tests:testqueue-set-items! test-record items-list)
(loop hed tal))
(begin
(debug:print 0 "ERROR: The proc from reading the setup did not yield a list - please report this")
(exit 1)))))
(let ((newtal (append tal (list hed)))
(fails (filter (lambda (test)(not (member (db:test-get-status test)
'("PASS" "WARN" "CHECK" "WAIVED"))))
(fails (filter (lambda (test)
(not (member (db:test-get-status test)
'("PASS" "WARN" "CHECK" "WAIVED"))))
prereqs-not-met)))
;; if can't run more tests, lets take a breather
(debug:print 4 "FAILS: " fails)
;; If one or more of the prereqs-not-met are FAIL then we can issue
;; a message and drop hed from the items to be processed.
(if (null? fails)
(begin
|