X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Frun.lisp;h=8acdd5e0c253192b36501db978b8fb1aa377d542;hb=ee234e6ff40605c88d235c3ee3265acbc641563a;hp=31a3f02bf831087ec4b34e26fbb5aec11b4b02af;hpb=7d4e022893800af3a0b3818b7da807907e94a830;p=fiveam.git

diff --git a/src/run.lisp b/src/run.lisp
index 31a3f02..8acdd5e 100644
--- a/src/run.lisp
+++ b/src/run.lisp
@@ -117,10 +117,12 @@ run."))
 (defun results-status (result-list)
   "Given a list of test results (generated while running a test)
   return true if all of the results are of type TEST-PASSED,
-  faile otherwise."
-  (every (lambda (res)
-           (typep res 'test-passed))
-         result-list))
+  fail otherwise.
+  Returns a second value, which is the set of failed tests."
+  (let ((failed-tests
+          (remove-if #'test-passed-p result-list)))
+    (values (null failed-tests)
+            failed-tests)))
 
 (defun return-result-list (test-lambda)
   "Run the test function TEST-LAMBDA and return a list of all