projects
/
xlunit.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
659ff9b
)
r5457: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 4 Aug 2003 19:58:24 +0000
(19:58 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 4 Aug 2003 19:58:24 +0000
(19:58 +0000)
tcase.lisp
patch
|
blob
|
history
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
;;;;
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: tcase.lisp,v 1.
2 2003/08/04 19:31:3
4 kevin Exp $
+;;;; ID: $Id: tcase.lisp,v 1.
3 2003/08/04 19:58:2
4 kevin Exp $
;;;; Purpose: Test fixtures for XLUnit
;;;;
;;;; *************************************************************************
;;;; 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))
(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)
res)