(with-test-results (results nested-logic)
(is (= 3 (length results)))
(is (= 2 (length (remove-if-not #'test-passed-p results))))
(is (= 1 (length (remove-if-not #'test-failure-p results))))))
(with-test-results (results nested-logic)
(is (= 3 (length results)))
(is (= 2 (length (remove-if-not #'test-passed-p results))))
(is (= 1 (length (remove-if-not #'test-failure-p results))))))