Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-03 12:59:12 -05:00
Code Issues Activity

test(backend): more tests

Browse source
This commit is contained in:
Andrey Antukh 2019-06-15 23:57:21 +02:00
parent 15a5d64621
commit 910e076e73
4 changed files with 162 additions and 159 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
backend/test/uxbox/tests/main.clj
View file

@ -14,6 +14,8 @@
(require 'uxbox.tests.test-images) (require 'uxbox.tests.test-images)
(require 'uxbox.tests.test-icons) (require 'uxbox.tests.test-icons)
(require 'uxbox.tests.test-users) (require 'uxbox.tests.test-users)
(require 'uxbox.tests.test-auth)
(require 'uxbox.tests.test-kvstore)
(let [{:keys [fail]} (test/run-all-tests #"^uxbox.tests.*")] (let [{:keys [fail]} (test/run-all-tests #"^uxbox.tests.*")]
(if (pos? fail) (if (pos? fail)
(System/exit fail) (System/exit fail)

77
backend/test/uxbox/tests/test_auth.clj
View file

@ -2,52 +2,51 @@
(:require [clojure.test :as t] (:require [clojure.test :as t]
[promesa.core :as p] [promesa.core :as p]
[clj-http.client :as http] [clj-http.client :as http]
[catacumba.testing :refer (with-server)]
[buddy.hashers :as hashers] [buddy.hashers :as hashers]
[uxbox.db :as db] [uxbox.db :as db]
[uxbox.frontend :as uft] [uxbox.api :as uapi]
[uxbox.services.users :as usu] [uxbox.services.users :as usu]
[uxbox.services :as usv] [uxbox.services :as usv]
[uxbox.tests.helpers :as th])) [uxbox.tests.helpers :as th]))
(t/use-fixtures :once th/state-init)
(t/use-fixtures :each th/database-reset) (t/use-fixtures :each th/database-reset)
;; (t/deftest test-http-success-auth (t/deftest test-http-success-auth
;; (let [data {:username "user1" (let [data {:username "user1"
;; :fullname "user 1" :fullname "user 1"
;; :metadata "1" :metadata "1"
;; :password "user1" :password "user1"
;; :email "user1@uxbox.io"} :email "user1@uxbox.io"}
;; user (with-open [conn (db/connection)] user (with-open [conn (db/connection)]
;; (usu/create-user conn data))] (usu/create-user conn data))]
;; (with-server {:handler (uft/routes)} (th/with-server {:handler uapi/app}
;; (let [data {:username "user1" (let [data {:username "user1"
;; :password "user1" :password "user1"
;; :metadata "1" :metadata "1"
;; :scope "foobar"} :scope "foobar"}
;; uri (str th/+base-url+ "/api/auth/token") uri (str th/+base-url+ "/auth/login")
;; [status data] (th/http-post uri {:body data})] [status data] (th/http-post uri {:body data})]
;; ;; (println "RESPONSE:" status data) (println "RESPONSE:" status data)
;; (t/is (= status 200)) (t/is (= status 204))))))
;; (t/is (contains? data :token))))))
;; (t/deftest test-http-failed-auth (t/deftest test-http-failed-auth
;; (let [data {:username "user1" (let [data {:username "user1"
;; :fullname "user 1" :fullname "user 1"
;; :metadata "1" :metadata "1"
;; :password (hashers/encrypt "user1") :password (hashers/encrypt "user1")
;; :email "user1@uxbox.io"} :email "user1@uxbox.io"}
;; user (with-open [conn (db/connection)] user (with-open [conn (db/connection)]
;; (usu/create-user conn data))] (usu/create-user conn data))]
;; (with-server {:handler (uft/routes)} (th/with-server {:handler uapi/app}
;; (let [data {:username "user1" (let [data {:username "user1"
;; :password "user2" :password "user2"
;; :metadata "2" :metadata "2"
;; :scope "foobar"} :scope "foobar"}
;; uri (str th/+base-url+ "/api/auth/token") uri (str th/+base-url+ "/auth/login")
;; [status data] (th/http-post uri {:body data})] [status data] (th/http-post uri {:body data})]
;; ;; (println "RESPONSE:" status data) ;; (prn "RESPONSE:" status data)
;; (t/is (= 400 status)) (t/is (= 400 status))
;; (t/is (= (:type data) :validation)) (t/is (= (:type data) :validation))
;; (t/is (= (:code data) :uxbox.services.auth/wrong-credentials)))))) (t/is (= (:code data) :uxbox.services.auth/wrong-credentials))))))

91
backend/test/uxbox/tests/test_kvstore.clj
View file

@ -2,64 +2,65 @@
(:require [clojure.test :as t] (:require [clojure.test :as t]
[promesa.core :as p] [promesa.core :as p]
[suricatta.core :as sc] [suricatta.core :as sc]
[catacumba.testing :refer (with-server)]
[buddy.core.codecs :as codecs] [buddy.core.codecs :as codecs]
[uxbox.db :as db] [uxbox.db :as db]
[uxbox.util.uuid :as uuid] [uxbox.util.uuid :as uuid]
[uxbox.frontend :as uft] [uxbox.api :as uapi]
[uxbox.services.kvstore :as kvs] [uxbox.services.kvstore :as kvs]
[uxbox.tests.helpers :as th])) [uxbox.tests.helpers :as th]))
;; (t/use-fixtures :each th/database-reset) (t/use-fixtures :once th/state-init)
(t/use-fixtures :each th/database-reset)
;; (t/deftest test-http-kvstore
;; (with-open [conn (db/connection)]
;; (let [{:keys [id] :as user} (th/create-user conn 1)]
;; ;; Not exists at this moment (t/deftest test-http-kvstore
;; (t/is (nil? (kvs/retrieve-kvstore conn {:user id :key "foo" :version -1}))) (with-open [conn (db/connection)]
(let [{:keys [id] :as user} (th/create-user conn 1)]
;; ;; Creating new one should work as expected ;; Not exists at this moment
;; (with-server {:handler (uft/routes)} (t/is (nil? (kvs/retrieve-kvstore conn {:user id :key "foo" :version -1})))
;; (let [uri (str th/+base-url+ "/api/kvstore")
;; body {:key "foo" :value "bar" :version -1}
;; params {:body body}
;; [status data] (th/http-put user uri params)]
;; (println "RESPONSE:" status data)
;; (t/is (= 200 status))
;; (t/is (= (:key data) "foo"))
;; (t/is (= (:value data) "bar"))))
;; ;; Should exists ;; Creating new one should work as expected
;; (let [data (kvs/retrieve-kvstore conn {:user id :key "foo"})] (th/with-server {:handler uapi/app}
;; (t/is (= (:key data) "foo")) (let [uri (str th/+base-url+ "/api/kvstore/foo")
;; (t/is (= (:value data) "bar")) body {:value "bar" :version -1}
params {:body body}
[status data] (th/http-put user uri params)]
;; (println "RESPONSE:" status data)
(t/is (= 200 status))
(t/is (= (:key data) "foo"))
(t/is (= (:value data) "bar"))))
;; ;; Overwriting should work ;; Should exists
;; (with-server {:handler (uft/routes)} (let [data (kvs/retrieve-kvstore conn {:user id :key "foo"})]
;; (let [uri (str th/+base-url+ "/api/kvstore") (t/is (= (:key data) "foo"))
;; body (assoc data :key "foo" :value "baz") (t/is (= (:value data) "bar"))
;; params {:body body}
;; [status data] (th/http-put user uri params)]
;; (println "RESPONSE:" status data)
;; (t/is (= 200 status))
;; (t/is (= (:key data) "foo"))
;; (t/is (= (:value data) "baz")))))
;; ;; Should exists and match the overwritten value ;; Overwriting should work
;; (let [data (kvs/retrieve-kvstore conn {:user id :key "foo"})] (th/with-server {:handler uapi/app}
;; (t/is (= (:key data) "foo")) (let [uri (str th/+base-url+ "/api/kvstore/foo")
;; (t/is (= (:value data) "baz"))) body (assoc data :value "baz")
_ (prn body)
[status data] (th/http-put user uri {:body body})]
;; (println "RESPONSE:" status data)
(t/is (= 200 status))
(t/is (= (:key data) "foo"))
(t/is (= (:value data) "baz")))))
;; ;; Delete should work ;; Should exists and match the overwritten value
;; (with-server {:handler (uft/routes)} (let [data (kvs/retrieve-kvstore conn {:user id :key "foo"})]
;; (let [uri (str th/+base-url+ "/api/kvstore/foo") (t/is (= (:key data) "foo"))
;; [status data] (th/http-delete user uri)] (t/is (= (:value data) "baz")))
;; (println "RESPONSE:" status data)
;; (t/is (= 204 status))))
;; ;; Not exists at this moment ;; Delete should work
;; (t/is (nil? (kvs/retrieve-kvstore conn {:user id :key "foo"}))) (th/with-server {:handler uapi/app}
(let [uri (str th/+base-url+ "/api/kvstore/foo")
[status data] (th/http-delete user uri)]
;; (println "RESPONSE:" status data)
(t/is (= 204 status))))
;; ))) ;; Not exists at this moment
(t/is (nil? (kvs/retrieve-kvstore conn {:user id :key "foo"})))
)))

151
backend/test/uxbox/tests/test_svgparse.clj
View file

@ -1,89 +1,90 @@
(ns uxbox.tests.test-svgparse (ns uxbox.tests.test-svgparse
(:require [clojure.test :as t] (:require [clojure.test :as t]
[clojure.java.io :as io] [clojure.java.io :as io]
[catacumba.testing :refer [with-server]] [uxbox.api :as uapi]
[uxbox.frontend :as uft]
[uxbox.services :as usv] [uxbox.services :as usv]
[uxbox.services.svgparse :as svg] [uxbox.services.svgparse :as svg]
[uxbox.tests.helpers :as th])) [uxbox.tests.helpers :as th]))
;; (t/use-fixtures :each th/state-init) (t/use-fixtures :once th/state-init)
;; (t/deftest parse-svg-test (t/deftest parse-svg-test
;; (t/testing "parsing valid svg 1" (t/testing "parsing valid svg 1"
;; (let [image (slurp (io/resource "uxbox/tests/_files/sample1.svg")) (let [image (slurp (io/resource "uxbox/tests/_files/sample1.svg"))
;; result (svg/parse-string image)] result (svg/parse-string image)]
;; (t/is (contains? result :width)) (t/is (contains? result :width))
;; (t/is (contains? result :height)) (t/is (contains? result :height))
;; (t/is (contains? result :view-box)) (t/is (contains? result :view-box))
;; (t/is (contains? result :name)) (t/is (contains? result :name))
;; (t/is (contains? result :content)) (t/is (contains? result :content))
;; (t/is (= 500.0 (:width result))) (t/is (= 500.0 (:width result)))
;; (t/is (= 500.0 (:height result))) (t/is (= 500.0 (:height result)))
;; (t/is (= [0.0 0.0 500.00001 500.00001] (:view-box result))) (t/is (= [0.0 0.0 500.00001 500.00001] (:view-box result)))
;; (t/is (= "lock.svg" (:name result))))) (t/is (= "lock.svg" (:name result)))))
;; (t/testing "parsing valid svg 2" (t/testing "parsing valid svg 2"
;; (let [image (slurp (io/resource "uxbox/tests/_files/sample2.svg")) (let [image (slurp (io/resource "uxbox/tests/_files/sample2.svg"))
;; result (svg/parse-string image)] result (svg/parse-string image)]
;; (t/is (contains? result :width)) (t/is (contains? result :width))
;; (t/is (contains? result :height)) (t/is (contains? result :height))
;; (t/is (contains? result :view-box)) (t/is (contains? result :view-box))
;; (t/is (contains? result :name)) (t/is (contains? result :name))
;; (t/is (contains? result :content)) (t/is (contains? result :content))
;; (t/is (= 500.0 (:width result))) (t/is (= 500.0 (:width result)))
;; (t/is (= 500.0 (:height result))) (t/is (= 500.0 (:height result)))
;; (t/is (= [0.0 0.0 500.0 500.00001] (:view-box result))) (t/is (= [0.0 0.0 500.0 500.00001] (:view-box result)))
;; (t/is (= "play.svg" (:name result))))) (t/is (= "play.svg" (:name result)))))
;; (t/testing "parsing invalid data 1" (t/testing "parsing invalid data 1"
;; (let [image (slurp (io/resource "uxbox/tests/_files/sample.jpg")) (let [image (slurp (io/resource "uxbox/tests/_files/sample.jpg"))
;; [e result] (th/try-on (svg/parse-string image))] [e result] (th/try-on (svg/parse-string image))]
;; (t/is (th/exception? e)) (t/is (th/exception? e))
;; (t/is (th/ex-info? e)) (t/is (th/ex-info? e))
;; (t/is (th/ex-with-code? e :uxbox.services.svgparse/invalid-input)))) (t/is (th/ex-with-code? e :uxbox.services.svgparse/invalid-input))))
;; (t/testing "parsing invalid data 2" (t/testing "parsing invalid data 2"
;; (let [[e result] (th/try-on (svg/parse-string ""))] (let [[e result] (th/try-on (svg/parse-string ""))]
;; (t/is (th/exception? e)) (t/is (th/exception? e))
;; (t/is (th/ex-info? e)) (t/is (th/ex-info? e))
;; (t/is (th/ex-with-code? e :uxbox.services.svgparse/invalid-input)))) (t/is (th/ex-with-code? e :uxbox.services.svgparse/invalid-input))))
;; (t/testing "parsing invalid data 3" (t/testing "parsing invalid data 3"
;; (let [[e result] (th/try-on (svg/parse-string "<svg></svg>"))] (let [[e result] (th/try-on (svg/parse-string "<svg></svg>"))]
;; (t/is (th/exception? e)) (t/is (th/exception? e))
;; (t/is (th/ex-info? e)) (t/is (th/ex-info? e))
;; (t/is (th/ex-with-code? e :uxbox.services.svgparse/invalid-result)))) (t/is (th/ex-with-code? e :uxbox.services.svgparse/invalid-result))))
;; (t/testing "valid http request" ;; (t/testing "valid http request"
;; (let [image (slurp (io/resource "uxbox/tests/_files/sample2.svg")) ;; (with-open [conn (db/connection)]
;; path "/api/svg/parse"] ;; (let [image (slurp (io/resource "uxbox/tests/_files/sample2.svg"))
;; (with-server {:handler (uft/routes)} ;; path "/api/svg/parse"
;; (let [rsp (th/request {:method :post ;; user (th/create-user conn 1)]
;; :path path ;; (th/with-server {:handler uapi/app}
;; :body image ;; (let [rsp (th/request {:method :post
;; :raw? true})] ;; :path path
;; (t/is (= 200 (:status rsp))) ;; :body image
;; (t/is (contains? (:body rsp) :width)) ;; :raw? true})]
;; (t/is (contains? (:body rsp) :height)) ;; (t/is (= 200 (:status rsp)))
;; (t/is (contains? (:body rsp) :view-box)) ;; (prn "RESPONSE" rsp)
;; (t/is (contains? (:body rsp) :name)) ;; ;; (t/is (contains? (:body rsp) :width))
;; (t/is (contains? (:body rsp) :content)) ;; ;; (t/is (contains? (:body rsp) :height))
;; (t/is (= 500.0 (:width (:body rsp)))) ;; ;; (t/is (contains? (:body rsp) :view-box))
;; (t/is (= 500.0 (:height (:body rsp)))) ;; ;; (t/is (contains? (:body rsp) :name))
;; (t/is (= [0.0 0.0 500.0 500.00001] (:view-box (:body rsp)))) ;; ;; (t/is (contains? (:body rsp) :content))
;; (t/is (= "play.svg" (:name (:body rsp)))))))) ;; ;; (t/is (= 500.0 (:width (:body rsp))))
;; #_(t/is (= 500.0 (:height (:body rsp))))
;; #_(t/is (= [0.0 0.0 500.0 500.00001] (:view-box (:body rsp))))
;; #_(t/is (= "play.svg" (:name (:body rsp))))))))
;; (t/testing "invalid http request" ;; (t/testing "invalid http request"
;; (let [path "/api/svg/parse" ;; (let [path "/api/svg/parse"
;; image "<svg></svg>"] ;; image "<svg></svg>"]
;; (with-server {:handler (uft/routes)} ;; (with-server {:handler (uft/routes)}
;; (let [rsp (th/request {:method :post ;; (let [rsp (th/request {:method :post
;; :path path ;; :path path
;; :body image ;; :body image
;; :raw? true})] ;; :raw? true})]
;; (t/is (= 400 (:status rsp))) ;; (t/is (= 400 (:status rsp)))
;; (t/is (= :validation (get-in rsp [:body :type]))) ;; (t/is (= :validation (get-in rsp [:body :type])))
;; (t/is (= ::svg/invalid-result (get-in rsp [:body :code]))))))) ;; (t/is (= ::svg/invalid-result (get-in rsp [:body :code])))))))
)
;; )