(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)
(assert-equal "2 run, 0 erred, 1 failed" (summary result))))
(def-test-method test-dynamic-suite ((self test-case-test) :run nil)
(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)
(assert-equal "2 run, 0 erred, 1 failed" (summary result))))
(def-test-method test-dynamic-suite ((self test-case-test) :run nil)