X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests.lisp;fp=tests.lisp;h=60daebf30bd0f7de9d777e8515ac238b92dc007b;hb=77e80d4f7d2d8a1aea36f9239abc7e1b25500ecc;hp=b91520c21475bd273529b655bbb147c3c32473c7;hpb=aa1871a3e62dfee34df09ab613d8366494785d0a;p=xlunit.git

diff --git a/tests.lisp b/tests.lisp
index b91520c..60daebf 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -2,7 +2,7 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; Id:      $Id: tests.lisp,v 1.12 2003/08/06 11:37:23 kevin Exp $
+;;;; Id:      $Id: tests.lisp,v 1.13 2003/08/06 14:51:01 kevin Exp $
 ;;;; Purpose: Self Test suite for XLUnit
 ;;;;
 ;;;; *************************************************************************
@@ -113,7 +113,14 @@
   (assert-equal "2 run, 0 erred, 0 failed" 
 		(summary (run (get-suite test-two-cases)))))
 
+(define-condition test-condition (error)
+  ())
 
+(def-test-method test-condition ((self test-case-test) :run nil)
+  (assert-condition 
+   test-condition 
+   (error (make-instance 'test-condition))))
+		    
 (textui-test-run (get-suite test-case-test))