- (summary (run-test
- (make-test 'was-run 'test-broken-method)))))
-
-(defmethod test-error-result ((self test-case-test))
- (assert-equal "1 run, 1 erred, 0 failed"
- (summary (run-test
- (make-test 'was-run 'test-error-method)))))
+ (summary (run
+ (named-test 'test-broken-method
+ (get-suite was-run))))))
+
+(def-test-method (test-error-result self test-case-test :run nil)
+ (assert-equal "1 run, 1 erred, 0 failed"
+ (summary (run
+ (named-test 'test-error-method
+ (get-suite was-run))))))