mirror of
https://github.com/penpot/penpot.git
synced 2025-08-04 06:58:29 +02:00
feat(backend): port icons images and users handlers to new api
This commit is contained in:
Andrey Antukh
parent
e0600a3058
commit
7400f0f946
9 changed files with 746 additions and 324 deletions
|
|
@ -2,162 +2,160 @@
|
|||
(:require [clojure.test :as t]
|
||||
[promesa.core :as p]
|
||||
[suricatta.core :as sc]
|
||||
[clj-uuid :as uuid]
|
||||
[clojure.java.io :as io]
|
||||
[catacumba.testing :refer (with-server)]
|
||||
[buddy.core.codecs :as codecs]
|
||||
[uxbox.db :as db]
|
||||
[uxbox.sql :as sql]
|
||||
[uxbox.frontend :as uft]
|
||||
[uxbox.api :as uapi]
|
||||
[uxbox.services.icons :as icons]
|
||||
[uxbox.services :as usv]
|
||||
[uxbox.tests.helpers :as th]))
|
||||
|
||||
;; (t/use-fixtures :each th/database-reset)
|
||||
(t/use-fixtures :each th/database-reset)
|
||||
|
||||
;; (t/deftest test-http-list-icon-collections
|
||||
;; (with-open [conn (db/connection)]
|
||||
;; (let [user (th/create-user conn 1)
|
||||
;; data {:user (:id user)
|
||||
;; :name "coll1"}
|
||||
;; coll (icons/create-collection conn data)]
|
||||
;; (with-server {:handler (uft/routes)}
|
||||
;; (let [uri (str th/+base-url+ "/api/library/icon-collections")
|
||||
;; [status data] (th/http-get user uri)]
|
||||
;; ;; (println "RESPONSE:" status data)
|
||||
;; (t/is (= 200 status))
|
||||
;; (t/is (= 1 (count data))))))))
|
||||
(t/deftest test-http-list-icon-collections
|
||||
(with-open [conn (db/connection)]
|
||||
(let [user (th/create-user conn 1)
|
||||
data {:user (:id user)
|
||||
:name "coll1"}
|
||||
coll (icons/create-collection conn data)]
|
||||
(th/with-server {:handler uapi/app}
|
||||
(let [uri (str th/+base-url+ "/api/library/icon-collections")
|
||||
[status data] (th/http-get user uri)]
|
||||
;; (println "RESPONSE:" status data)
|
||||
(t/is (= 200 status))
|
||||
(t/is (= 1 (count data))))))))
|
||||
|
||||
;; (t/deftest test-http-create-icon-collection
|
||||
;; (with-open [conn (db/connection)]
|
||||
;; (let [user (th/create-user conn 1)]
|
||||
;; (with-server {:handler (uft/routes)}
|
||||
;; (let [uri (str th/+base-url+ "/api/library/icon-collections")
|
||||
;; data {:user (:id user)
|
||||
;; :name "coll1"}
|
||||
;; params {:body data}
|
||||
;; [status data] (th/http-post user uri params)]
|
||||
;; ;; (println "RESPONSE:" status data)
|
||||
;; (t/is (= 201 status))
|
||||
;; (t/is (= (:user data) (:id user)))
|
||||
;; (t/is (= (:name data) "coll1")))))))
|
||||
(t/deftest test-http-create-icon-collection
|
||||
(with-open [conn (db/connection)]
|
||||
(let [user (th/create-user conn 1)]
|
||||
(th/with-server {:handler uapi/app}
|
||||
(let [uri (str th/+base-url+ "/api/library/icon-collections")
|
||||
data {:user (:id user)
|
||||
:name "coll1"}
|
||||
params {:body data}
|
||||
[status data] (th/http-post user uri params)]
|
||||
;; (println "RESPONSE:" status data)
|
||||
(t/is (= 201 status))
|
||||
(t/is (= (:user data) (:id user)))
|
||||
(t/is (= (:name data) "coll1")))))))
|
||||
|
||||
;; (t/deftest test-http-update-icon-collection
|
||||
;; (with-open [conn (db/connection)]
|
||||
;; (let [user (th/create-user conn 1)
|
||||
;; data {:user (:id user)
|
||||
;; :name "coll1"}
|
||||
;; coll (icons/create-collection conn data)]
|
||||
;; (with-server {:handler (uft/routes)}
|
||||
;; (let [uri (str th/+base-url+ "/api/library/icon-collections/" (:id coll))
|
||||
;; params {:body (assoc coll :name "coll2")}
|
||||
;; [status data] (th/http-put user uri params)]
|
||||
;; ;; (println "RESPONSE:" status data)
|
||||
;; (t/is (= 200 status))
|
||||
;; (t/is (= (:user data) (:id user)))
|
||||
;; (t/is (= (:name data) "coll2")))))))
|
||||
(t/deftest test-http-update-icon-collection
|
||||
(with-open [conn (db/connection)]
|
||||
(let [user (th/create-user conn 1)
|
||||
data {:user (:id user)
|
||||
:name "coll1"}
|
||||
coll (icons/create-collection conn data)]
|
||||
(th/with-server {:handler uapi/app}
|
||||
(let [uri (str th/+base-url+ "/api/library/icon-collections/" (:id coll))
|
||||
params {:body (assoc coll :name "coll2")}
|
||||
[status data] (th/http-put user uri params)]
|
||||
;; (println "RESPONSE:" status data)
|
||||
(t/is (= 200 status))
|
||||
(t/is (= (:user data) (:id user)))
|
||||
(t/is (= (:name data) "coll2")))))))
|
||||
|
||||
;; (t/deftest test-http-icon-collection-delete
|
||||
;; (with-open [conn (db/connection)]
|
||||
;; (let [user (th/create-user conn 1)
|
||||
;; data {:user (:id user)
|
||||
;; :name "coll1"
|
||||
;; :data #{1}}
|
||||
;; coll (icons/create-collection conn data)]
|
||||
;; (with-server {:handler (uft/routes)}
|
||||
;; (let [uri (str th/+base-url+ "/api/library/icon-collections/" (:id coll))
|
||||
;; [status data] (th/http-delete user uri)]
|
||||
;; (t/is (= 204 status))
|
||||
;; (let [sqlv (sql/get-icon-collections {:user (:id user)})
|
||||
;; result (sc/fetch conn sqlv)]
|
||||
;; (t/is (empty? result))))))))
|
||||
(t/deftest test-http-icon-collection-delete
|
||||
(with-open [conn (db/connection)]
|
||||
(let [user (th/create-user conn 1)
|
||||
data {:user (:id user)
|
||||
:name "coll1"
|
||||
:data #{1}}
|
||||
coll (icons/create-collection conn data)]
|
||||
(th/with-server {:handler uapi/app}
|
||||
(let [uri (str th/+base-url+ "/api/library/icon-collections/" (:id coll))
|
||||
[status data] (th/http-delete user uri)]
|
||||
(t/is (= 204 status))
|
||||
(let [sqlv (sql/get-icon-collections {:user (:id user)})
|
||||
result (sc/fetch conn sqlv)]
|
||||
(t/is (empty? result))))))))
|
||||
|
||||
;; (t/deftest test-http-create-icon
|
||||
;; (with-open [conn (db/connection)]
|
||||
;; (let [user (th/create-user conn 1)]
|
||||
;; (with-server {:handler (uft/routes)}
|
||||
;; (let [uri (str th/+base-url+ "/api/library/icons")
|
||||
;; data {:name "sample.jpg"
|
||||
;; :content "<g></g>"
|
||||
;; :metadata {:width 200
|
||||
;; :height 200
|
||||
;; :view-box [0 0 200 200]}
|
||||
;; :collection nil}
|
||||
;; params {:body data}
|
||||
;; [status data] (th/http-post user uri params)]
|
||||
;; ;; (println "RESPONSE:" status data)
|
||||
;; (t/is (= 201 status))
|
||||
;; (t/is (= (:user data) (:id user)))
|
||||
;; (t/is (= (:name data) "sample.jpg"))
|
||||
;; (t/is (= (:metadata data) {:width 200
|
||||
;; :height 200
|
||||
;; :view-box [0 0 200 200]})))))))
|
||||
(t/deftest test-http-create-icon
|
||||
(with-open [conn (db/connection)]
|
||||
(let [user (th/create-user conn 1)]
|
||||
(th/with-server {:handler uapi/app}
|
||||
(let [uri (str th/+base-url+ "/api/library/icons")
|
||||
data {:name "sample.jpg"
|
||||
:content "<g></g>"
|
||||
:metadata {:width 200
|
||||
:height 200
|
||||
:view-box [0 0 200 200]}
|
||||
:collection nil}
|
||||
params {:body data}
|
||||
[status data] (th/http-post user uri params)]
|
||||
;; (println "RESPONSE:" status data)
|
||||
(t/is (= 201 status))
|
||||
(t/is (= (:user data) (:id user)))
|
||||
(t/is (= (:name data) "sample.jpg"))
|
||||
(t/is (= (:metadata data) {:width 200
|
||||
:height 200
|
||||
:view-box [0 0 200 200]})))))))
|
||||
|
||||
;; (t/deftest test-http-update-icon
|
||||
;; (with-open [conn (db/connection)]
|
||||
;; (let [user (th/create-user conn 1)
|
||||
;; data {:user (:id user)
|
||||
;; :name "test.svg"
|
||||
;; :content "<g></g>"
|
||||
;; :metadata {}
|
||||
;; :collection nil}
|
||||
;; icon (icons/create-icon conn data)]
|
||||
;; (with-server {:handler (uft/routes)}
|
||||
;; (let [uri (str th/+base-url+ "/api/library/icons/" (:id icon))
|
||||
;; params {:body (assoc icon :name "my stuff")}
|
||||
;; [status data] (th/http-put user uri params)]
|
||||
;; ;; (println "RESPONSE:" status data)
|
||||
;; (t/is (= 200 status))
|
||||
;; (t/is (= (:user data) (:id user)))
|
||||
;; (t/is (= (:name data) "my stuff")))))))
|
||||
(t/deftest test-http-update-icon
|
||||
(with-open [conn (db/connection)]
|
||||
(let [user (th/create-user conn 1)
|
||||
data {:user (:id user)
|
||||
:name "test.svg"
|
||||
:content "<g></g>"
|
||||
:metadata {}
|
||||
:collection nil}
|
||||
icon (icons/create-icon conn data)]
|
||||
(th/with-server {:handler uapi/app}
|
||||
(let [uri (str th/+base-url+ "/api/library/icons/" (:id icon))
|
||||
params {:body (assoc icon :name "my stuff")}
|
||||
[status data] (th/http-put user uri params)]
|
||||
;; (println "RESPONSE:" status data)
|
||||
(t/is (= 200 status))
|
||||
(t/is (= (:user data) (:id user)))
|
||||
(t/is (= (:name data) "my stuff")))))))
|
||||
|
||||
;; (t/deftest test-http-copy-icon
|
||||
;; (with-open [conn (db/connection)]
|
||||
;; (let [user (th/create-user conn 1)
|
||||
;; data {:user (:id user)
|
||||
;; :name "test.svg"
|
||||
;; :content "<g></g>"
|
||||
;; :metadata {}
|
||||
;; :collection nil}
|
||||
;; icon (icons/create-icon conn data)]
|
||||
;; (with-server {:handler (uft/routes)}
|
||||
;; (let [uri (str th/+base-url+ "/api/library/icons/copy")
|
||||
;; body {:id (:id icon) :collection nil}
|
||||
;; params {:body body}
|
||||
;; [status data] (th/http-put user uri params)]
|
||||
;; (println "RESPONSE:" status data)
|
||||
;; (let [sqlv (sql/get-icons {:user (:id user) :collection nil})
|
||||
;; result (sc/fetch conn sqlv)]
|
||||
;; (t/is (= 2 (count result)))))))))
|
||||
(t/deftest test-http-copy-icon
|
||||
(with-open [conn (db/connection)]
|
||||
(let [user (th/create-user conn 1)
|
||||
data {:user (:id user)
|
||||
:name "test.svg"
|
||||
:content "<g></g>"
|
||||
:metadata {}
|
||||
:collection nil}
|
||||
icon (icons/create-icon conn data)]
|
||||
(th/with-server {:handler uapi/app}
|
||||
(let [uri (str th/+base-url+ "/api/library/icons/" (:id icon) "/copy")
|
||||
body {:collection nil}
|
||||
params {:body body}
|
||||
[status data] (th/http-put user uri params)]
|
||||
;; (println "RESPONSE:" status data)
|
||||
(t/is (= status 200))
|
||||
(let [sqlv (sql/get-icons {:user (:id user) :collection nil})
|
||||
result (sc/fetch conn sqlv)]
|
||||
(t/is (= 2 (count result)))))))))
|
||||
|
||||
;; (t/deftest test-http-delete-icon
|
||||
;; (with-open [conn (db/connection)]
|
||||
;; (let [user (th/create-user conn 1)
|
||||
;; data {:user (:id user)
|
||||
;; :name "test.svg"
|
||||
;; :content "<g></g>"
|
||||
;; :metadata {}
|
||||
;; :collection nil}
|
||||
;; icon (icons/create-icon conn data)]
|
||||
;; (with-server {:handler (uft/routes)}
|
||||
;; (let [uri (str th/+base-url+ "/api/library/icons/" (:id icon))
|
||||
;; [status data] (th/http-delete user uri)]
|
||||
;; (t/is (= 204 status))
|
||||
;; (let [sqlv (sql/get-icons {:user (:id user) :collection nil})
|
||||
;; result (sc/fetch conn sqlv)]
|
||||
;; (t/is (empty? result))))))))
|
||||
(t/deftest test-http-delete-icon
|
||||
(with-open [conn (db/connection)]
|
||||
(let [user (th/create-user conn 1)
|
||||
data {:user (:id user)
|
||||
:name "test.svg"
|
||||
:content "<g></g>"
|
||||
:metadata {}
|
||||
:collection nil}
|
||||
icon (icons/create-icon conn data)]
|
||||
(th/with-server {:handler uapi/app}
|
||||
(let [uri (str th/+base-url+ "/api/library/icons/" (:id icon))
|
||||
[status data] (th/http-delete user uri)]
|
||||
(t/is (= 204 status))
|
||||
(let [sqlv (sql/get-icons {:user (:id user) :collection nil})
|
||||
result (sc/fetch conn sqlv)]
|
||||
(t/is (empty? result))))))))
|
||||
|
||||
;; ;; (t/deftest test-http-list-icons
|
||||
;; ;; (with-open [conn (db/connection)]
|
||||
;; ;; (let [user (th/create-user conn 1)
|
||||
;; ;; data {:user (:id user)
|
||||
;; ;; :name "test.png"
|
||||
;; ;; :path "some/path"
|
||||
;; ;; :collection nil}
|
||||
;; ;; icon (icons/create-icon conn data)]
|
||||
;; ;; (with-server {:handler (uft/routes)}
|
||||
;; ;; (let [uri (str th/+base-url+ "/api/library/icons")
|
||||
;; ;; [status data] (th/http-get user uri)]
|
||||
;; ;; (println "RESPONSE:" status data)
|
||||
;; ;; (t/is (= 200 status))
|
||||
;; ;; (t/is (= 1 (count data))))))))
|
||||
(t/deftest test-http-list-icons
|
||||
(with-open [conn (db/connection)]
|
||||
(let [user (th/create-user conn 1)
|
||||
data {:user (:id user)
|
||||
:name "test.png"
|
||||
:content "<g></g>"
|
||||
:metadata {}
|
||||
:collection nil}
|
||||
icon (icons/create-icon conn data)]
|
||||
(th/with-server {:handler uapi/app}
|
||||
(let [uri (str th/+base-url+ "/api/library/icons")
|
||||
[status data] (th/http-get user uri)]
|
||||
;; (println "RESPONSE:" status data)
|
||||
(t/is (= 200 status))
|
||||
(t/is (= 1 (count data))))))))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue