          (map (fn [suite]
                 (merge suite
                        (reduce (fn[s t]
-                                 (-> s (update (some #(if (t %) %) (keys s)) inc) (update :total inc)))
+                                 (-> s (update (some #(if (t %) %) (keys s)) inc)
+                                     (update :total inc)))
                                result-keys (:tests suite)))))
          (#(assoc (reduce add-results %) :suites %)))))
 

                                    (try (exec-test-case test opts)
                                         (catch Exception e
                                           (log/error e "failed executing test")
                                           (assoc test :done true :error (.getMessage e))))
                                    (assoc test :skipped "dependents failed"))
                                  :done true)
                                 test)]

  (let [test (if (:error test) test (prepare-test test @opts))]
    (if (:error test) test
        (let [resp (mk-request test)
              delta (verify-response resp test)
              test (assoc test :time (:request-time resp))]
          (if delta
            (assoc test :failure delta :resp resp)
            (do
