Define a new test-suite named NAME. IN (a symbol), if provided, causes this suite te be nested in the suite named by IN.
(defmacro def-suite (name &key description in) "Define a new test-suite named NAME. IN (a symbol), if provided, causes this suite te be nested in the suite named by IN." `(progn (make-suite ',name ,@(when description `(:description ,description)) ,@(when in `(:in ',in))) ',name))Source Context