   "tests all vars grouped by namespace, expects seq of test vars, can be obtained from env"
   ([test-vars]
    (run-test-vars (ct/empty-env) test-vars))
-  ([env test-vars]
-   (-> (prepare-test-run env)
-       (into (test-vars-grouped-block test-vars))
+  ([env vars]
+   (-> (prepare-test-run env vars)
+       (into (test-vars-grouped-block vars))
        (finish-test-run)
        (ct/run-block))))
 

   (run-tests env (env/get-test-namespaces)))
  ([env namespaces]
   {:pre [(set? namespaces)]}
   (-> (prepare-test-run env)
       (into (->> (env/get-test-vars)
                  (filter #(contains? namespaces (-> % meta :ns)))
                  (test-vars-grouped-block)))
       (finish-test-run)
       (ct/run-block))))

(defn run-all-tests
  "Runs all tests in all namespaces; prints results.

          (println (str "Namespace: " ns " not found, no tests to run.")))]
       (test-vars-grouped-block vars)))))

(defn prepare-test-run [{:keys [report-fn] :as env} vars]
  (let [orig-report ct/report]
    [(fn []
       (ct/set-env! (assoc env ::report-fn orig-report))
