From 660083a151da6492d44a5e21113d2c6064ea7817 Mon Sep 17 00:00:00 2001 From: Marco Baringer Date: Sat, 24 Mar 2007 17:43:10 +0100 Subject: [PATCH] Added def-suite* macro --- src/suite.lisp | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/suite.lisp b/src/suite.lisp index ee4b2f6..bf1cc10 100644 --- a/src/suite.lisp +++ b/src/suite.lisp @@ -33,6 +33,11 @@ defined in this suite." ,@(when default-test-args `(:default-test-args ,default-test-args))) ',name)) +(defmacro def-suite* (name &rest def-suite-args) + `(progn + (def-suite ,name ,@def-suite-args) + (in-suite ,name))) + (defun make-suite (name &key description in default-test-args) "Create a new test suite object. -- 1.7.10.4