Commit 9517a366 authored by Juergen Nickelsen's avatar Juergen Nickelsen

be clearer about an okay test result

parent 9dd8d9b9
......@@ -901,12 +901,15 @@
(a b c 133 e f g h))
;; End Of Tests ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(format t "\ndone testing\n\n")
(format t "\ndone testing")
(if fails
(let ((list (reverse fails)))
(format t "{} FAILS:\n" (length fails))
(while list
(format t " {}\n" (pop list)))))
(progn
(format t "\n\n")
(let ((list (reverse fails)))
(format t "{} FAILS:\n" (length fails))
(while list
(format t " {}\n" (pop list)))))
(format t ", all ok\n\n"))
(when dup-test-names
(dolist (testname dup-test-names)
(format t "WARN: duplicate test name {}\n" testname))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment