Commit 40049148 authored by Juergen Nickelsen's avatar Juergen Nickelsen
Browse files

better FAIL output formatting

parent 8ff1e9d8

tests/run-tests.lisp

+1 −1
Original line number Diff line number Diff line
@@ -33,7 +33,7 @@ the evaluation of FORM and VALUE are equal." 


(format t "%d tests, %d FAILS" ntests (length fails))

(dolist (err (reverse fails))

  (format t " \"%s:%s\"" (cdr err) (car err)))

  (format t "\n  FAIL \"%s:%s\"" (cdr err) (car err)))

(terpri)

(when fails

  (exit 1))