-(defmacro def-suite* (name &rest def-suite-args)
- `(progn
- (def-suite ,name ,@def-suite-args)
- (in-suite ,name)))
+(defun remove-from-suites (test-name)
+ (when (get-test test-name)
+ ;; if this suite alruady exists, and its :IN some other suite, remove it.
+ (dolist (s (list-all-suites))
+ (when (gethash test-name (tests s))
+ (remhash test-name (tests s))))))