Add unparse perf test

andrewmcveigh · Apr 9, 2016 · e23e3c8 · e23e3c8
1 parent 46d1cac
commit e23e3c8
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/build.boot b/build.boot
@@ -20,7 +20,7 @@
 
 (require '[parse-perf-test :as perf])
 
-(boot/deftask compare-parse-perf []
+(boot/deftask compare-perf []
   (println
    "Average runs:"
    (pr-str (perf/compare perf/old-version perf/new-version))))

diff --git a/perf/runner.cljs b/perf/runner.cljs
@@ -59,5 +59,6 @@
    })
 
 (dotimes [_ 100]
-  (doseq [[date-key date-str] dates]
-    (f/parse (f/formatters date-key) date-str)))
+  (doseq [[date-key date-str] dates
+          :let [fmt (f/formatters date-key)]]
+    (f/unparse fmt (f/parse fmt date-str))))