X-Git-Url: http://git.kpe.io/?p=xlunit.git;a=blobdiff_plain;f=tests.lisp;h=9b519193f16ce4543b49a9a9feb3bd56f42cbb85;hp=e5cfb41dfc2b8856c2eef3a8d275f6e2d2f13bc7;hb=381a23bb7ab8dd206bcd430ce9c7ee9c53e52f13;hpb=e6a0ad7329d3ce497ce8c9f3d0d37811b2da4811

diff --git a/tests.lisp b/tests.lisp
index e5cfb41..9b51919 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -2,7 +2,7 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; Id:      $Id: tests.lisp,v 1.7 2003/08/04 16:13:58 kevin Exp $
+;;;; Id:      $Id: tests.lisp,v 1.8 2003/08/04 17:04:50 kevin Exp $
 ;;;; Purpose: Test suite for XLUnit
 ;;;;
 ;;;; *************************************************************************
@@ -45,7 +45,7 @@
     (run-test test)
     (assert-equal (ws-log test) "setup test-method teardown ")))
 
-(defmethod test-result ((self test-case-test))
+(defmethod test-results ((self test-case-test))
   (assert-equal "1 run, 0 erred, 0 failed" 
 		(summary (run-test (make-test 'was-run 'test-method)))))
 
@@ -70,7 +70,7 @@
   
 (defmethod test-suite ((self test-case-test))
   (let ((suite (make-test-suite "TestSuite"))
-	(result (make-test-result)))
+	(result (make-test-results)))
     (add-test (make-test 'was-run 'test-method) suite)
     (add-test (make-test 'was-run 'test-broken-method) suite)
     (run-test suite :result result)