X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=test-case.lisp;h=2d54a13a15d4f73b87822f64177b0e9063a4da7d;hb=e6a0ad7329d3ce497ce8c9f3d0d37811b2da4811;hp=a61627b60d14087ee671a9f63a65cb0d106a0e18;hpb=53e193feda5d4cb757ef13d622fac03cf99178a2;p=xlunit.git

diff --git a/test-case.lisp b/test-case.lisp
index a61627b..2d54a13 100644
--- 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)