Loading test/test-run-program-unix-internal.script +1 −2 Original line number Diff line number Diff line Loading @@ -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")) Loading Loading
test/test-run-program-unix-internal.script +1 −2 Original line number Diff line number Diff line Loading @@ -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")) Loading