+
+(def-test add-remove-test-from-suite ()
+ (let ((*test* (make-hash-table :test 'eql))
+ (*suites* (make-hash-table :test 'eql)))
+ (def-suite empty :in nil)
+ (in-suite empty)
+ (is (null (get-test 'foo)))
+
+ (def-test foo (:suite nil) t)
+ (is-true (get-test 'foo))
+ (is-false (gethash 'foo (tests *suite*)))
+
+ (def-test foo () t)
+ (is-true (gethash 'foo (tests *suite*)))
+
+ (def-test foo (:suite nil) t)
+ (is-false (gethash 'foo (tests *suite*)))))