X-Git-Url: http://git.kpe.io/?p=xlunit.git;a=blobdiff_plain;f=tests.lisp;h=555b6acd382cca5a50d34f4dedf6be453e743ea1;hp=ef8ed7cf01b09b19da9a99ed82ee962d48ead6dd;hb=8133177de9c5d202520bd83b5e797ef7a39942ad;hpb=318cda1a328e9d99af2270c73cb13262e485a1ff

diff --git a/tests.lisp b/tests.lisp
index ef8ed7c..555b6ac 100644
--- 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)))))