Added def-suite* macro

lispci · Mar 24, 2007 · 660083a · 660083a
1 parent a295590
commit 660083a
Showing 1 changed file with 5 additions and 0 deletions.
diff --git 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.