                           :line ~(:line (meta form))}
                          nil))
                nxt))
-      `(SimpleContainer ~r {:generator should
+      `(SimpleContainer ~r {:generator 'is
                             :line ~(:line (meta &form))
                             :form '~&form}
                         nil))))

  `(let [active# ~active
         contexts# ~contexts
         merged# (reduce open-context active# contexts#)
         ~states (map merged contexts#)]
     (try
      ~@body
      (finally

  decl   => name? docstring? option* child*

  name  => a symbol, will def a Var if provided.
  child => 'is' or 'given' or nested 'testing'.

  options => keyword/value pairs, recognized keys are:
    :contexts => vector of contexts to run only once for this container.
    :strategy => a test-running strategy."
  [& decl]
  (let [[m decl] (attributes decl)
        m (assoc m :line (:line (meta &form))
                 :generator `testing
                 :form &form)
        [opts decl] (options decl)
        {:keys [contexts strategy]} opts
        children (vec decl)
