X-Git-Url: http://git.kpe.io/?p=xlunit.git;a=blobdiff_plain;f=tcase.lisp;h=62cb8bf1629950f382e8814e8ea57718a40d858d;hp=3d68142afba33e56f6b0f2cee2fc6040f6dbc77d;hb=6c233c812b0e160d80e613bb3dfcedc59514e3e9;hpb=659ff9b55dd5886a71511aab8d0cccc73eec5411

diff --git a/tcase.lisp b/tcase.lisp
index 3d68142..62cb8bf 100644
--- a/tcase.lisp
+++ b/tcase.lisp
@@ -2,7 +2,7 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; ID:      $Id: tcase.lisp,v 1.2 2003/08/04 19:31:34 kevin Exp $
+;;;; ID:      $Id: tcase.lisp,v 1.3 2003/08/04 19:58:24 kevin Exp $
 ;;;; Purpose: Test fixtures for XLUnit
 ;;;;
 ;;;; *************************************************************************
@@ -78,12 +78,14 @@ that the setup method did for this instance."))
     (funcall (method-body test)))
 
 (defmethod run-protected ((test test-case) res &key (handle-errors t))
-  (handler-case
-      (run-base test)
-    (assertion-failed (condition)
-      (add-failure res test condition))
-    (serious-condition (condition)
-      (add-error res test condition)))
+  (if handle-errors
+      (handler-case
+	  (run-base test)
+	(assertion-failed (condition)
+	  (add-failure res test condition))
+	(serious-condition (condition)
+	  (add-error res test condition)))
+      (run-base test))
   res)