-(defmethod test-suite ((self test-case-test))
- (let ((suite (make-test-suite "TestSuite"))
- (result (make-test-result)))
- (add-test (make-test 'was-run 'test-method) suite)
- (add-test (make-test 'was-run 'test-broken-method) suite)
- (run-test suite :result result)
+(def-test-method (test-suite self test-case-test :run nil)
+ (let ((suite (make-instance 'test-suite))
+ (result (make-test-results)))
+ (add-test suite (named-test 'test-method (get-suite was-run)))
+ (add-test suite (named-test 'test-broken-method (get-suite was-run)))
+ (run-on-test-results suite result)