Commit c7d05a55 authored by Robert Goldman's avatar Robert Goldman

Undo verbosity in test.

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