adstage-david

(require '[visual-regression :as vr])

(deftask compare-screenshots
  "Run visual regression specs over the devcards."
  (let [tmp (core/tmp-dir!)]
    (fn [next-task]
      (fn [file-set]
        (vr/compare-cards "vr")
        (next-task file-set)))))