The current test suite object
(defvar *suite* (setf (get-test 'NIL) (make-suite 'NIL :description "Global Suite")) "The current test suite object")