(with-run-state (result-list)
(bind-run-state ((current-test test))
(labels ((abort-test (e)
- (add-result 'unexpected-test-failure
- :test-case test
- :reason (format nil "Unexpected Error: ~S." e)
- :condition e))
+ (add-result 'unexpected-test-failure
+ :test-expr nil
+ :test-case test
+ :reason (format nil "Unexpected Error: ~S." e)
+ :condition e))
(run-it ()
(let ((result-list '()))
(declare (special result-list))
(return-from run-it (run-it)))
(ignore ()
:report (lambda (stream)
- (format stream "~@<Signal a test failure and abort the test ~S.~@:>" test))
+ (format stream "~@<Signal an exceptional test failure and abort the test ~S.~@:>" test))
(abort-test (make-instance 'test-failure :test-case test
:reason "Failure restart."))))
result-list))))