;;;; Purpose: Example file for XLUnit
;;;;
;;;; *************************************************************************
;;;; Purpose: Example file for XLUnit
;;;;
;;;; *************************************************************************
(let ((result (- (numberb test) (numbera test))))
(assert-equal result 1)))
;;; This method is meant to signal a failure
(let ((result (- (numberb test) (numbera test))))
(assert-equal result 1)))
;;; This method is meant to signal a failure
;;;; Finally we can run our test suite and see how it performs.
(textui-test-run (get-suite math-test-case))
;;;; Finally we can run our test suite and see how it performs.
(textui-test-run (get-suite math-test-case))