luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2026-02-24 02:32:22 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

quickbenck over rest-routes

Browse source
This commit is contained in:
Tommi Reiman 2017-11-05 19:33:36 +02:00
parent 4163c7c367
commit 16116d3e58
1 changed files with 5 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
perf-test/clj/reitit/opensensors_routing_test.clj
View file

@ -73,19 +73,11 @@
total 10000
dropped (int (* total 0.45))]
(mapv
#(let [times (->> (range total)
(mapv
(fn [_]
(let [now (System/nanoTime)
result (f %)
total (- (System/nanoTime) now)]
(assert result)
total)))
(sort)
(drop dropped)
(drop-last dropped))
avg (int (/ (reduce + times) (count times)))]
[% avg]) urls)))
(fn [path]
(let [time (int (* (first (:sample-mean (cc/quick-benchmark (dotimes [_ 1000] (f path)) {}))) 1e6))]
(println path "=>" time "ns")
[path time]))
urls)))
(defn bench [routes no-paths?]
(let [routes (mapv (fn [[path name]]