                                     (summarize (b % opts))))
           results (run-benchmarks benchmarks bench-fn)]
       (save-results results results-path)
-      (check-results alternatives inputs results)
       (final-summary groups results chart-path))))


(defn summarize [results]
  (-> results
      (select-keys [:results
                    :total-time
                    :samples])
      (merge {:system {:os (str (get-in results
                                        [:os-details :name])
                                " "

        ~@body)))


(defn assert-result [f msg]
  (fn [& args]
    (let [r (apply f args)]
      (assert r (format msg args))
      r)))


(defn final-summary [groups results chart-path]
