Index: runs.scm ================================================================== --- runs.scm +++ runs.scm @@ -212,11 +212,12 @@ (tal (cdr test-names))) ;; 'return-procs tells the config reader to prep running system but return a proc (let* ((config (tests:get-testconfig hed 'return-procs)) (waitons (if config (string-split (let ((w (config-lookup config "requirements" "waiton"))) (if w w ""))) (begin - (debug:print 0 "ERROR: non-existant required test \"" hed "\"") + (debug:print 0 "ERROR: non-existent required test \"" hed "\"") + (sqlite3:finalize! db) (exit 1))))) ;; check for hed in waitons => this would be circular, remove it and issue an ;; error (if (member hed waitons) (begin