;;;; 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