r5450: *** empty log message ***

[xlunit.git] / tests.lisp

diff --git a/tests.lisp b/tests.lisp
index ef8ed7cf01b09b19da9a99ed82ee962d48ead6dd..555b6acd382cca5a50d34f4dedf6be453e743ea1 100644 (file)
--- a/tests.lisp
+++ b/tests.lisp
@@ -2,12 +2,9 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; Name:        tests.lisp
-;;;; Purpose:     Test suite for XLUnit
-;;;; Author:     Kevin Rosenberg
+;;;; Id:      $Id: tests.lisp,v 1.5 2003/08/04 12:16:13 kevin Exp $
+;;;; Purpose: Test suite for XLUnit
 ;;;;
-;;;; Put in public domain by Kevin Rosenberg
-;;;; $Id: tests.lisp,v 1.4 2003/08/04 12:01:54 kevin Exp $
 ;;;; *************************************************************************
 
 (defpackage #:xlunit-tests
@@ -49,9 +46,9 @@
   (assert-equal "1 run, 0 erred, 0 failed" 
                (summary (run-test (make-test 'was-run 'test-method)))))
 
-(defmethod test-thunk ((self test-case-test))
+(defmethod test-fn ((self test-case-test))
   (let ((test (make-test 'was-run '"Test Failure"
-                        :test-thunk
+                        :test-fn
                         (lambda (test) 
                           (declare (ignore test))
                           (assert-equal 10 10)))))