- (bind-run-state ((result-list '()))
- (loop for test being the hash-values of (tests suite)
- do (%run test)
- finally (setf suite-results result-list)))
- (setf (status suite) (every (lambda (res)
- (typep res 'test-passed))
- suite-results))
- (with-run-state (result-list)
- (setf result-list (nconc result-list suite-results)))))
+ (unwind-protect
+ (bind-run-state ((result-list '()))
+ (unwind-protect
+ (loop for test being the hash-values of (tests suite)
+ do (%run test))
+ (setf suite-results result-list))
+ (setf (status suite)
+ (every (lambda (res)
+ (typep res 'test-passed))
+ suite-results)))
+ (with-run-state (result-list)
+ (setf result-list (nconc result-list suite-results))))))