Commit f0cf7668 authored by Robert Goldman's avatar Robert Goldman
Browse files

Add more verbose output.

parent 48fd5d11
......@@ -135,7 +135,8 @@
(setf error-status 'general)
(setf error-description (format nil "~a" c))
(return-from test-case))))
(format t "~&~T...completed successfully.~%"))
(case error-status
(failed (incf *number-of-failed-tests*))
(unsupported (report-result "" "NOT SUPPORTED"))
Supports Markdown
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