Macro: IN-SUITE

Documentation

Set the *suite* special variable so that all tests defined after the execution of this form are, unless specified otherwise, in the test-suite named SUITE-NAME. See also: DEF-SUITE *SUITE*

Source

(defmacro in-suite (suite-name)
  "Set the *suite* special variable so that all tests defined
after the execution of this form are, unless specified otherwise,
in the test-suite named SUITE-NAME.

See also: DEF-SUITE *SUITE*"
  (with-unique-names (suite)
    `(progn
       (if-bind ,suite (get-test ',suite-name)
           (setf *suite* ,suite)
	   (progn
	     (cerror "Create a new suite named ~A."
		     "Unkown suite ~A." ',suite-name)
	     (setf (get-test ',suite-name) (make-suite ',suite-name)
		   *suite* (get-test ',suite-name))))
       ',suite-name)))