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

✨ Fix almost all backend tests.

Browse source
This commit is contained in:
Andrey Antukh 2020-04-06 23:32:54 +02:00 • committed by Alonso Torres
parent 49eb050423
commit 25eba9de43
4 changed files with 24 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

7
backend/tests/uxbox/tests/helpers.clj
View file

@ -5,6 +5,7 @@
[cuerdas.core :as str] [cuerdas.core :as str]
[mount.core :as mount] [mount.core :as mount]
[environ.core :refer [env]] [environ.core :refer [env]]
[uxbox.common.pages :as cp]
[uxbox.services.mutations.profile :as profile] [uxbox.services.mutations.profile :as profile]
[uxbox.services.mutations.projects :as projects] [uxbox.services.mutations.projects :as projects]
[uxbox.services.mutations.teams :as teams] [uxbox.services.mutations.teams :as teams]
@ -104,11 +105,7 @@
:file-id file-id :file-id file-id
:name (str "page" i) :name (str "page" i)
:ordering i :ordering i
:data {:version 1 :data cp/default-page-data}))
:shapes []
:options {}
:canvas []
:shapes-by-id {}}}))
(defn create-image-library (defn create-image-library

6
backend/tests/uxbox/tests/test_services_files.clj
View file

@ -44,9 +44,11 @@
:name "new name" :name "new name"
:profile-id (:id prof)} :profile-id (:id prof)}
out (th/try-on! (sm/handle data))] out (th/try-on! (sm/handle data))]
;; (th/print-result! out) ;; (th/print-result! out)
(t/is (nil? (:error out))) (let [result (:result out)]
(t/is (nil? (:result out))))) (t/is (= (:id data) (:id result)))
(t/is (= (:name data) (:name result))))))
(t/testing "query files" (t/testing "query files"
(let [data {::sq/type :files (let [data {::sq/type :files

31
backend/tests/uxbox/tests/test_services_pages.clj
View file

@ -111,12 +111,13 @@
:id page-id :id page-id
:revn 0 :revn 0
:profile-id (:id prof) :profile-id (:id prof)
:changes [{:type :add-shape :changes [{:type :add-obj
:frame-id uuid/zero
:id sid :id sid
:session-id (uuid/next) :obj {:id sid
:shape {:id sid :name "Rect"
:name "Rect" :frame-id uuid/zero
:type :rect}}]} :type :rect}}]}
out (th/try-on! (sm/handle data))] out (th/try-on! (sm/handle data))]
@ -128,7 +129,7 @@
(t/is (= (:id data) (:page-id result))) (t/is (= (:id data) (:page-id result)))
(t/is (vector (:changes result))) (t/is (vector (:changes result)))
(t/is (= 1 (count (:changes result)))) (t/is (= 1 (count (:changes result))))
(t/is (= :add-shape (get-in result [:changes 0 :type])))))) (t/is (= :add-obj (get-in result [:changes 0 :type]))))))
(t/testing "conflict error" (t/testing "conflict error"
(let [data {::sm/type :update-page (let [data {::sm/type :update-page
@ -165,14 +166,16 @@
:id (:id page) :id (:id page)
:revn 0 :revn 0
:profile-id (:id prof) :profile-id (:id prof)
:changes [{:type :add-shape :changes [{:type :add-obj
:id sid :id sid
:session-id (uuid/next) :frame-id uuid/zero
:shape {:id sid :obj {:id sid
:name "Rect" :name "Rect"
:type :rect}}]} :frame-id uuid/zero
:type :rect}}]}
out1 (th/try-on! (sm/handle data)) out1 (th/try-on! (sm/handle data))
out2 (th/try-on! (sm/handle data))] out2 (th/try-on! (sm/handle data))
]
;; (th/print-result! out1) ;; (th/print-result! out1)
;; (th/print-result! out2) ;; (th/print-result! out2)
@ -184,7 +187,7 @@
(t/is (= 2 (count (get-in out2 [:result :changes])))) (t/is (= 2 (count (get-in out2 [:result :changes]))))
(t/is (= (:id data) (get-in out1 [:result :page-id]))) (t/is (= (:id data) (get-in out1 [:result :page-id])))
(t/is (= (:id data) (get-in out2 [:result :page-id]))))) (t/is (= (:id data) (get-in out2 [:result :page-id])))
)) ))))

2
backend/tests/uxbox/tests/test_services_projects.clj
View file

@ -76,5 +76,5 @@
(t/is (nil? (:error out))) (t/is (nil? (:error out)))
(let [result (:result out)] (let [result (:result out)]
(t/is (= 1 (count result)))))) (t/is (= 0 (count result))))))
)) ))