;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Id: $Id: tests.lisp,v 1.14 2003/08/08 00:57:20 kevin Exp $
+;;;; Id: $Id: tests.lisp,v 1.15 2003/08/10 07:39:33 kevin Exp $
;;;; Purpose: Self Test suite for XLUnit
;;;;
;;;; *************************************************************************
(def-test-method test-condition-without-cond ((self was-run) :run nil)
(assert-condition 'error (list 'no-error)))
+#+ignore
(def-test-method test-not-condition-with-cond ((self was-run) :run nil)
(assert-not-condition 'test-condition
(signal 'test-condition)))
(def-test-method test-condition ((self test-case-test) :run nil)
(assert-condition
'test-condition
- (error (make-instance 'test-condition))))
+ (error 'test-condition)))
(def-test-method test-condition-without-cond ((self test-case-test)
:run nil)
(summary (run
(named-test 'test-condition-without-cond
(get-suite was-run))))))
-
+
+#+ignore
(def-test-method test-not-condition ((self test-case-test) :run nil)
(assert-not-condition
'test-condition
(progn)))
+#+ignore
(def-test-method test-not-condition-with-cond ((self test-case-test)
:run nil)
(assert-equal "1 run, 0 erred, 1 failed"