X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=result.lisp;h=66f69ee9d5091a64c932911c40e259936116466c;hb=f9e9cf212b09fc9d26defe4d2df0be1eb02c2f7a;hp=1b7fd35984c9e60905f59664a427a5265ab8b7ff;hpb=e6a0ad7329d3ce497ce8c9f3d0d37811b2da4811;p=xlunit.git

diff --git a/result.lisp b/result.lisp
index 1b7fd35..66f69ee 100644
--- a/result.lisp
+++ b/result.lisp
@@ -2,7 +2,7 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; ID:      $Id: result.lisp,v 1.5 2003/08/04 16:42:27 kevin Exp $
+;;;; ID:      $Id: result.lisp,v 1.8 2003/08/10 07:39:33 kevin Exp $
 ;;;; Purpose:  Result functions for XLUnit
 ;;;;
 ;;;; *************************************************************************
@@ -31,11 +31,12 @@
 
 (defmethod start-test ((tcase test) (res test-results))
   (incf (run-tests res))
-  (mapc (lambda (listener) (start-test listener tcase)) (listeners res))
+  (mapc (lambda (listener)
+	  (start-test listener tcase)) 
+	(listeners res))
   res)
 
 (defmethod end-test ((tcase test) (res test-results))
-  (incf (run-tests res))
   (mapc (lambda (listener) (end-test listener tcase)) (listeners res))
   res)
 
@@ -57,7 +58,7 @@
 
 (defmethod is-failure ((failure test-failure))
   "Returns T if a failure was a test-failure condition"
-  (typep (thrown-condition failure) 'test-failure-condition))
+  (typep (thrown-condition failure) 'assertion-failed))
 
 (defmethod print-object ((obj test-failure) stream)
   (print-unreadable-object (obj stream :type t :identity nil)