2017-08-19 18:25:47 +00:00
|
|
|
(ns reitit.opensensors-routing-test
|
|
|
|
|
(:require [clojure.test :refer [deftest testing is]]
|
2017-08-30 05:16:21 +00:00
|
|
|
[criterium.core :as cc]
|
|
|
|
|
[reitit.perf-utils :refer :all]
|
2017-08-19 18:25:47 +00:00
|
|
|
[cheshire.core :as json]
|
|
|
|
|
[clojure.string :as str]
|
2017-08-20 06:52:44 +00:00
|
|
|
[reitit.core :as reitit]
|
2017-11-05 17:33:24 +00:00
|
|
|
[reitit.ring :as ring]
|
2017-08-20 06:52:44 +00:00
|
|
|
|
2017-08-19 18:25:47 +00:00
|
|
|
[bidi.bidi :as bidi]
|
2017-08-20 06:52:44 +00:00
|
|
|
|
2017-08-19 18:25:47 +00:00
|
|
|
[ataraxy.core :as ataraxy]
|
2017-08-20 06:52:44 +00:00
|
|
|
|
2017-08-20 05:09:31 +00:00
|
|
|
[compojure.api.sweet :refer [api routes context ANY]]
|
2017-11-05 17:33:24 +00:00
|
|
|
[compojure.core :as compojure]
|
2017-08-20 06:52:44 +00:00
|
|
|
|
|
|
|
|
[io.pedestal.http.route.definition.table :as table]
|
|
|
|
|
[io.pedestal.http.route.map-tree :as map-tree]
|
|
|
|
|
[io.pedestal.http.route.router :as pedestal]
|
|
|
|
|
[io.pedestal.http.route :as route]))
|
2017-08-19 18:25:47 +00:00
|
|
|
|
2017-08-30 05:16:21 +00:00
|
|
|
;;
|
|
|
|
|
;; start repl with `lein perf repl`
|
|
|
|
|
;; perf measured with the following setup:
|
|
|
|
|
;;
|
|
|
|
|
;; Model Name: MacBook Pro
|
|
|
|
|
;; Model Identifier: MacBookPro11,3
|
|
|
|
|
;; Processor Name: Intel Core i7
|
|
|
|
|
;; Processor Speed: 2,5 GHz
|
|
|
|
|
;; Number of Processors: 1
|
|
|
|
|
;; Total Number of Cores: 4
|
|
|
|
|
;; L2 Cache (per Core): 256 KB
|
|
|
|
|
;; L3 Cache: 6 MB
|
|
|
|
|
;; Memory: 16 GB
|
|
|
|
|
;;
|
2017-08-19 18:25:47 +00:00
|
|
|
|
|
|
|
|
;;
|
|
|
|
|
;; extract sample routes
|
|
|
|
|
;;
|
|
|
|
|
|
|
|
|
|
(defn swagger->routes [url ring?]
|
|
|
|
|
(let [route-number (atom 0)
|
|
|
|
|
->route-name #(keyword "test" (str "route" (swap! route-number inc)))
|
|
|
|
|
->endpoint (fn [m]
|
|
|
|
|
(if ring?
|
|
|
|
|
(reduce-kv
|
|
|
|
|
(fn [acc k v]
|
|
|
|
|
(assoc acc k {:handler #'identity, :name (->route-name)}))
|
|
|
|
|
{} (select-keys m #{:get :head :patch :delete :options :post :put}))
|
|
|
|
|
(->route-name)))]
|
|
|
|
|
(-> (slurp url)
|
|
|
|
|
(json/parse-string true)
|
|
|
|
|
(->> :paths
|
|
|
|
|
(mapv (fn [[p v]] [(-> p name (str/replace #"\{(.*?)\}" ":$1") (->> (str "/"))) (->endpoint v)]))))))
|
|
|
|
|
|
|
|
|
|
(defn valid-urls [router]
|
|
|
|
|
(->>
|
|
|
|
|
(for [name (reitit/route-names router)
|
|
|
|
|
:let [match (reitit/match-by-name router name)
|
|
|
|
|
params (if (reitit/partial-match? match)
|
|
|
|
|
(-> match :required (zipmap (range))))]]
|
|
|
|
|
(:path (reitit/match-by-name router name params)))
|
|
|
|
|
(into [])))
|
|
|
|
|
|
|
|
|
|
(comment
|
|
|
|
|
(swagger->routes "https://api.opensensors.io/doc" false))
|
|
|
|
|
|
2017-11-12 19:44:40 +00:00
|
|
|
(defrecord Request [uri path-info request-method])
|
|
|
|
|
|
|
|
|
|
(defn bench-routes [routes req f]
|
2017-08-19 18:25:47 +00:00
|
|
|
(let [router (reitit/router routes)
|
|
|
|
|
urls (valid-urls router)
|
|
|
|
|
random-url #(rand-nth urls)
|
|
|
|
|
log-time #(let [now (System/nanoTime)] (%) (- (System/nanoTime) now))
|
|
|
|
|
total 10000
|
|
|
|
|
dropped (int (* total 0.45))]
|
|
|
|
|
(mapv
|
2017-11-05 17:33:36 +00:00
|
|
|
(fn [path]
|
2017-11-12 19:44:40 +00:00
|
|
|
(let [request (map->Request (req path))
|
|
|
|
|
time (int (* (first (:sample-mean (cc/quick-benchmark (dotimes [_ 1000] (f request)) {}))) 1e6))]
|
2017-11-05 17:33:36 +00:00
|
|
|
(println path "=>" time "ns")
|
|
|
|
|
[path time]))
|
|
|
|
|
urls)))
|
2017-08-19 18:25:47 +00:00
|
|
|
|
2017-11-12 19:44:40 +00:00
|
|
|
(defn bench [routes req no-paths?]
|
2017-08-19 18:25:47 +00:00
|
|
|
(let [routes (mapv (fn [[path name]]
|
|
|
|
|
(if no-paths?
|
|
|
|
|
[(str/replace path #"\:" "") name]
|
|
|
|
|
[path name])) routes)
|
|
|
|
|
router (reitit/router routes)]
|
2017-11-12 19:44:40 +00:00
|
|
|
(doseq [[path time] (bench-routes routes req #(reitit/match-by-path router %))]
|
2017-08-19 18:25:47 +00:00
|
|
|
(println path "\t" time))))
|
|
|
|
|
;;
|
|
|
|
|
;; Perf tests
|
|
|
|
|
;;
|
|
|
|
|
|
2017-08-20 16:14:49 +00:00
|
|
|
(def handler (constantly {:status 200, :body "ok"}))
|
2017-08-20 06:52:44 +00:00
|
|
|
|
2017-08-19 18:25:47 +00:00
|
|
|
(def opensensors-routes
|
2017-08-20 06:52:44 +00:00
|
|
|
[["/v2/whoami" {:handler handler, :name :test/route1}]
|
|
|
|
|
["/v2/users/:user-id/datasets" {:handler handler, :name :test/route2}]
|
|
|
|
|
["/v2/public/projects/:project-id/datasets" {:handler handler, :name :test/route3}]
|
|
|
|
|
["/v1/public/topics/:topic" {:handler handler, :name :test/route4}]
|
|
|
|
|
["/v1/users/:user-id/orgs/:org-id" {:handler handler, :name :test/route5}]
|
|
|
|
|
["/v1/search/topics/:term" {:handler handler, :name :test/route6}]
|
|
|
|
|
["/v1/users/:user-id/invitations" {:handler handler, :name :test/route7}]
|
|
|
|
|
#_["/v1/orgs/:org-id/devices/:batch/:type" {:handler handler, :name :test/route8}]
|
|
|
|
|
["/v1/users/:user-id/topics" {:handler handler, :name :test/route9}]
|
|
|
|
|
["/v1/users/:user-id/bookmarks/followers" {:handler handler, :name :test/route10}]
|
|
|
|
|
["/v2/datasets/:dataset-id" {:handler handler, :name :test/route11}]
|
|
|
|
|
["/v1/orgs/:org-id/usage-stats" {:handler handler, :name :test/route12}]
|
|
|
|
|
["/v1/orgs/:org-id/devices/:client-id" {:handler handler, :name :test/route13}]
|
|
|
|
|
["/v1/messages/user/:user-id" {:handler handler, :name :test/route14}]
|
|
|
|
|
["/v1/users/:user-id/devices" {:handler handler, :name :test/route15}]
|
|
|
|
|
["/v1/public/users/:user-id" {:handler handler, :name :test/route16}]
|
|
|
|
|
["/v1/orgs/:org-id/errors" {:handler handler, :name :test/route17}]
|
|
|
|
|
["/v1/public/orgs/:org-id" {:handler handler, :name :test/route18}]
|
|
|
|
|
["/v1/orgs/:org-id/invitations" {:handler handler, :name :test/route19}]
|
2017-08-22 05:40:21 +00:00
|
|
|
#_["/v2/public/messages/dataset/bulk" {:handler handler, :name :test/route20}]
|
2017-08-20 06:52:44 +00:00
|
|
|
#_["/v1/users/:user-id/devices/bulk" {:handler handler, :name :test/route21}]
|
|
|
|
|
["/v1/users/:user-id/device-errors" {:handler handler, :name :test/route22}]
|
|
|
|
|
["/v2/login" {:handler handler, :name :test/route23}]
|
|
|
|
|
["/v1/users/:user-id/usage-stats" {:handler handler, :name :test/route24}]
|
|
|
|
|
["/v2/users/:user-id/devices" {:handler handler, :name :test/route25}]
|
|
|
|
|
["/v1/users/:user-id/claim-device/:client-id" {:handler handler, :name :test/route26}]
|
|
|
|
|
["/v2/public/projects/:project-id" {:handler handler, :name :test/route27}]
|
|
|
|
|
["/v2/public/datasets/:dataset-id" {:handler handler, :name :test/route28}]
|
|
|
|
|
["/v2/users/:user-id/topics/bulk" {:handler handler, :name :test/route29}]
|
|
|
|
|
["/v1/messages/device/:client-id" {:handler handler, :name :test/route30}]
|
|
|
|
|
["/v1/users/:user-id/owned-orgs" {:handler handler, :name :test/route31}]
|
|
|
|
|
["/v1/topics/:topic" {:handler handler, :name :test/route32}]
|
|
|
|
|
["/v1/users/:user-id/bookmark/:topic" {:handler handler, :name :test/route33}]
|
|
|
|
|
["/v1/orgs/:org-id/members/:user-id" {:handler handler, :name :test/route34}]
|
|
|
|
|
["/v1/users/:user-id/devices/:client-id" {:handler handler, :name :test/route35}]
|
|
|
|
|
["/v1/users/:user-id" {:handler handler, :name :test/route36}]
|
|
|
|
|
["/v1/orgs/:org-id/devices" {:handler handler, :name :test/route37}]
|
|
|
|
|
["/v1/orgs/:org-id/members" {:handler handler, :name :test/route38}]
|
|
|
|
|
#_["/v1/orgs/:org-id/members/invitation-data/:user-id" {:handler handler, :name :test/route39}]
|
|
|
|
|
["/v2/orgs/:org-id/topics" {:handler handler, :name :test/route40}]
|
|
|
|
|
["/v1/whoami" {:handler handler, :name :test/route41}]
|
|
|
|
|
["/v1/orgs/:org-id" {:handler handler, :name :test/route42}]
|
|
|
|
|
["/v1/users/:user-id/api-key" {:handler handler, :name :test/route43}]
|
|
|
|
|
["/v2/schemas" {:handler handler, :name :test/route44}]
|
|
|
|
|
["/v2/users/:user-id/topics" {:handler handler, :name :test/route45}]
|
|
|
|
|
["/v1/orgs/:org-id/confirm-membership/:token" {:handler handler, :name :test/route46}]
|
|
|
|
|
["/v2/topics/:topic" {:handler handler, :name :test/route47}]
|
|
|
|
|
["/v1/messages/topic/:topic" {:handler handler, :name :test/route48}]
|
|
|
|
|
["/v1/users/:user-id/devices/:client-id/reset-password" {:handler handler, :name :test/route49}]
|
|
|
|
|
["/v2/topics" {:handler handler, :name :test/route50}]
|
|
|
|
|
["/v1/login" {:handler handler, :name :test/route51}]
|
|
|
|
|
["/v1/users/:user-id/orgs" {:handler handler, :name :test/route52}]
|
|
|
|
|
["/v2/public/messages/dataset/:dataset-id" {:handler handler, :name :test/route53}]
|
|
|
|
|
["/v1/topics" {:handler handler, :name :test/route54}]
|
|
|
|
|
["/v1/orgs" {:handler handler, :name :test/route55}]
|
|
|
|
|
["/v1/users/:user-id/bookmarks" {:handler handler, :name :test/route56}]
|
|
|
|
|
["/v1/orgs/:org-id/topics" {:handler handler, :name :test/route57}]])
|
2017-08-19 18:25:47 +00:00
|
|
|
|
|
|
|
|
(def opensensors-bidi-routes
|
|
|
|
|
["/" {"v1/" {"public/" {["topics/" :topic] :test/route4
|
|
|
|
|
["users/" :user-id] :test/route16
|
|
|
|
|
["orgs/" :org-id] :test/route18}
|
|
|
|
|
["users/" :user-id] {["/orgs/" :org-id] :test/route5
|
|
|
|
|
"/invitations" :test/route7
|
|
|
|
|
"/topics" :route9
|
|
|
|
|
"/bookmarks/followers" :test/route10
|
|
|
|
|
"/devices" {"" :route15
|
2017-08-20 06:52:44 +00:00
|
|
|
#_#_"/bulk" :test/route21
|
2017-08-19 18:25:47 +00:00
|
|
|
["/" :client-id] :test/route35
|
|
|
|
|
["/" :client-id "/reset-password"] :test/route49}
|
|
|
|
|
"/device-errors" :test/route22
|
|
|
|
|
"/usage-stats" :test/route24
|
|
|
|
|
["/claim-device/" :client-id] :test/route26
|
|
|
|
|
"/owned-orgs" :test/route31
|
|
|
|
|
["/bookmark/" :topic] :test/route33
|
|
|
|
|
"" :test/route36
|
|
|
|
|
"/orgs" :test/route52
|
|
|
|
|
"/api-key" :test/route43
|
|
|
|
|
"/bookmarks" :test/route56}
|
|
|
|
|
["search/topics/" :term] :test/route6
|
|
|
|
|
"orgs" {"" :test/route55
|
|
|
|
|
["/" :org-id] {"/devices" {"" :test/route37
|
|
|
|
|
["/" :device-id] :test/route13
|
2017-08-20 06:52:44 +00:00
|
|
|
#_#_["/" :batch "/" :type] :test/route8}
|
2017-08-19 18:25:47 +00:00
|
|
|
"/usage-stats" :test/route12
|
|
|
|
|
"/invitations" :test/route19
|
|
|
|
|
"/members" {["/" :user-id] :test/route34
|
|
|
|
|
"" :test/route38
|
2017-08-20 06:52:44 +00:00
|
|
|
#_#_["/invitation-data/" :user-id] :test/route39}
|
2017-08-19 18:25:47 +00:00
|
|
|
"/errors" :test/route17
|
|
|
|
|
"" :test/route42
|
|
|
|
|
["/confirm-membership/" :token] :test/route46
|
|
|
|
|
"/topics" :test/route57}}
|
|
|
|
|
"messages/" {["user/" :user-id] :test/route14
|
|
|
|
|
["device/" :client-id] :test/route30
|
|
|
|
|
["topic/" :topic] :test/route48}
|
|
|
|
|
"topics" {["/" :topic] :test/route32
|
|
|
|
|
"" :test/route54}
|
|
|
|
|
"whoami" :test/route41
|
|
|
|
|
"login" :test/route51}
|
|
|
|
|
"v2/" {"whoami" :test/route1
|
2017-08-22 10:10:16 +00:00
|
|
|
["users/" :user-id] {"/datasets" :test/route2
|
|
|
|
|
"/devices" :test/route25
|
|
|
|
|
"/topics" {"/bulk" :test/route29
|
|
|
|
|
"" :test/route45}}
|
2017-08-19 18:25:47 +00:00
|
|
|
"public/" {["projects/" :project-id] {"/datasets" :test/route3
|
|
|
|
|
"" :test/route27}
|
2017-08-22 05:40:21 +00:00
|
|
|
#_#_"messages/dataset/bulk" :test/route20
|
2017-08-19 18:25:47 +00:00
|
|
|
["datasets/" :dataset-id] :test/route28
|
|
|
|
|
["messages/dataset/" :dataset-id] :test/route53}
|
|
|
|
|
["datasets/" :dataset-id] :test/route11
|
|
|
|
|
"login" :test/route23
|
|
|
|
|
["orgs/" :org-id "/topics"] :test/route40
|
|
|
|
|
"schemas" :test/route44
|
|
|
|
|
["topics/" :topic] :test/route47
|
|
|
|
|
"topics" :test/route50}}])
|
|
|
|
|
|
|
|
|
|
(def opensensors-ataraxy-routes
|
|
|
|
|
(ataraxy/compile
|
|
|
|
|
'{"/v1/" {"public/" {["topics/" topic] [:test/route4 topic]
|
|
|
|
|
["users/" user-id] [:test/route16 user-id]
|
|
|
|
|
["orgs/" org-id] [:test/route18 org-id]}
|
|
|
|
|
["users/" user-id] {["/orgs/" org-id] [:test/route5 user-id org-id]
|
|
|
|
|
"/invitations" [:test/route7 user-id]
|
|
|
|
|
"/topics" [:route9 user-id]
|
|
|
|
|
"/bookmarks/followers" [:test/route10 user-id]
|
|
|
|
|
"/devices" {"" [:route15 user-id]
|
2017-08-20 06:52:44 +00:00
|
|
|
#_#_"/bulk" [:test/route21 user-id]
|
2017-08-19 18:25:47 +00:00
|
|
|
["/" client-id] [:test/route35 user-id client-id]
|
|
|
|
|
["/" client-id "/reset-password"] [:test/route49 user-id client-id]}
|
|
|
|
|
"/device-errors" [:test/route22 user-id]
|
|
|
|
|
"/usage-stats" [:test/route24 user-id]
|
|
|
|
|
["/claim-device/" client-id] [:test/route26 user-id client-id]
|
|
|
|
|
"/owned-orgs" [:test/route31 user-id]
|
|
|
|
|
["/bookmark/" topic] [:test/route33 user-id topic]
|
|
|
|
|
"" [:test/route36 user-id]
|
|
|
|
|
"/orgs" [:test/route52 user-id]
|
|
|
|
|
"/api-key" [:test/route43 user-id]
|
|
|
|
|
"/bookmarks" [:test/route56 user-id]}
|
|
|
|
|
["search/topics/" term] [:test/route6 term]
|
|
|
|
|
"orgs" {"" [:test/route55]
|
|
|
|
|
["/" org-id] {"/devices" {"" [:test/route37 org-id]
|
|
|
|
|
["/" device-id] [:test/route13 org-id device-id]
|
2017-08-20 06:52:44 +00:00
|
|
|
#_#_["/" batch "/" type] [:test/route8 org-id batch type]}
|
2017-08-19 18:25:47 +00:00
|
|
|
"/usage-stats" [:test/route12 org-id]
|
|
|
|
|
"/invitations" [:test/route19 org-id]
|
|
|
|
|
"/members" {["/" user-id] [:test/route34 org-id user-id]
|
|
|
|
|
"" [:test/route38 org-id]
|
2017-08-20 06:52:44 +00:00
|
|
|
#_#_["/invitation-data/" user-id] [:test/route39 org-id user-id]}
|
2017-08-19 18:25:47 +00:00
|
|
|
"/errors" [:test/route17 org-id]
|
|
|
|
|
"" [:test/route42 org-id]
|
|
|
|
|
["/confirm-membership/" token] [:test/route46 org-id token]
|
|
|
|
|
"/topics" [:test/route57 org-id]}}
|
|
|
|
|
"messages/" {["user/" user-id] [:test/route14 user-id]
|
|
|
|
|
["device/" client-id] [:test/route30 client-id]
|
|
|
|
|
["topic/" topic] [:test/route48 topic]}
|
|
|
|
|
"topics" {["/" topic] [:test/route32 topic]
|
|
|
|
|
"" [:test/route54]}
|
|
|
|
|
"whoami" [:test/route41]
|
|
|
|
|
"login" [:test/route51]}
|
|
|
|
|
"/v2/" {"whoami" [:test/route1]
|
|
|
|
|
["users/" user-id] {"/datasets" [:test/route2 user-id]
|
|
|
|
|
"/devices" [:test/route25 user-id]
|
2017-08-22 10:10:16 +00:00
|
|
|
"/topics" {"/bulk" [:test/route29 user-id]
|
2017-08-19 18:25:47 +00:00
|
|
|
"" [:test/route45 user-id]}}
|
|
|
|
|
"public/" {["projects/" project-id] {"/datasets" [:test/route3 project-id]
|
|
|
|
|
"" [:test/route27 project-id]}
|
2017-08-22 05:40:21 +00:00
|
|
|
#_#_"messages/dataset/bulk" [:test/route20]
|
2017-08-19 18:25:47 +00:00
|
|
|
["datasets/" dataset-id] [:test/route28 dataset-id]
|
|
|
|
|
["messages/dataset/" dataset-id] [:test/route53 dataset-id]}
|
|
|
|
|
["datasets/" dataset-id] [:test/route11 dataset-id]
|
|
|
|
|
"login" [:test/route23]
|
|
|
|
|
["orgs/" org-id "/topics"] [:test/route40 org-id]
|
|
|
|
|
"schemas" [:test/route44]
|
|
|
|
|
["topics/" topic] [:test/route47 topic]
|
|
|
|
|
"topics" [:test/route50]}}))
|
|
|
|
|
|
2017-11-05 17:33:24 +00:00
|
|
|
(def opensensors-compojure-routes
|
|
|
|
|
(compojure/routes
|
|
|
|
|
(compojure/context "/v1" []
|
2017-11-12 19:44:40 +00:00
|
|
|
(compojure/context "/public" []
|
|
|
|
|
(compojure/ANY "/topics/:topic" [] {:name :test/route4} handler)
|
|
|
|
|
(compojure/ANY "/users/:user-id" [] {:name :test/route16} handler)
|
|
|
|
|
(compojure/ANY "/orgs/:org-id" [] {:name :test/route18} handler))
|
|
|
|
|
(compojure/context "/users/:user-id" []
|
|
|
|
|
(compojure/ANY "/orgs/:org-id" [] {:name :test/route5} handler)
|
|
|
|
|
(compojure/ANY "/invitations" [] {:name :test/route7} handler)
|
|
|
|
|
(compojure/ANY "/topics" [] {:name :test/route9} handler)
|
|
|
|
|
(compojure/ANY "/bookmarks/followers" [] {:name :test/route10} handler)
|
|
|
|
|
(compojure/context "/devices" []
|
|
|
|
|
(compojure/ANY "/" [] {:name :test/route15} handler)
|
|
|
|
|
#_(compojure/ANY "/bulk" [] {:name :test/route21} handler)
|
|
|
|
|
(compojure/ANY "/:client-id" [] {:name :test/route35} handler)
|
|
|
|
|
(compojure/ANY "/:client-id/reset-password" [] {:name :test/route49} handler))
|
|
|
|
|
(compojure/ANY "/device-errors" [] {:name :test/route22} handler)
|
|
|
|
|
(compojure/ANY "/usage-stats" [] {:name :test/route24} handler)
|
|
|
|
|
(compojure/ANY "/claim-device/:client-id" [] {:name :test/route26} handler)
|
|
|
|
|
(compojure/ANY "/owned-orgs" [] {:name :test/route31} handler)
|
|
|
|
|
(compojure/ANY "/bookmark/:topic" [] {:name :test/route33} handler)
|
|
|
|
|
(compojure/ANY "/" [] {:name :test/route36} handler)
|
|
|
|
|
(compojure/ANY "/orgs" [] {:name :test/route52} handler)
|
|
|
|
|
(compojure/ANY "/api-key" [] {:name :test/route43} handler)
|
|
|
|
|
(compojure/ANY "/bookmarks" [] {:name :test/route56} handler))
|
|
|
|
|
(compojure/ANY "/search/topics/:term" [] {:name :test/route6} handler)
|
|
|
|
|
(compojure/context "/orgs" []
|
|
|
|
|
(compojure/ANY "/" [] {:name :test/route55} handler)
|
|
|
|
|
(compojure/context "/:org-id" []
|
|
|
|
|
(compojure/context "/devices" []
|
|
|
|
|
(compojure/ANY "/" [] {:name :test/route37} handler)
|
|
|
|
|
(compojure/ANY "/:device-id" [] {:name :test/route13} handler)
|
|
|
|
|
#_(compojure/ANY "/:batch/:type" [] {:name :test/route8} handler))
|
|
|
|
|
(compojure/ANY "/usage-stats" [] {:name :test/route12} handler)
|
|
|
|
|
(compojure/ANY "/invitations" [] {:name :test/route19} handler)
|
|
|
|
|
(compojure/context "/members" []
|
|
|
|
|
(compojure/ANY "/:user-id" [] {:name :test/route34} handler)
|
|
|
|
|
(compojure/ANY "/" [] {:name :test/route38} handler)
|
|
|
|
|
#_(compojure/ANY "/invitation-data/:user-id" [] {:name :test/route39} handler))
|
|
|
|
|
(compojure/ANY "/errors" [] {:name :test/route17} handler)
|
|
|
|
|
(compojure/ANY "/" [] {:name :test/route42} handler)
|
|
|
|
|
(compojure/ANY "/confirm-membership/:token" [] {:name :test/route46} handler)
|
|
|
|
|
(compojure/ANY "/topics" [] {:name :test/route57} handler)))
|
|
|
|
|
(compojure/context "/messages" []
|
|
|
|
|
(compojure/ANY "/user/:user-id" [] {:name :test/route14} handler)
|
|
|
|
|
(compojure/ANY "/device/:client-id" [] {:name :test/route30} handler)
|
|
|
|
|
(compojure/ANY "/topic/:topic" [] {:name :test/route48} handler))
|
|
|
|
|
(compojure/context "/topics" []
|
|
|
|
|
(compojure/ANY "/:topic" [] {:name :test/route32} handler)
|
|
|
|
|
(compojure/ANY "/" [] {:name :test/route54} handler))
|
|
|
|
|
(compojure/ANY "/whoami" [] {:name :test/route41} handler)
|
|
|
|
|
(compojure/ANY "/login" [] {:name :test/route51} handler))
|
2017-11-05 17:33:24 +00:00
|
|
|
(compojure/context "/v2" []
|
2017-11-12 19:44:40 +00:00
|
|
|
(compojure/ANY "/whoami" [] {:name :test/route1} handler)
|
|
|
|
|
(compojure/context "/users/:user-id" []
|
|
|
|
|
(compojure/ANY "/datasets" [] {:name :test/route2} handler)
|
|
|
|
|
(compojure/ANY "/devices" [] {:name :test/route25} handler)
|
|
|
|
|
(compojure/context "/topics" []
|
|
|
|
|
(compojure/ANY "/bulk" [] {:name :test/route29} handler)
|
|
|
|
|
(compojure/ANY "/" [] {:name :test/route54} handler))
|
|
|
|
|
(compojure/ANY "/" [] {:name :test/route45} handler))
|
|
|
|
|
(compojure/context "/public" []
|
|
|
|
|
(compojure/context "/projects/:project-id" []
|
|
|
|
|
(compojure/ANY "/datasets" [] {:name :test/route3} handler)
|
|
|
|
|
(compojure/ANY "/" [] {:name :test/route27} handler))
|
|
|
|
|
#_(compojure/ANY "/messages/dataset/bulk" [] {:name :test/route20} handler)
|
|
|
|
|
(compojure/ANY "/datasets/:dataset-id" [] {:name :test/route28} handler)
|
|
|
|
|
(compojure/ANY "/messages/dataset/:dataset-id" [] {:name :test/route53} handler))
|
|
|
|
|
(compojure/ANY "/datasets/:dataset-id" [] {:name :test/route11} handler)
|
|
|
|
|
(compojure/ANY "/login" [] {:name :test/route23} handler)
|
|
|
|
|
(compojure/ANY "/orgs/:org-id/topics" [] {:name :test/route40} handler)
|
|
|
|
|
(compojure/ANY "/schemas" [] {:name :test/route44} handler)
|
|
|
|
|
(compojure/ANY "/topics/:topic" [] {:name :test/route47} handler)
|
|
|
|
|
(compojure/ANY "/topics" [] {:name :test/route50} handler))))
|
2017-11-05 17:33:24 +00:00
|
|
|
|
2017-08-20 05:09:31 +00:00
|
|
|
(def opensensors-compojure-api-routes
|
2017-08-20 06:52:44 +00:00
|
|
|
(routes
|
|
|
|
|
(context "/v1" []
|
2017-11-12 19:44:40 +00:00
|
|
|
(context "/public" []
|
|
|
|
|
(ANY "/topics/:topic" [] {:name :test/route4} handler)
|
|
|
|
|
(ANY "/users/:user-id" [] {:name :test/route16} handler)
|
|
|
|
|
(ANY "/orgs/:org-id" [] {:name :test/route18} handler))
|
|
|
|
|
(context "/users/:user-id" []
|
|
|
|
|
(ANY "/orgs/:org-id" [] {:name :test/route5} handler)
|
|
|
|
|
(ANY "/invitations" [] {:name :test/route7} handler)
|
|
|
|
|
(ANY "/topics" [] {:name :test/route9} handler)
|
|
|
|
|
(ANY "/bookmarks/followers" [] {:name :test/route10} handler)
|
|
|
|
|
(context "/devices" []
|
|
|
|
|
(ANY "/" [] {:name :test/route15} handler)
|
|
|
|
|
#_(ANY "/bulk" [] {:name :test/route21} handler)
|
|
|
|
|
(ANY "/:client-id" [] {:name :test/route35} handler)
|
|
|
|
|
(ANY "/:client-id/reset-password" [] {:name :test/route49} handler))
|
|
|
|
|
(ANY "/device-errors" [] {:name :test/route22} handler)
|
|
|
|
|
(ANY "/usage-stats" [] {:name :test/route24} handler)
|
|
|
|
|
(ANY "/claim-device/:client-id" [] {:name :test/route26} handler)
|
|
|
|
|
(ANY "/owned-orgs" [] {:name :test/route31} handler)
|
|
|
|
|
(ANY "/bookmark/:topic" [] {:name :test/route33} handler)
|
|
|
|
|
(ANY "/" [] {:name :test/route36} handler)
|
|
|
|
|
(ANY "/orgs" [] {:name :test/route52} handler)
|
|
|
|
|
(ANY "/api-key" [] {:name :test/route43} handler)
|
|
|
|
|
(ANY "/bookmarks" [] {:name :test/route56} handler))
|
|
|
|
|
(ANY "/search/topics/:term" [] {:name :test/route6} handler)
|
|
|
|
|
(context "/orgs" []
|
|
|
|
|
(ANY "/" [] {:name :test/route55} handler)
|
|
|
|
|
(context "/:org-id" []
|
|
|
|
|
(context "/devices" []
|
|
|
|
|
(ANY "/" [] {:name :test/route37} handler)
|
|
|
|
|
(ANY "/:device-id" [] {:name :test/route13} handler)
|
|
|
|
|
#_(ANY "/:batch/:type" [] {:name :test/route8} handler))
|
|
|
|
|
(ANY "/usage-stats" [] {:name :test/route12} handler)
|
|
|
|
|
(ANY "/invitations" [] {:name :test/route19} handler)
|
|
|
|
|
(context "/members" []
|
|
|
|
|
(ANY "/:user-id" [] {:name :test/route34} handler)
|
|
|
|
|
(ANY "/" [] {:name :test/route38} handler)
|
|
|
|
|
#_(ANY "/invitation-data/:user-id" [] {:name :test/route39} handler))
|
|
|
|
|
(ANY "/errors" [] {:name :test/route17} handler)
|
|
|
|
|
(ANY "/" [] {:name :test/route42} handler)
|
|
|
|
|
(ANY "/confirm-membership/:token" [] {:name :test/route46} handler)
|
|
|
|
|
(ANY "/topics" [] {:name :test/route57} handler)))
|
|
|
|
|
(context "/messages" []
|
|
|
|
|
(ANY "/user/:user-id" [] {:name :test/route14} handler)
|
|
|
|
|
(ANY "/device/:client-id" [] {:name :test/route30} handler)
|
|
|
|
|
(ANY "/topic/:topic" [] {:name :test/route48} handler))
|
|
|
|
|
(context "/topics" []
|
|
|
|
|
(ANY "/:topic" [] {:name :test/route32} handler)
|
|
|
|
|
(ANY "/" [] {:name :test/route54} handler))
|
|
|
|
|
(ANY "/whoami" [] {:name :test/route41} handler)
|
|
|
|
|
(ANY "/login" [] {:name :test/route51} handler))
|
2017-08-20 06:52:44 +00:00
|
|
|
(context "/v2" []
|
2017-11-12 19:44:40 +00:00
|
|
|
(ANY "/whoami" [] {:name :test/route1} handler)
|
|
|
|
|
(context "/users/:user-id" []
|
|
|
|
|
(ANY "/datasets" [] {:name :test/route2} handler)
|
|
|
|
|
(ANY "/devices" [] {:name :test/route25} handler)
|
|
|
|
|
(context "/topics" []
|
|
|
|
|
(ANY "/bulk" [] {:name :test/route29} handler)
|
|
|
|
|
(ANY "/" [] {:name :test/route54} handler))
|
|
|
|
|
(ANY "/" [] {:name :test/route45} handler))
|
|
|
|
|
(context "/public" []
|
|
|
|
|
(context "/projects/:project-id" []
|
|
|
|
|
(ANY "/datasets" [] {:name :test/route3} handler)
|
|
|
|
|
(ANY "/" [] {:name :test/route27} handler))
|
|
|
|
|
#_(ANY "/messages/dataset/bulk" [] {:name :test/route20} handler)
|
|
|
|
|
(ANY "/datasets/:dataset-id" [] {:name :test/route28} handler)
|
|
|
|
|
(ANY "/messages/dataset/:dataset-id" [] {:name :test/route53} handler))
|
|
|
|
|
(ANY "/datasets/:dataset-id" [] {:name :test/route11} handler)
|
|
|
|
|
(ANY "/login" [] {:name :test/route23} handler)
|
|
|
|
|
(ANY "/orgs/:org-id/topics" [] {:name :test/route40} handler)
|
|
|
|
|
(ANY "/schemas" [] {:name :test/route44} handler)
|
|
|
|
|
(ANY "/topics/:topic" [] {:name :test/route47} handler)
|
|
|
|
|
(ANY "/topics" [] {:name :test/route50} handler))))
|
2017-08-20 06:52:44 +00:00
|
|
|
|
|
|
|
|
(def opensensors-pedestal-routes
|
|
|
|
|
(map-tree/router
|
|
|
|
|
(table/table-routes
|
|
|
|
|
[["/v2/whoami" :get handler :route-name :test/route1]
|
|
|
|
|
["/v2/users/:user-id/datasets" :get handler :route-name :test/route2]
|
|
|
|
|
["/v2/public/projects/:project-id/datasets" :get handler :route-name :test/route3]
|
|
|
|
|
["/v1/public/topics/:topic" :get handler :route-name :test/route4]
|
|
|
|
|
["/v1/users/:user-id/orgs/:org-id" :get handler :route-name :test/route5]
|
|
|
|
|
["/v1/search/topics/:term" :get handler :route-name :test/route6]
|
|
|
|
|
["/v1/users/:user-id/invitations" :get handler :route-name :test/route7]
|
|
|
|
|
#_["/v1/orgs/:org-id/devices/:batch/:type" :get handler :route-name :test/route8]
|
|
|
|
|
["/v1/users/:user-id/topics" :get handler :route-name :test/route9]
|
|
|
|
|
["/v1/users/:user-id/bookmarks/followers" :get handler :route-name :test/route10]
|
|
|
|
|
["/v2/datasets/:dataset-id" :get handler :route-name :test/route11]
|
|
|
|
|
["/v1/orgs/:org-id/usage-stats" :get handler :route-name :test/route12]
|
|
|
|
|
["/v1/orgs/:org-id/devices/:client-id" :get handler :route-name :test/route13]
|
|
|
|
|
["/v1/messages/user/:user-id" :get handler :route-name :test/route14]
|
|
|
|
|
["/v1/users/:user-id/devices" :get handler :route-name :test/route15]
|
|
|
|
|
["/v1/public/users/:user-id" :get handler :route-name :test/route16]
|
|
|
|
|
["/v1/orgs/:org-id/errors" :get handler :route-name :test/route17]
|
|
|
|
|
["/v1/public/orgs/:org-id" :get handler :route-name :test/route18]
|
|
|
|
|
["/v1/orgs/:org-id/invitations" :get handler :route-name :test/route19]
|
2017-08-22 05:40:21 +00:00
|
|
|
#_["/v2/public/messages/dataset/bulk" :get handler :route-name :test/route20]
|
2017-08-20 06:52:44 +00:00
|
|
|
#_["/v1/users/:user-id/devices/bulk" :get handler :route-name :test/route21]
|
|
|
|
|
["/v1/users/:user-id/device-errors" :get handler :route-name :test/route22]
|
|
|
|
|
["/v2/login" :get handler :route-name :test/route23]
|
|
|
|
|
["/v1/users/:user-id/usage-stats" :get handler :route-name :test/route24]
|
|
|
|
|
["/v2/users/:user-id/devices" :get handler :route-name :test/route25]
|
|
|
|
|
["/v1/users/:user-id/claim-device/:client-id" :get handler :route-name :test/route26]
|
|
|
|
|
["/v2/public/projects/:project-id" :get handler :route-name :test/route27]
|
|
|
|
|
["/v2/public/datasets/:dataset-id" :get handler :route-name :test/route28]
|
|
|
|
|
["/v2/users/:user-id/topics/bulk" :get handler :route-name :test/route29]
|
|
|
|
|
["/v1/messages/device/:client-id" :get handler :route-name :test/route30]
|
|
|
|
|
["/v1/users/:user-id/owned-orgs" :get handler :route-name :test/route31]
|
|
|
|
|
["/v1/topics/:topic" :get handler :route-name :test/route32]
|
|
|
|
|
["/v1/users/:user-id/bookmark/:topic" :get handler :route-name :test/route33]
|
|
|
|
|
["/v1/orgs/:org-id/members/:user-id" :get handler :route-name :test/route34]
|
|
|
|
|
["/v1/users/:user-id/devices/:client-id" :get handler :route-name :test/route35]
|
|
|
|
|
["/v1/users/:user-id" :get handler :route-name :test/route36]
|
|
|
|
|
["/v1/orgs/:org-id/devices" :get handler :route-name :test/route37]
|
|
|
|
|
["/v1/orgs/:org-id/members" :get handler :route-name :test/route38]
|
|
|
|
|
#_["/v1/orgs/:org-id/members/invitation-data/:user-id" :get handler :route-name :test/route39]
|
|
|
|
|
["/v2/orgs/:org-id/topics" :get handler :route-name :test/route40]
|
|
|
|
|
["/v1/whoami" :get handler :route-name :test/route41]
|
|
|
|
|
["/v1/orgs/:org-id" :get handler :route-name :test/route42]
|
|
|
|
|
["/v1/users/:user-id/api-key" :get handler :route-name :test/route43]
|
|
|
|
|
["/v2/schemas" :get handler :route-name :test/route44]
|
|
|
|
|
["/v2/users/:user-id/topics" :get handler :route-name :test/route45]
|
|
|
|
|
["/v1/orgs/:org-id/confirm-membership/:token" :get handler :route-name :test/route46]
|
|
|
|
|
["/v2/topics/:topic" :get handler :route-name :test/route47]
|
|
|
|
|
["/v1/messages/topic/:topic" :get handler :route-name :test/route48]
|
|
|
|
|
["/v1/users/:user-id/devices/:client-id/reset-password" :get handler :route-name :test/route49]
|
|
|
|
|
["/v2/topics" :get handler :route-name :test/route50]
|
|
|
|
|
["/v1/login" :get handler :route-name :test/route51]
|
|
|
|
|
["/v1/users/:user-id/orgs" :get handler :route-name :test/route52]
|
|
|
|
|
["/v2/public/messages/dataset/:dataset-id" :get handler :route-name :test/route53]
|
|
|
|
|
["/v1/topics" :get handler :route-name :test/route54]
|
|
|
|
|
["/v1/orgs" :get handler :route-name :test/route55]
|
|
|
|
|
["/v1/users/:user-id/bookmarks" :get handler :route-name :test/route56]
|
|
|
|
|
["/v1/orgs/:org-id/topics" :get handler :route-name :test/route57]])))
|
|
|
|
|
|
|
|
|
|
(comment
|
|
|
|
|
(pedestal/find-route
|
|
|
|
|
(map-tree/router
|
|
|
|
|
(table/table-routes
|
|
|
|
|
[["/v1/orgs/:org-id/members/:user-id" :get (constantly "") :route-name :test/route34]
|
|
|
|
|
["/v1/orgs/:org-id/members/invitation-data/:user-id" :get (constantly "") :route-name :test/route39]]))
|
|
|
|
|
{:path-info "/v1/orgs/0/members/invitation-data/1" :request-method :get})
|
|
|
|
|
|
|
|
|
|
(require '[io.pedestal.http.route.definition.table :as table])
|
|
|
|
|
(require '[io.pedestal.http.route.map-tree :as map-tree])
|
|
|
|
|
(require '[io.pedestal.http.route.router :as pedestal])
|
|
|
|
|
|
|
|
|
|
(pedestal/find-route
|
|
|
|
|
(map-tree/router
|
|
|
|
|
(table/table-routes
|
|
|
|
|
[["/:a" :get (constantly "") :route-name ::ping]
|
|
|
|
|
["/evil/ping" :get (constantly "") :route-name ::evil-ping]]))
|
|
|
|
|
{:path-info "/evil/ping" :request-method :get}))
|
|
|
|
|
|
|
|
|
|
(doseq [route (valid-urls (reitit/router opensensors-routes))]
|
|
|
|
|
(let [match (pedestal/find-route opensensors-pedestal-routes {:path-info route :request-method :get})]
|
|
|
|
|
(if-not match
|
|
|
|
|
(println route))))
|
2017-08-20 05:09:31 +00:00
|
|
|
|
2017-08-19 18:25:47 +00:00
|
|
|
(comment
|
2017-11-12 19:44:40 +00:00
|
|
|
(bench opensensors-routes (fn [path] {:request-method :get, :uri path, :path-info path}) false)
|
|
|
|
|
(bench opensensors-routes (fn [path] {:request-method :get, :uri path, :path-info path}) true))
|
2017-08-19 18:25:47 +00:00
|
|
|
|
|
|
|
|
(comment
|
2017-08-20 06:52:44 +00:00
|
|
|
|
|
|
|
|
(doseq [route (valid-urls (reitit/router opensensors-routes))]
|
2017-08-20 16:14:49 +00:00
|
|
|
(let [app (ring/ring-handler (ring/router opensensors-routes))
|
2017-08-20 06:52:44 +00:00
|
|
|
match (app {:uri route :request-method :get})]
|
|
|
|
|
(if-not match
|
|
|
|
|
(println route))))
|
|
|
|
|
|
2017-08-19 18:25:47 +00:00
|
|
|
(doseq [route (valid-urls (reitit/router opensensors-routes))]
|
|
|
|
|
(let [match (bidi/match-route opensensors-bidi-routes route)]
|
|
|
|
|
(if-not match
|
2017-08-20 06:52:44 +00:00
|
|
|
(println route))))
|
2017-08-19 18:25:47 +00:00
|
|
|
|
2017-08-20 06:52:44 +00:00
|
|
|
(doseq [route (valid-urls (reitit/router opensensors-routes))]
|
|
|
|
|
(let [match (ataraxy/matches opensensors-ataraxy-routes {:uri route})]
|
|
|
|
|
(if-not match
|
|
|
|
|
(println route))))
|
2017-08-19 18:25:47 +00:00
|
|
|
|
2017-08-20 05:09:31 +00:00
|
|
|
(doseq [route (valid-urls (reitit/router opensensors-routes))]
|
|
|
|
|
(let [match (opensensors-compojure-api-routes {:uri route :request-method :get})]
|
2017-08-20 06:52:44 +00:00
|
|
|
(if-not match
|
|
|
|
|
(println route))))
|
|
|
|
|
|
|
|
|
|
(doseq [route (valid-urls (reitit/router opensensors-routes))]
|
|
|
|
|
(let [match (pedestal/find-route opensensors-pedestal-routes {:path-info route :request-method :get})]
|
2017-08-20 05:09:31 +00:00
|
|
|
(if-not match
|
|
|
|
|
(println route)))))
|
|
|
|
|
|
2017-11-12 19:44:40 +00:00
|
|
|
(defn bench!! [routes req verbose? name f]
|
2017-08-19 18:25:47 +00:00
|
|
|
(System/gc)
|
|
|
|
|
(println)
|
2017-08-20 06:52:44 +00:00
|
|
|
(suite name)
|
2017-08-19 18:25:47 +00:00
|
|
|
(println)
|
2017-11-12 19:44:40 +00:00
|
|
|
(let [times (for [[path time] (bench-routes routes req f)]
|
2017-08-20 06:52:44 +00:00
|
|
|
(do
|
2017-08-20 16:14:49 +00:00
|
|
|
(when verbose? (println (format "%7s" time) "\t" path))
|
2017-08-20 06:52:44 +00:00
|
|
|
time))]
|
|
|
|
|
(title (str "average: " (int (/ (reduce + times) (count times)))))))
|
2017-08-19 18:25:47 +00:00
|
|
|
|
2017-08-20 16:14:49 +00:00
|
|
|
(defn bench-rest! []
|
2017-08-19 18:25:47 +00:00
|
|
|
(let [routes opensensors-routes
|
|
|
|
|
router (reitit/router routes)
|
2017-11-12 19:44:40 +00:00
|
|
|
reitit-f #(reitit/match-by-path router (:uri %))
|
|
|
|
|
reitit-ring-f (ring/ring-handler (ring/router opensensors-routes))
|
|
|
|
|
bidi-f #(bidi/match-route opensensors-bidi-routes (:uri %))
|
|
|
|
|
ataraxy-f (partial ataraxy/matches opensensors-ataraxy-routes)
|
|
|
|
|
compojure-f opensensors-compojure-routes
|
|
|
|
|
compojure-api-f opensensors-compojure-api-routes
|
|
|
|
|
pedestal-f (partial pedestal/find-route opensensors-pedestal-routes)
|
|
|
|
|
b! (partial bench!! routes (fn [path] {:request-method :get, :uri path, :path-info path}) true)]
|
2017-08-20 06:52:44 +00:00
|
|
|
|
2017-11-05 17:33:24 +00:00
|
|
|
;; 2538ns
|
|
|
|
|
;; 2065ns
|
2017-11-12 19:44:40 +00:00
|
|
|
;; 662ns (prefix-tree-router)
|
|
|
|
|
(b! "reitit" reitit-f)
|
2017-08-30 05:16:21 +00:00
|
|
|
|
2017-11-05 17:33:24 +00:00
|
|
|
;; 2845ns
|
|
|
|
|
;; 2316ns
|
2017-11-12 19:44:40 +00:00
|
|
|
;; 819ns (prefix-tree-router)
|
|
|
|
|
(b! "reitit-ring" reitit-ring-f)
|
2017-08-20 06:52:44 +00:00
|
|
|
|
2017-11-12 19:44:40 +00:00
|
|
|
;; 2540ns
|
|
|
|
|
(b! "pedestal" pedestal-f)
|
2017-08-30 05:16:21 +00:00
|
|
|
|
2017-11-12 19:44:40 +00:00
|
|
|
;; 10300ns
|
|
|
|
|
(b! "compojure-api" compojure-api-f)
|
2017-08-30 05:16:21 +00:00
|
|
|
|
2017-11-12 19:44:40 +00:00
|
|
|
;; 10800ns
|
|
|
|
|
(b! "compojure" compojure-f)
|
2017-11-05 17:33:24 +00:00
|
|
|
|
2017-11-12 19:44:40 +00:00
|
|
|
;; 15034ns
|
|
|
|
|
(b! "bidi" bidi-f)
|
2017-08-30 05:16:21 +00:00
|
|
|
|
2017-11-12 19:44:40 +00:00
|
|
|
;; 19688ns
|
|
|
|
|
(b! "ataraxy" ataraxy-f)))
|
2017-08-19 18:25:47 +00:00
|
|
|
|
|
|
|
|
(comment
|
2017-08-20 16:14:49 +00:00
|
|
|
(bench-rest!))
|
|
|
|
|
|
|
|
|
|
;;
|
|
|
|
|
;; CQRSish
|
|
|
|
|
;;
|
|
|
|
|
|
2017-11-12 19:44:40 +00:00
|
|
|
(def commands
|
|
|
|
|
#{:upsert-appeal
|
|
|
|
|
:upsert-appeal-verdict
|
|
|
|
|
:delete-appeal
|
|
|
|
|
:delete-appeal-verdict
|
|
|
|
|
:mark-seen
|
|
|
|
|
:mark-everything-seen
|
|
|
|
|
:upsert-application-handler
|
|
|
|
|
:remove-application-handler
|
|
|
|
|
:cancel-inforequest
|
|
|
|
|
:cancel-application
|
|
|
|
|
:cancel-application-authority
|
|
|
|
|
:undo-cancellation
|
|
|
|
|
:request-for-complement
|
|
|
|
|
:cleanup-krysp
|
|
|
|
|
:submit-application
|
|
|
|
|
:refresh-ktj
|
|
|
|
|
:save-application-drawings
|
|
|
|
|
:create-application
|
|
|
|
|
:add-operation
|
|
|
|
|
:update-op-description
|
|
|
|
|
:change-primary-operation
|
|
|
|
|
:change-permit-sub-type
|
|
|
|
|
:change-location
|
|
|
|
|
:change-application-state
|
|
|
|
|
:return-to-draft
|
|
|
|
|
:change-warranty-start-date
|
|
|
|
|
:change-warranty-end-date
|
|
|
|
|
:add-link-permit
|
|
|
|
|
:remove-link-permit-by-app-id
|
|
|
|
|
:create-change-permit
|
|
|
|
|
:create-continuation-period-permit
|
|
|
|
|
:convert-to-application
|
|
|
|
|
:add-bulletin-comment
|
|
|
|
|
:move-to-proclaimed
|
|
|
|
|
:move-to-verdict-given
|
|
|
|
|
:move-to-final
|
|
|
|
|
:save-proclaimed-bulletin
|
|
|
|
|
:save-verdict-given-bulletin
|
|
|
|
|
:set-municipality-hears-neighbors
|
|
|
|
|
:archive-documents
|
|
|
|
|
:mark-pre-verdict-phase-archived
|
|
|
|
|
:save-asianhallinta-config
|
|
|
|
|
:create-assignment
|
|
|
|
|
:update-assignment
|
|
|
|
|
:complete-assignment
|
|
|
|
|
:bind-attachment
|
|
|
|
|
:bind-attachments
|
|
|
|
|
:set-attachment-type
|
|
|
|
|
:approve-attachment
|
|
|
|
|
:reject-attachment
|
|
|
|
|
:reject-attachment-note
|
|
|
|
|
:create-attachments
|
|
|
|
|
:create-ram-attachment
|
|
|
|
|
:delete-attachment
|
|
|
|
|
:delete-attachment-version
|
|
|
|
|
:upload-attachment
|
|
|
|
|
:rotate-pdf
|
|
|
|
|
:upsert-stamp-template
|
|
|
|
|
:delete-stamp-template
|
|
|
|
|
:stamp-attachments
|
|
|
|
|
:sign-attachments
|
|
|
|
|
:set-attachment-meta
|
|
|
|
|
:set-attachment-not-needed
|
|
|
|
|
:set-attachments-as-verdict-attachment
|
|
|
|
|
:set-attachment-as-construction-time
|
|
|
|
|
:set-attachment-visibility
|
|
|
|
|
:convert-to-pdfa
|
|
|
|
|
:invite-with-role
|
|
|
|
|
:approve-invite
|
|
|
|
|
:decline-invitation
|
|
|
|
|
:remove-auth
|
|
|
|
|
:change-auth
|
|
|
|
|
:unsubscribe-notifications
|
|
|
|
|
:subscribe-notifications
|
|
|
|
|
:set-calendar-enabled-for-authority
|
|
|
|
|
:create-calendar-slots
|
|
|
|
|
:update-calendar-slot
|
|
|
|
|
:delete-calendar-slot
|
|
|
|
|
:add-reservation-type-for-organization
|
|
|
|
|
:update-reservation-type
|
|
|
|
|
:delete-reservation-type
|
|
|
|
|
:reserve-calendar-slot
|
|
|
|
|
:accept-reservation
|
|
|
|
|
:decline-reservation
|
|
|
|
|
:cancel-reservation
|
|
|
|
|
:mark-reservation-update-seen
|
|
|
|
|
:add-campaign
|
|
|
|
|
:delete-campaign
|
|
|
|
|
:change-email-init
|
|
|
|
|
:change-email
|
|
|
|
|
:can-target-comment-to-authority
|
|
|
|
|
:can-mark-answered
|
|
|
|
|
:add-comment
|
|
|
|
|
:company-update
|
|
|
|
|
:company-lock
|
|
|
|
|
:company-user-update
|
|
|
|
|
:company-user-delete
|
|
|
|
|
:company-user-delete-all
|
|
|
|
|
:company-invite-user
|
|
|
|
|
:company-add-user
|
|
|
|
|
:company-invite
|
|
|
|
|
:company-cancel-invite
|
|
|
|
|
:save-company-tags
|
|
|
|
|
:update-application-company-notes
|
|
|
|
|
:inform-construction-started
|
|
|
|
|
:inform-construction-ready
|
|
|
|
|
:copy-application
|
|
|
|
|
:update-3d-map-server-details
|
|
|
|
|
:set-3d-map-enabled
|
|
|
|
|
:redirect-to-3d-map
|
|
|
|
|
:create-archiving-project
|
|
|
|
|
:submit-archiving-project
|
|
|
|
|
:create-doc
|
|
|
|
|
:remove-doc
|
|
|
|
|
:set-doc-status
|
|
|
|
|
:update-doc
|
|
|
|
|
:update-task
|
|
|
|
|
:remove-document-data
|
|
|
|
|
:approve-doc
|
|
|
|
|
:reject-doc
|
|
|
|
|
:reject-doc-note
|
|
|
|
|
:set-user-to-document
|
|
|
|
|
:set-current-user-to-document
|
|
|
|
|
:set-company-to-document
|
|
|
|
|
:set-feature
|
|
|
|
|
:remove-uploaded-file
|
|
|
|
|
:create-foreman-application
|
|
|
|
|
:update-foreman-other-applications
|
|
|
|
|
:link-foreman-task
|
|
|
|
|
:update-guest-authority-organization
|
|
|
|
|
:remove-guest-authority-organization
|
|
|
|
|
:invite-guest
|
|
|
|
|
:toggle-guest-subscription
|
|
|
|
|
:delete-guest-application
|
|
|
|
|
:info-link-delete
|
|
|
|
|
:info-link-reorder
|
|
|
|
|
:info-link-upsert
|
|
|
|
|
:mark-seen-organization-links
|
|
|
|
|
:create-inspection-summary-template
|
|
|
|
|
:delete-inspection-summary-template
|
|
|
|
|
:modify-inspection-summary-template
|
|
|
|
|
:set-inspection-summary-template-for-operation
|
|
|
|
|
:create-inspection-summary
|
|
|
|
|
:delete-inspection-summary
|
|
|
|
|
:toggle-inspection-summary-locking
|
|
|
|
|
:add-target-to-inspection-summary
|
|
|
|
|
:edit-inspection-summary-target
|
|
|
|
|
:remove-target-from-inspection-summary
|
|
|
|
|
:set-target-status
|
|
|
|
|
:set-inspection-date
|
|
|
|
|
:approve-application
|
|
|
|
|
:move-attachments-to-backing-system
|
|
|
|
|
:parties-as-krysp
|
|
|
|
|
:merge-details-from-krysp
|
|
|
|
|
:application-to-asianhallinta
|
|
|
|
|
:attachments-to-asianhallinta
|
|
|
|
|
:order-verdict-attachment-prints
|
|
|
|
|
:frontend-log
|
|
|
|
|
:reset-frontend-log
|
|
|
|
|
:new-verdict-template
|
|
|
|
|
:set-verdict-template-name
|
|
|
|
|
:save-verdict-template-draft-value
|
|
|
|
|
:publish-verdict-template
|
|
|
|
|
:toggle-delete-verdict-template
|
|
|
|
|
:copy-verdict-template
|
|
|
|
|
:save-verdict-template-settings-value
|
|
|
|
|
:add-verdict-template-review
|
|
|
|
|
:update-verdict-template-review
|
|
|
|
|
:add-verdict-template-plan
|
|
|
|
|
:update-verdict-template-plan
|
|
|
|
|
:set-default-operation-verdict-template
|
|
|
|
|
:upsert-phrase
|
|
|
|
|
:delete-phrase
|
|
|
|
|
:neighbor-add
|
|
|
|
|
:neighbor-add-owners
|
|
|
|
|
:neighbor-update
|
|
|
|
|
:neighbor-remove
|
|
|
|
|
:neighbor-send-invite
|
|
|
|
|
:neighbor-mark-done
|
|
|
|
|
:neighbor-response
|
|
|
|
|
:change-urgency
|
|
|
|
|
:add-authority-notice
|
|
|
|
|
:add-application-tags
|
|
|
|
|
:init-sign
|
|
|
|
|
:cancel-sign
|
|
|
|
|
:convert-to-normal-inforequests
|
|
|
|
|
:update-organization
|
|
|
|
|
:add-scope
|
|
|
|
|
:create-organization
|
|
|
|
|
:add-organization-link
|
|
|
|
|
:update-organization-link
|
|
|
|
|
:remove-organization-link
|
|
|
|
|
:update-allowed-autologin-ips
|
|
|
|
|
:set-organization-selected-operations
|
|
|
|
|
:organization-operations-attachments
|
|
|
|
|
:set-organization-app-required-fields-filling-obligatory
|
|
|
|
|
:set-automatic-ok-for-attachments
|
|
|
|
|
:set-organization-assignments
|
|
|
|
|
:set-organization-inspection-summaries
|
|
|
|
|
:set-organization-extended-construction-waste-report
|
|
|
|
|
:set-organization-validate-verdict-given-date
|
|
|
|
|
:set-organization-use-attachment-links-integration
|
|
|
|
|
:set-organization-calendars-enabled
|
|
|
|
|
:set-organization-boolean-attribute
|
|
|
|
|
:set-organization-permanent-archive-start-date
|
|
|
|
|
:set-organization-neighbor-order-email
|
|
|
|
|
:set-organization-submit-notification-email
|
|
|
|
|
:set-organization-inforequest-notification-email
|
|
|
|
|
:set-organization-default-reservation-location
|
|
|
|
|
:set-krysp-endpoint
|
|
|
|
|
:set-kopiolaitos-info
|
|
|
|
|
:save-vendor-backend-redirect-config
|
|
|
|
|
:update-organization-name
|
|
|
|
|
:save-organization-tags
|
|
|
|
|
:update-map-server-details
|
|
|
|
|
:update-user-layers
|
|
|
|
|
:update-suti-server-details
|
|
|
|
|
:section-toggle-enabled
|
|
|
|
|
:section-toggle-operation
|
|
|
|
|
:upsert-handler-role
|
|
|
|
|
:toggle-handler-role
|
|
|
|
|
:upsert-assignment-trigger
|
|
|
|
|
:remove-assignment-trigger
|
|
|
|
|
:update-docstore-info
|
|
|
|
|
:browser-timing
|
|
|
|
|
:create-application-from-previous-permit
|
|
|
|
|
:screenmessages-add
|
|
|
|
|
:screenmessages-reset
|
|
|
|
|
:add-single-sign-on-key
|
|
|
|
|
:update-single-sign-on-key
|
|
|
|
|
:remove-single-sign-on-key
|
|
|
|
|
:create-statement-giver
|
|
|
|
|
:delete-statement-giver
|
|
|
|
|
:request-for-statement
|
|
|
|
|
:ely-statement-request
|
|
|
|
|
:delete-statement
|
|
|
|
|
:save-statement-as-draft
|
|
|
|
|
:give-statement
|
|
|
|
|
:request-for-statement-reply
|
|
|
|
|
:save-statement-reply-as-draft
|
|
|
|
|
:reply-statement
|
|
|
|
|
:suti-toggle-enabled
|
|
|
|
|
:suti-toggle-operation
|
|
|
|
|
:suti-www
|
|
|
|
|
:suti-update-id
|
|
|
|
|
:suti-update-added
|
|
|
|
|
:create-task
|
|
|
|
|
:delete-task
|
|
|
|
|
:approve-task
|
|
|
|
|
:reject-task
|
|
|
|
|
:review-done
|
|
|
|
|
:mark-review-faulty
|
|
|
|
|
:resend-review-to-backing-system
|
|
|
|
|
:set-tos-function-for-operation
|
|
|
|
|
:remove-tos-function-from-operation
|
|
|
|
|
:set-tos-function-for-application
|
|
|
|
|
:force-fix-tos-function-for-application
|
|
|
|
|
:store-tos-metadata-for-attachment
|
|
|
|
|
:store-tos-metadata-for-application
|
|
|
|
|
:store-tos-metadata-for-process
|
|
|
|
|
:set-myyntipalvelu-for-attachment
|
|
|
|
|
:create-user
|
|
|
|
|
:create-rest-api-user
|
|
|
|
|
:update-user
|
|
|
|
|
:applicant-to-authority
|
|
|
|
|
:update-default-application-filter
|
|
|
|
|
:save-application-filter
|
|
|
|
|
:remove-application-filter
|
|
|
|
|
:update-user-organization
|
|
|
|
|
:remove-user-organization
|
|
|
|
|
:update-user-roles
|
|
|
|
|
:check-password
|
|
|
|
|
:change-passwd
|
|
|
|
|
:reset-password
|
|
|
|
|
:admin-reset-password
|
|
|
|
|
:set-user-enabled
|
|
|
|
|
:login
|
|
|
|
|
:impersonate-authority
|
|
|
|
|
:register-user
|
|
|
|
|
:confirm-account-link
|
|
|
|
|
:retry-rakentajafi
|
|
|
|
|
:remove-user-attachment
|
|
|
|
|
:copy-user-attachments-to-application
|
|
|
|
|
:remove-user-notification
|
|
|
|
|
:notifications-update
|
|
|
|
|
:check-for-verdict
|
|
|
|
|
:new-verdict-draft
|
|
|
|
|
:save-verdict-draft
|
|
|
|
|
:publish-verdict
|
|
|
|
|
:delete-verdict
|
|
|
|
|
:sign-verdict
|
|
|
|
|
:create-digging-permit})
|
2017-08-20 16:14:49 +00:00
|
|
|
|
|
|
|
|
(def cqrs-routes
|
|
|
|
|
(mapv (fn [command] [(str "/command/" (name command)) {:post handler :name command}]) commands))
|
|
|
|
|
|
|
|
|
|
(def cqrs-routes-pedestal
|
|
|
|
|
(map-tree/router
|
|
|
|
|
(table/table-routes
|
|
|
|
|
(mapv (fn [command] [(str "/command/" (name command)) :post handler :route-name command]) commands))))
|
|
|
|
|
|
2017-11-12 19:44:40 +00:00
|
|
|
(def cqrs-routes-bidi
|
|
|
|
|
["/command/" (into {} (mapv (fn [command] [(name command) command]) commands))])
|
|
|
|
|
|
|
|
|
|
(def cqrs-routes-compojure
|
|
|
|
|
(apply routes (map (fn [command] (compojure/ANY (str "/command/" (name command)) [] handler)) commands)))
|
2017-08-20 16:14:49 +00:00
|
|
|
|
2017-11-12 19:44:40 +00:00
|
|
|
;; Method code too large
|
|
|
|
|
#_(def cqrs-routes-ataraxy
|
|
|
|
|
(ataraxy/compile
|
|
|
|
|
(into {} (mapv (fn [command] [(str "/command/" (name command)) [command]]) commands))))
|
2017-08-20 16:14:49 +00:00
|
|
|
|
|
|
|
|
(comment
|
|
|
|
|
|
|
|
|
|
(doseq [route (valid-urls (reitit/router cqrs-routes))]
|
|
|
|
|
(let [app (ring/ring-handler (ring/router cqrs-routes))
|
|
|
|
|
match (app {:uri route :request-method :post})]
|
|
|
|
|
(if-not match
|
|
|
|
|
(println route))))
|
|
|
|
|
|
|
|
|
|
(doseq [route (valid-urls (reitit/router cqrs-routes))]
|
|
|
|
|
(let [match (pedestal/find-route cqrs-routes-pedestal {:path-info route :request-method :post})]
|
|
|
|
|
(if-not match
|
|
|
|
|
(println route)))))
|
|
|
|
|
|
|
|
|
|
(defn bench-cqrs! []
|
|
|
|
|
(let [routes cqrs-routes
|
|
|
|
|
router (reitit/router cqrs-routes)
|
2017-11-12 19:44:40 +00:00
|
|
|
reitit-f #(reitit/match-by-path router (:uri %))
|
|
|
|
|
reitit-ring-f (ring/ring-handler (ring/router routes))
|
|
|
|
|
pedestal-f (partial pedestal/find-route cqrs-routes-pedestal)
|
|
|
|
|
compojure-f cqrs-routes-compojure
|
|
|
|
|
bidi-f #(bidi/match-route cqrs-routes-bidi (:uri %))
|
|
|
|
|
b! (partial bench!! routes (fn [path] {:request-method :post, :uri path, :path-info path}) false)]
|
2017-08-20 16:14:49 +00:00
|
|
|
|
|
|
|
|
;; 125ns
|
2017-11-12 19:44:40 +00:00
|
|
|
;; 29ns (fast-map)
|
|
|
|
|
(b! "reitit" reitit-f)
|
2017-08-20 16:14:49 +00:00
|
|
|
|
|
|
|
|
;; 272ns
|
|
|
|
|
;; 219ns (fast-assoc)
|
2017-08-20 17:40:50 +00:00
|
|
|
;; 171ns (fast-map)
|
2017-11-12 19:44:40 +00:00
|
|
|
;; 95ns (refined test, don't check handler)
|
|
|
|
|
(b! "reitit-ring" reitit-ring-f)
|
2017-08-20 16:14:49 +00:00
|
|
|
|
|
|
|
|
;; 172ns
|
2017-11-12 19:44:40 +00:00
|
|
|
;; 133ns (refined test)
|
|
|
|
|
(b! "pedestal" pedestal-f)
|
|
|
|
|
|
|
|
|
|
;; 21972ns (refined test)
|
|
|
|
|
(b! "compojure" compojure-f)
|
|
|
|
|
|
|
|
|
|
;; 62762ns (refined test)
|
|
|
|
|
(b! "bidi" bidi-f)))
|
2017-08-20 16:14:49 +00:00
|
|
|
|
|
|
|
|
(comment
|
|
|
|
|
(bench-cqrs!))
|
