From 6c233c812b0e160d80e613bb3dfcedc59514e3e9 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Mon, 4 Aug 2003 19:58:24 +0000
Subject: [PATCH] r5457: *** empty log message ***

---
 tcase.lisp | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

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)
 
 
-- 
2.34.1