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

Add delete shape tests.

Browse source 
And general test format change.
This commit is contained in:
Andrey Antukh 2016-02-03 17:19:42 +02:00
parent aaf27ed6a8
commit 615aeea576
1 changed files with 157 additions and 115 deletions
Download patch file Download diff file Expand all files Collapse all files

272
test/uxbox/data/workspace_tests.cljs
View file

@ -4,127 +4,169 @@
[uxbox.rstore :as rs] [uxbox.rstore :as rs]
[uxbox.data.workspace :as dw])) [uxbox.data.workspace :as dw]))
(t/deftest drop-shape-test ;; delete shape: delete from page
(t/testing "case 1: move shape before other shape" (t/deftest delete-shape-test1
(let [initial {:pages-by-id {1 {:id 1 :shapes [1 2 3]}} (let [initial {:pages-by-id {1 {:id 1 :shapes [1 3 4]}}
:shapes-by-id {1 {:id 1 :page 1} :shapes-by-id {1 {:id 1 :page 1
2 {:id 2 :page 1} :type :builtin/group
3 {:id 3 :page 1}}} :items [2]}
expected (assoc-in initial [:pages-by-id 1 :shapes] [3 1 2]) 2 {:id 2 :page 1 :group 1}
event (dw/drop-shape 3 1 :before) 3 {:id 3 :page 1}
result (rs/-apply-update event initial)] 4 {:id 4 :page 1}}}
;; (pprint expected) event (dw/delete-shape 4)
;; (pprint result) expected (-> initial
(t/is (= result expected)) (assoc-in [:pages-by-id 1 :shapes] [1 3])
(t/is (vector? (get-in result [:pages-by-id 1 :shapes]))))) (update-in [:shapes-by-id] dissoc 4))
result (rs/-apply-update event initial)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))
(t/testing "case 2: move shape after other shape" ;; delete shape: delete from group
(let [initial {:pages-by-id {1 {:id 1 :shapes [1 2 3]}} (t/deftest delete-shape-test2
:shapes-by-id {1 {:id 1 :page 1} (let [initial {:pages-by-id {1 {:id 1 :shapes [1 3 4]}}
2 {:id 2 :page 1} :shapes-by-id {1 {:id 1 :page 1
3 {:id 3 :page 1}}} :type :builtin/group
expected (assoc-in initial [:pages-by-id 1 :shapes] [1 3 2]) :items [2]}
event (dw/drop-shape 3 1 :after) 2 {:id 2 :page 1 :group 1}
result (rs/-apply-update event initial)] 3 {:id 3 :page 1}
(t/is (= result expected)) 4 {:id 4 :page 1}}}
(t/is (vector? (get-in result [:pages-by-id 1 :shapes]))))) event (dw/delete-shape 2)
expected (-> initial
(assoc-in [:pages-by-id 1 :shapes] [3 4])
(update-in [:shapes-by-id] dissoc 2)
(update-in [:shapes-by-id] dissoc 1))
result (rs/-apply-update event initial)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))
(t/testing "case 3: move shape before other shape that is part of group." ;; drop shape: move shape before other shape
(let [initial {:pages-by-id {1 {:id 1 :shapes [1 3 4]}} (t/deftest drop-shape-test1
:shapes-by-id {1 {:id 1 :page 1 (let [initial {:pages-by-id {1 {:id 1 :shapes [1 2 3]}}
:type :builtin/group :shapes-by-id {1 {:id 1 :page 1}
:items [2]} 2 {:id 2 :page 1}
2 {:id 2 :page 1 :group 1} 3 {:id 3 :page 1}}}
3 {:id 3 :page 1} expected (assoc-in initial [:pages-by-id 1 :shapes] [3 1 2])
4 {:id 4 :page 1}}} event (dw/drop-shape 3 1 :before)
event (dw/drop-shape 3 2 :before) result (rs/-apply-update event initial)]
expected (-> initial ;; (pprint expected)
(assoc-in [:pages-by-id 1 :shapes] [1 4]) ;; (pprint result)
(assoc-in [:shapes-by-id 1 :items] [3 2]) (t/is (= result expected))
(assoc-in [:shapes-by-id 3 :group] 1)) (t/is (vector? (get-in result [:pages-by-id 1 :shapes])))))
result (rs/-apply-update event initial)]
(t/is (= result expected))
(t/is (vector? (get-in result [:pages-by-id 1 :shapes])))))
(t/testing "case 4: move shape inside group" ;; drop shape: move shape after other shape
(let [initial {:pages-by-id {1 {:id 1 :shapes [1 3 4]}} (t/deftest drop-shape-test2
:shapes-by-id {1 {:id 1 :page 1 (let [initial {:pages-by-id {1 {:id 1 :shapes [1 2 3]}}
:type :builtin/group :shapes-by-id {1 {:id 1 :page 1}
:items [2]} 2 {:id 2 :page 1}
2 {:id 2 :page 1 :group 1} 3 {:id 3 :page 1}}}
3 {:id 3 :page 1} expected (assoc-in initial [:pages-by-id 1 :shapes] [1 3 2])
4 {:id 4 :page 1}}} event (dw/drop-shape 3 1 :after)
event (dw/drop-shape 3 1 :inside) result (rs/-apply-update event initial)]
expected (-> initial (t/is (= result expected))
(assoc-in [:pages-by-id 1 :shapes] [1 4]) (t/is (vector? (get-in result [:pages-by-id 1 :shapes])))))
(assoc-in [:shapes-by-id 1 :items] [2 3])
(assoc-in [:shapes-by-id 3 :group] 1))
result (rs/-apply-update event initial)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))
(t/is (vector? (get-in result [:pages-by-id 1 :shapes])))))
(t/testing "case 5: move shape outside of group" ;; drop shape: move shape before other shape that is part of group.
(let [initial {:pages-by-id {1 {:id 1 :shapes [1 4]}} (t/deftest drop-shape-test3
:shapes-by-id {1 {:id 1 :page 1 (let [initial {:pages-by-id {1 {:id 1 :shapes [1 3 4]}}
:type :builtin/group :shapes-by-id {1 {:id 1 :page 1
:items [2 3]} :type :builtin/group
2 {:id 2 :page 1 :group 1} :items [2]}
3 {:id 3 :page 1 :group 1} 2 {:id 2 :page 1 :group 1}
4 {:id 4 :page 1}}} 3 {:id 3 :page 1}
event (dw/drop-shape 3 4 :after) 4 {:id 4 :page 1}}}
expected (-> initial event (dw/drop-shape 3 2 :before)
(assoc-in [:pages-by-id 1 :shapes] [1 4 3]) expected (-> initial
(assoc-in [:shapes-by-id 1 :items] [2]) (assoc-in [:pages-by-id 1 :shapes] [1 4])
(update-in [:shapes-by-id 3] dissoc :group)) (assoc-in [:shapes-by-id 1 :items] [3 2])
result (rs/-apply-update event initial)] (assoc-in [:shapes-by-id 3 :group] 1))
(t/is (= result expected)) result (rs/-apply-update event initial)]
(t/is (vector? (get-in result [:pages-by-id 1 :shapes]))))) (t/is (= result expected))
(t/is (vector? (get-in result [:pages-by-id 1 :shapes])))))
(t/testing "case 6: move group inside group" ;; drop shape: move shape inside group
(let [initial {:pages-by-id {1 {:id 1 :shapes [1 2]}} (t/deftest drop-shape-test4
:shapes-by-id {1 {:id 1 :page 1 (let [initial {:pages-by-id {1 {:id 1 :shapes [1 3 4]}}
:type :builtin/group :shapes-by-id {1 {:id 1 :page 1
:items [3]} :type :builtin/group
2 {:id 2 :page 1 :items [2]}
:type :builtin/group 2 {:id 2 :page 1 :group 1}
:items [4]} 3 {:id 3 :page 1}
3 {:id 3 :page 1 :group 1} 4 {:id 4 :page 1}}}
4 {:id 4 :page 1 :group 2}}} event (dw/drop-shape 3 1 :inside)
event (dw/drop-shape 2 3 :after) expected (-> initial
expected (-> initial (assoc-in [:pages-by-id 1 :shapes] [1 4])
(assoc-in [:pages-by-id 1 :shapes] [1]) (assoc-in [:shapes-by-id 1 :items] [2 3])
(assoc-in [:shapes-by-id 1 :items] [3 2]) (assoc-in [:shapes-by-id 3 :group] 1))
(assoc-in [:shapes-by-id 2 :group] 1)) result (rs/-apply-update event initial)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))
(t/is (vector? (get-in result [:pages-by-id 1 :shapes])))))
result (rs/-apply-update event initial)] ;; drop shape: move shape outside of group
;; (pprint expected) (t/deftest drop-shape-test5
;; (pprint result) (let [initial {:pages-by-id {1 {:id 1 :shapes [1 4]}}
(t/is (= result expected)) :shapes-by-id {1 {:id 1 :page 1
(t/is (vector? (get-in result [:pages-by-id 1 :shapes]))))) :type :builtin/group
:items [2 3]}
2 {:id 2 :page 1 :group 1}
3 {:id 3 :page 1 :group 1}
4 {:id 4 :page 1}}}
event (dw/drop-shape 3 4 :after)
expected (-> initial
(assoc-in [:pages-by-id 1 :shapes] [1 4 3])
(assoc-in [:shapes-by-id 1 :items] [2])
(update-in [:shapes-by-id 3] dissoc :group))
result (rs/-apply-update event initial)]
(t/is (= result expected))
(t/is (vector? (get-in result [:pages-by-id 1 :shapes])))))
(t/testing "case 7: move group outside group" ;; drop shape: move group inside group
(let [initial {:pages-by-id {1 {:id 1 :shapes [1 3]}} (t/deftest drop-shape-test6
:shapes-by-id {1 {:id 1 :page 1 (let [initial {:pages-by-id {1 {:id 1 :shapes [1 2]}}
:type :builtin/group :shapes-by-id {1 {:id 1 :page 1
:items [2]} :type :builtin/group
2 {:id 2 :page 1 :items [3]}
:group 1 2 {:id 2 :page 1
:type :builtin/group :type :builtin/group
:items [4]} :items [4]}
3 {:id 3 :page 1} 3 {:id 3 :page 1 :group 1}
4 {:id 4 :page 1 :group 2}}} 4 {:id 4 :page 1 :group 2}}}
event (dw/drop-shape 2 1 :after) event (dw/drop-shape 2 3 :after)
expected (-> initial expected (-> initial
(assoc-in [:pages-by-id 1 :shapes] [2 3]) (assoc-in [:pages-by-id 1 :shapes] [1])
(update-in [:shapes-by-id] dissoc 1) (assoc-in [:shapes-by-id 1 :items] [3 2])
(update-in [:shapes-by-id 2] dissoc :group)) (assoc-in [:shapes-by-id 2 :group] 1))
result (rs/-apply-update event initial)]
;; (pprint expected) result (rs/-apply-update event initial)]
;; (pprint result) ;; (pprint expected)
(t/is (= result expected)) ;; (pprint result)
(t/is (vector? (get-in result [:pages-by-id 1 :shapes]))))) (t/is (= result expected))
) (t/is (vector? (get-in result [:pages-by-id 1 :shapes])))))
;; drop shape: move group outside group
(t/deftest drop-shape-test7
(let [initial {:pages-by-id {1 {:id 1 :shapes [1 3]}}
:shapes-by-id {1 {:id 1 :page 1
:type :builtin/group
:items [2]}
2 {:id 2 :page 1
:group 1
:type :builtin/group
:items [4]}
3 {:id 3 :page 1}
4 {:id 4 :page 1 :group 2}}}
event (dw/drop-shape 2 1 :after)
expected (-> initial
(assoc-in [:pages-by-id 1 :shapes] [2 3])
(update-in [:shapes-by-id] dissoc 1)
(update-in [:shapes-by-id 2] dissoc :group))
result (rs/-apply-update event initial)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))
(t/is (vector? (get-in result [:pages-by-id 1 :shapes])))))