;;;; *************************************************************************
;;;; 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
;;;;
;;;; *************************************************************************
(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))