;;;; 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
(let ((result (- (numbera test) (numberb test))))
(assert-equal result 1 "This is meant to failure")))
(let ((result (- (numbera test) (numberb test))))
(assert-equal result 1 "This is meant to failure")))