3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-18 02:51:37 +02:00
Code Issues Projects Releases Packages Wiki Activity

📎 Update frontend bench tools

Browse source
This commit is contained in:
Andrey Antukh 2023-06-08 07:29:00 +02:00
parent 7fa24fdc2f
commit 121188d921
2 changed files with 101 additions and 55 deletions
Download patch file Download diff file Expand all files Collapse all files

28
frontend/src/app/util/perf.cljs
View file

@ -107,26 +107,40 @@
children)))
(defn benchmark
[& {:keys [f warmup iterations name]
[& {:keys [run-fn chk-fn iterations name gc]
:or {iterations 10000}}]
(let [end-mark (str name ":end")]
(let [end-mark (str name ":end")
blackhole (volatile! nil)]
(println "=> benchmarking:" name)
(println "--> warming up:" iterations)
(loop [i iterations]
(when gc
(println "-> force gc: true"))
(println "--> warming up: " (* iterations 2))
(when (fn? gc) (gc))
(loop [i (* iterations 2)]
(when (pos? i)
(f)
(vreset! blackhole (run-fn))
(recur (dec i))))
(println "--> benchmarking:" iterations)
(when (fn? gc) (gc))
(js/performance.mark name)
(loop [i iterations]
(when (pos? i)
(f)
(vreset! blackhole (run-fn))
(recur (dec i))))
(js/performance.measure end-mark name)
(when (fn? chk-fn)
(when-not (chk-fn @blackhole)
(println "--> EE: failed chk-fn")))
(let [[result] (js/performance.getEntriesByName end-mark)
duration (mth/precision (.-duration ^js result) 4)
avg (mth/precision (/ duration iterations) 4)]
(println "--> TOTAL:" (str duration "ms") "AVG:" (str avg "ms"))
(println "--> TOTAL:" (str duration " ms"))
(println "--> AVG :" (str avg " ms"))
(println "")
(js/performance.clearMarks name)
(js/performance.clearMeasures end-mark)
#js {:duration duration