   (< a b))
 
 (assert (= 't10 (:name (meta t10))))
+(assert (= *ns* (:ns (meta t10))))
 (assert (= "Test t10" (:doc (meta t10))))
 (assert (= ::TestCase (type t10)))
 (assert (= [c4 c5] (:contexts t10)))

  (assert (= s7 7)))
(assert (= ::Context (type c7)))
(assert (= 'c7 (:name (meta c7))))
(assert (= "Context c7" (:doc (meta c7))))
(assert (= [c5] (:parents c7)))
(assert (fn? (:before c7)))

  "Defines an Assertion.
  decl => docstring? [locals*] body*"
  [name & decl]
  (let [m {:name name, :ns *ns*}
        m (if (string? (first decl)) (assoc m :doc (first decl)) m)
        decl (if (string? (first decl)) (next decl) decl)
        argv (first decl)
