projects
/
xlunit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5453: *** empty log message ***
[xlunit.git]
/
test-case.lisp
diff --git
a/test-case.lisp
b/test-case.lisp
index a61627b60d14087ee671a9f63a65cb0d106a0e18..2d54a13a15d4f73b87822f64177b0e9063a4da7d 100644
(file)
--- a/
test-case.lisp
+++ b/
test-case.lisp
@@
-2,7
+2,7
@@
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: test-case.lisp,v 1.
1 2003/08/04 16:13:58
kevin Exp $
+;;;; ID: $Id: test-case.lisp,v 1.
2 2003/08/04 16:42:27
kevin Exp $
;;;; Purpose: Test fixtures for XLUnit
;;;;
;;;; *************************************************************************
;;;; Purpose: Test fixtures for XLUnit
;;;;
;;;; *************************************************************************
@@
-56,9
+56,12
@@
that the setup method did for this instance."))
(defmethod tear-down ((test test-case))
)
(defmethod tear-down ((test test-case))
)
+(defmethod run ((ob test-case))
+ (run-on-test-result ob (make-instance 'test-results)))
+
-(defmethod run-on-test ((test test-case)
+(defmethod run-on-test
-result
((test test-case)
&key (result (make-instance 'test-result))
(handle-errors t))
(start-test test result)
&key (result (make-instance 'test-result))
(handle-errors t))
(start-test test result)