Commit c7d05a55 authored by Robert Goldman's avatar Robert Goldman

Undo verbosity in test.

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