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


(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]))

     (binding [*out* writer
               *frame-options* (:frame-options options *frame-options*)
               clojure.test/*test-out* writer
               *test-runner-state* (atom [])]
       (clear-screen options)
       (let [f (start-flusher (:flush-interval options 10))
             t0 (System/nanoTime)
