better FAIL output formatting

40049148 · Juergen Nickelsen · 8ff1e9d8 · 40049148
Commit 40049148 authored Jul 04, 2015 by Juergen Nickelsen
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

run-tests.lisp tests/run-tests.lisp +1 -1

No files found.
--- a/tests/run-tests.lisp
+++ b/tests/run-tests.lisp
@@ -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))