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

🎉 Add tests for webhooks rpc and logger

Browse source
This commit is contained in:
Andrey Antukh 2022-12-12 08:31:48 +01:00
parent 21abd98b95
commit f2b60261f8
5 changed files with 183 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

12
backend/src/app/loggers/webhooks.clj
View file

@ -22,11 +22,11 @@
;; --- PROC
(defn lookup-webhooks-by-team
(defn- lookup-webhooks-by-team
[pool team-id]
(db/exec! pool ["select * from webhook where team_id=? and is_active=true" team-id]))
(defn lookup-webhooks-by-project
(defn- lookup-webhooks-by-project
[pool project-id]
(let [sql [(str "select * from webhook as w"
" join project as p on (p.team_id = w.team_id)"
@ -34,7 +34,7 @@
project-id]]
(db/exec! pool sql)))
(defn lookup-webhooks-by-file
(defn- lookup-webhooks-by-file
[pool file-id]
(let [sql [(str "select * from webhook as w"
" join project as p on (p.team_id = w.team_id)"
@ -43,7 +43,7 @@
file-id]]
(db/exec! pool sql)))
(defn lookup-webhooks
(defn- lookup-webhooks
[{:keys [::db/pool]} {:keys [props] :as event}]
(or (some->> (:team-id props) (lookup-webhooks-by-team pool))
(some->> (:project-id props) (lookup-webhooks-by-project pool))
@ -77,7 +77,7 @@
(declare interpret-exception)
(declare interpret-response)
(def ^:private mapper
(def ^:private json-mapper
(json/mapper
{:encode-key-fn str/camel
:decode-key-fn (comp keyword str/kebab)
@ -123,7 +123,7 @@
whook (::config props)
body (case (:mtype whook)
"application/json" (json/encode-str event mapper)
"application/json" (json/encode-str event json-mapper)
"application/transit+json" (t/encode-str event)
"application/x-www-form-urlencoded" (uri/map->query-string event))]

4
backend/src/app/rpc/commands/webhooks.clj
View file

@ -99,8 +99,8 @@
{::doc/added "1.17"}
[{:keys [::db/pool ::wrk/executor] :as cfg} {:keys [profile-id team-id] :as params}]
(check-edition-permissions! pool profile-id team-id)
(->> (validate-webhook! cfg nil params)
(p/fmap executor (fn [_] (validate-quotes! cfg params)))
(->> (validate-quotes! cfg params)
(p/fmap executor (fn [_] (validate-webhook! cfg nil params)))
(p/fmap executor (fn [_] (insert-webhook! cfg params)))))
(s/def ::update-webhook