;;;; Purpose: Self Test suite for XLUnit
;;;;
;;;; *************************************************************************
;;;; Purpose: Self Test suite for XLUnit
;;;;
;;;; *************************************************************************
(assert-equal "2 run, 0 erred, 0 failed"
(summary (run (get-suite test-two-cases)))))
(assert-equal "2 run, 0 erred, 0 failed"
(summary (run (get-suite test-two-cases)))))