X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fsuite.lisp;h=bed1945b3293bedc788dc5f30c0611e3989fdd22;hb=085b9010ceb3b650a11e6311cea38157fec2acb5;hp=0118e1a5012c5b3324a04cc9cc5436219559a3cb;hpb=7caced9155e32d2e04db2f574057c33f3fda85ab;p=fiveam.git diff --git a/src/suite.lisp b/src/suite.lisp index 0118e1a..bed1945 100644 --- a/src/suite.lisp +++ b/src/suite.lisp @@ -20,7 +20,9 @@ "Define a new test-suite named NAME. IN (a symbol), if provided, causes this suite te be nested in the -suite named by IN." +suite named by IN. NB: This macro is built on top of make-suite, +as such it, like make-suite, will overrwrite any existing suite +named NAME." `(progn (make-suite ',name ,@(when description `(:description ,description)) @@ -28,7 +30,9 @@ suite named by IN." ',name)) (defun make-suite (name &key description in) - "Create a new test suite object." + "Create a new test suite object. + +Overides any existing suite named NAME." (let ((suite (make-instance 'test-suite :name name))) (when description (setf (description suite) description))