(add-test (make-test 'was-run 'test-method) suite)
(add-test (make-test 'was-run 'test-broken-method) suite)
(run-test suite :result 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)