 (def t8 (TestCase [] [t7 t7]))
 
 (with-log
-  (let [results (run-test-case t8 {} lazy-strategy)]
+  (let [results (run-test-case t8 lazy-strategy)]
     (assert (= @*log* []))
     (dorun (:children (first (:children results))))
     (assert (= @*log* [:c6-open :a3 :a4]))

            merged (reduce open-context active (:contexts t))
            states (map merged (:contexts t))
            results (mapper
                     #(invoke-test % states merged child-strategy)
                     (:children t))]
        ;; Force non-lazy execution to handle shutdown properly:
        (when (some has-after? (:contexts t))

(def t9 (TestCase [c6] [t7 t7]))

(with-log
  (let [results (run-test-case t9 lazy-strategy)]
    (assert (= @*log* [:c6-open]))
    (dorun (result-seq results))
    (assert (= @*log* [:c6-open :a3 :a4 :a3 :a4]))))
