 
 
   :test-runner-state
-  {:results
-    [{:vars \"(an-failing-test) (bolth_test.clj:7)\",
+  [{:vars \"(an-failing-test) (bolth_test.clj:7)\",
       :contexts \"\",
       :result
       {:message nil,


(defn prioritize-tests [tests]
  (if-let [results @state/*previous-test-run*]
    (let [mapped-results (group-by (comp str :vars) (:results results))]
      (sort-by
        (fn [[test-var _ _ :as test]]
          (get-in mapped-results [(str test-var) 0 :runtime]))

(defn format-slow-tests [results options]
  (let [slowest (->> results
                  :test-runner-state
                  (sort-by :runtime)
                  reverse
                  (take (:slow-test-count options 10)))]
