;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: example.lisp,v 1.6 2003/08/04 17:04:49 kevin Exp $
+;;;; ID: $Id$
;;;; Purpose: Example file for XLUnit
;;;;
;;;; *************************************************************************
(setf (numbera tcase) 2)
(setf (numberb tcase) 3))
-(def-test-method test-addition ((test math-test-case))
+
+(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))
+(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))
+(def-test-method test-subtraction-2 ((test math-test-case) :run nil)
(let ((result (- (numbera test) (numberb test))))
- (assert-equal result 1)))
+ (assert-equal result 1 "This is meant to failure")))
;;;; Finally we can run our test suite and see how it performs.
-(textui-test-run (make-instance 'math-test-case))
+(textui-test-run (get-suite math-test-case))