          (map #(.toURI %))
          (map #(.toURL %))
          (map x/xml-resource)
+         (mapcat #(x/select % [[(x/tag= :testsuite)]]))
          (map make-failure-report)
          (filter identity)
+         (map merge-default)
          (reduce combine-failure-reports {:errors 0
                                           :failures 0
                                           :tests 0

      (clojure.pprint/pprint testsuite)
      (throw t))))

(defn find-failures [dir]
  (when dir
    (->> dir

            [clojure.string :as str]
            [net.cgrand.enlive-html :as x]))

(defn maybe-update [m ks f & x]
  (into m (for [[k v] (select-keys m ks)]
            [k (apply f v x)])))

(defn testcase-meta [xml]
  (-> xml
      (x/select [[(x/attr= :errors)
