     (assert (= '[x] (:locals m)))))
 
 (let [c1 (com.stuartsierra.lazytest.contexts/context [] 1)
-      g (group [x c1] [(= 1 x) "foo" (= x 2)] [])]
+      g (group [x c1] (group-examples (= 1 x) "foo" (= x 2)) [])]
   (assert (group? g))
   (assert (= [c1] (:contexts g)))
   (let [exs (:examples g)]

    `(with-context ~(first bindings) ~(second bindings)
       (group ~(vec (nnext bindings)) ~examples ~subgroups))
    `(new-group ~(find-locals &env)
                (group-examples ~@examples)
                ~subgroups
                ~(standard-metadata &form nil))))


  bindings is a vector of symbol-context pairs, symbols will become
  locals in the examples.

  examples is a vector of compiled examples functions.

  subgroups is a vector of child example groups."
  [bindings examples subgroups]
