-(luna-define-method lunit-test-result-error ((result lunit-test-result)
- case error)
- (let ((errors
- (lunit-test-result-errors-internal result)))
- (setq errors (nconc errors (list (cons case error))))
- (lunit-test-result-set-errors-internal result errors))
- (lunit-test-result-notify result 'lunit-test-listener-error case error))
-
-(luna-define-method lunit-test-result-failure ((result lunit-test-result)
- case failure)
- (let ((failures
- (lunit-test-result-failures-internal result)))
- (setq failures (nconc failures (list (cons case failure))))
- (lunit-test-result-set-failures-internal result failures))
- (lunit-test-result-notify result 'lunit-test-listener-failure case failure))
-