;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: example.lisp,v 1.8 2003/08/05 22:56:25 kevin Exp $
+;;;; ID: $Id$
;;;; Purpose: Example file for XLUnit
;;;;
;;;; *************************************************************************
(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")))