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

📎 Add performance related helpers.

Browse source
This commit is contained in:
Andrey Antukh 2022-01-12 20:23:25 +01:00 • committed by Andrés Moya
parent 327c095d79
commit cbb3783d84
10 changed files with 767 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

31
backend/dev/user.clj
View file

@ -6,18 +6,20 @@
(ns user
(:require
[datoteka.core]
[app.common.exceptions :as ex]
[app.common.geom.matrix :as gmt]
[app.common.perf :as perf]
[app.common.transit :as t]
[app.config :as cfg]
[app.main :as main]
[app.util.blob :as blob]
[app.util.json :as json]
[app.util.fressian :as fres]
[app.util.json :as json]
[app.util.time :as dt]
[app.common.transit :as t]
[clj-async-profiler.core :as prof]
[clojure.contrib.humanize :as hum]
[clojure.java.io :as io]
[clojure.pprint :refer [pprint print-table]]
[clojure.contrib.humanize :as hum]
[clojure.repl :refer :all]
[clojure.spec.alpha :as s]
[clojure.spec.gen.alpha :as sgen]
@ -25,8 +27,7 @@
[clojure.test :as test]
[clojure.tools.namespace.repl :as repl]
[clojure.walk :refer [macroexpand-all]]
[clj-async-profiler.core :as prof]
[criterium.core :refer [quick-bench bench with-progress-reporting]]
[datoteka.core]
[integrant.core :as ig]))
(repl/disable-reload! (find-ns 'integrant.core))
@ -34,24 +35,6 @@
(defonce system nil)
;; --- Benchmarking Tools
(defmacro run-quick-bench
[& exprs]
`(with-progress-reporting (quick-bench (do ~@exprs) :verbose)))
(defmacro run-quick-bench'
[& exprs]
`(quick-bench (do ~@exprs)))
(defmacro run-bench
[& exprs]
`(with-progress-reporting (bench (do ~@exprs) :verbose)))
(defmacro run-bench'
[& exprs]
`(bench (do ~@exprs)))
;; --- Development Stuff
(defn- run-tests