@@ -307,11 +307,11 @@ ("KILLED" "UNKNOWN" "More testing") ("KILLED" "UNKNOWN" "More testing") )) ;; now set all tests to completed (rdb:flush-queue) -(let ((tests (open-run-close db:get-tests-for-run #f 1 "%" "%" '() '()))) +(let ((tests (open-run-close db:get-tests-for-run #f 1 "%" '() '()))) (print "Setting " (length tests) " to COMPLETED/PASS") (for-each (lambda (test) (rdb:test-set-status-state (db:test-get-id test) "COMPLETED" "PASS" "Forced pass")) tests))