r5457: *** empty log message ***

diff --git a/tcase.lisp b/tcase.lisp
index 3d68142afba33e56f6b0f2cee2fc6040f6dbc77d..62cb8bf1629950f382e8814e8ea57718a40d858d 100644 (file)
--- 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)