;;;; Purpose: Test suite for XLUnit
;;;;
;;;; *************************************************************************
;;;; Purpose: Test suite for XLUnit
;;;;
;;;; *************************************************************************
(def-test-method (test-failed-result self test-case-test :run nil)
(assert-equal "1 run, 0 erred, 1 failed"
(def-test-method (test-failed-result self test-case-test :run nil)
(assert-equal "1 run, 0 erred, 1 failed"
(def-test-method (test-error-result self test-case-test :run nil)
(assert-equal "1 run, 1 erred, 0 failed"
(def-test-method (test-error-result self test-case-test :run nil)
(assert-equal "1 run, 1 erred, 0 failed"