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
 ;;;;
-;;;; 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
 ;;;;
 ;;;; *************************************************************************
@@ -56,9 +56,12 @@ that the setup method did for this instance."))
 (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)