X-Git-Url: http://git.kpe.io/?p=xlunit.git;a=blobdiff_plain;f=example.lisp;fp=example.lisp;h=73ab43974003224e3ac142e644fb09f3be524463;hp=5ddd14841436bd9287e9337c10cb7de10cc51f53;hb=626d4ad3a850e199e5b4a472c06ae92532c82ac8;hpb=3d99efdf0959b199cc4b2e020c7692f650094f73

diff --git a/example.lisp b/example.lisp
index 5ddd148..73ab439 100644
--- a/example.lisp
+++ b/example.lisp
@@ -2,7 +2,7 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; ID:      $Id: example.lisp,v 1.8 2003/08/05 22:56:25 kevin Exp $
+;;;; ID:      $Id: example.lisp,v 1.9 2003/08/06 11:37:23 kevin Exp $
 ;;;; Purpose: Example file for XLUnit
 ;;;;
 ;;;; *************************************************************************
@@ -33,16 +33,16 @@
   (setf (numberb tcase) 3))
 
 
-(def-test-method (test-addition test math-test-case :run nil)
+(def-test-method test-addition ((test math-test-case) :run nil)
   (let ((result (+ (numbera test) (numberb test))))
     (assert-true (= result 5))))
 
-(def-test-method (test-subtraction test math-test-case :run nil)
+(def-test-method test-subtraction ((test math-test-case) :run nil)
   (let ((result (- (numberb test) (numbera test))))
     (assert-equal result 1)))
 
 ;;; This method is meant to signal a failure
-(def-test-method (test-subtraction-2 test math-test-case :run nil)
+(def-test-method test-subtraction-2 ((test math-test-case) :run nil)
   (let ((result (- (numbera test) (numberb test))))
     (assert-equal result 1 "This is meant to failure")))