r5459: *** empty log message ***

[xlunit.git] / tcase.lisp

diff --git a/tcase.lisp b/tcase.lisp
index 62cb8bf1629950f382e8814e8ea57718a40d858d..414eee87710dbe47031ecac2719debac1495a0b6 100644 (file)
--- 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.4 2003/08/05 22:56:25 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)
-
-
-
-