From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Mon, 4 Aug 2003 19:58:24 +0000 (+0000)
Subject: r5457: *** empty log message ***
X-Git-Tag: debian-0.6.2-2~17
X-Git-Url: http://git.kpe.io/?p=xlunit.git;a=commitdiff_plain;h=6c233c812b0e160d80e613bb3dfcedc59514e3e9

r5457: *** empty log message ***
---

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)