;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: example.lisp,v 1.7 2003/08/04 19:31:34 kevin Exp $
+;;;; ID: $Id: example.lisp,v 1.8 2003/08/05 22:56:25 kevin Exp $
;;;; Purpose: Example file for XLUnit
;;;;
;;;; *************************************************************************
;;; This method is meant to signal a failure
(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 (get-suite math-test-case))