;;;; Purpose: Self Test suite for XLUnit
;;;;
;;;; *************************************************************************
;;;; Purpose: Self Test suite for XLUnit
;;;;
;;;; *************************************************************************
(def-test-method test-condition-without-cond ((self was-run) :run nil)
(assert-condition 'error (list 'no-error)))
(def-test-method test-condition-without-cond ((self was-run) :run nil)
(assert-condition 'error (list 'no-error)))
(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-not-condition-with-cond ((self was-run) :run nil)
(assert-not-condition 'test-condition
(signal 'test-condition)))
(def-test-method test-not-condition-with-cond ((self test-case-test)
:run nil)
(assert-equal "1 run, 0 erred, 1 failed"
(def-test-method test-not-condition-with-cond ((self test-case-test)
:run nil)
(assert-equal "1 run, 0 erred, 1 failed"