From: Attila Lendvai <attila.lendvai@gmail.com>
Date: Sat, 9 Dec 2006 15:47:15 +0000 (+0100)
Subject: Print failed tests in the order of execution
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=74988e2c0730b757d12b478f6efb3ccf8e9ccb94;hp=9b43cf64817a75a55ea28fa549e35f8ab7eb44ca;p=fiveam.git

Print failed tests in the order of execution
---

diff --git a/src/explain.lisp b/src/explain.lisp
index b3bf2c3..84d6871 100644
--- a/src/explain.lisp
+++ b/src/explain.lisp
@@ -38,7 +38,7 @@
       (terpri stream)
       (when failed
         (output "Failure Details:~%")
-        (dolist (f failed)
+        (dolist (f (reverse failed))
           (output "--------------------------------~%")
           (output "~A ~@{[~A]~}: ~%" 
                   (name (test-case f))