X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tcase.lisp;h=5761a9facbe6e6c23eba80f082254599532454ef;hb=0114e93940d17c3dd840f37a81d6fb0da66e7a25;hp=62cb8bf1629950f382e8814e8ea57718a40d858d;hpb=6c233c812b0e160d80e613bb3dfcedc59514e3e9;p=xlunit.git

diff --git a/tcase.lisp b/tcase.lisp
index 62cb8bf..5761a9f 100644
--- a/tcase.lisp
+++ b/tcase.lisp
@@ -2,7 +2,7 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; ID:      $Id: tcase.lisp,v 1.3 2003/08/04 19:58:24 kevin Exp $
+;;;; ID:      $Id: tcase.lisp,v 1.6 2003/08/08 00:57:20 kevin Exp $
 ;;;; Purpose: Test fixtures for XLUnit
 ;;;;
 ;;;; *************************************************************************
@@ -59,7 +59,7 @@ that the setup method did for this instance."))
 (defmethod run ((ob test) &key (handle-errors t))
   "Generalized to work on test-case and test-suites"
   (let ((res (make-test-results)))
-    (run-on-test-results ob res :handle-errors t)
+    (run-on-test-results ob res :handle-errors handle-errors)
     res))
 
 (defmethod run-on-test-results ((test test-case) result
@@ -87,7 +87,3 @@ that the setup method did for this instance."))
 	  (add-error res test condition)))
       (run-base test))
   res)
-
-
-
-