(let ((suite (make-instance 'test-suite))
(result (make-test-results)))
(add-test suite (named-test 'test-method (get-suite was-run)))
(let ((suite (make-instance 'test-suite))
(result (make-test-results)))
(add-test suite (named-test 'test-method (get-suite was-run)))