                  nxt))
         `(SimpleContainer ~r)))))
 
-(defn attributes
+(defn- attributes
   "Reads optional name symbol and doc string from args,
   returns [m a] where m is a map containing keys
   [:name :doc :ns :file :line] and a is remaining arguments."

  "Creates a test container.
  decl   => name? docstring? option* child*

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

  options => keyword/value pairs, recognized keys are:
    :contexts => vector of contexts to run only once for this container.

        args (if (string? (first args)) (next args) args)]
    [m args]))

(defn- options
  "Reads keyword-value pairs from args, returns [m a] where m is a map
  of keyword/value options and a is remaining arguments."
  [args]
