r5459: *** empty log message ***

[xlunit.git] / example.lisp

diff --git a/example.lisp b/example.lisp
index 4a89aec87074524355632b0c8024fff9d10b57e6..5ddd14841436bd9287e9337c10cb7de10cc51f53 100644 (file)
--- a/example.lisp
+++ b/example.lisp
@@ -2,7 +2,7 @@
 ;;;; *************************************************************************
 ;;;; 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
 ;;;;
 ;;;; *************************************************************************
@@ -44,7 +44,7 @@
 ;;; 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))