-(defmethod test-result ((self test-case-test))
- (let ((test (make-test 'was-run 'test-method)))
- (run-test test (result self))
- (assert-equal "1 run, 0 errored, 0 failed" (summary (result self)))))
+(defmethod test-results ((self test-case-test))
+ (assert-equal "1 run, 0 erred, 0 failed"
+ (summary (run-test (make-test 'was-run 'test-method)))))