Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-23 15:09:10 -05:00
Code Issues Activity

🔥 Remove group based tests (no longer relevant).

Browse source
This commit is contained in:
Andrey Antukh 2019-09-21 11:40:57 +00:00
parent 9ceb6c2644
commit 0be3a181e6
2 changed files with 1 additions and 347 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
frontend/scripts/build-and-run-tests.sh
View file

@ -4,7 +4,5 @@ source ~/.bashrc
set -ex;
npm ci
clojure -Adev tools.clj build-tests
clojure -Adev tools.clj build:tests
node ./target/tests/main

344
frontend/test/uxbox/tests/test_main_data_shapes_impl.cljs
View file

@ -179,109 +179,6 @@
(t/is (= result expected))
(t/is (vector? (get-in result [:pages 1 :shapes])))))
;; drop shape: move shape outside of group
(t/deftest drop-shape-test5
(let [initial {:workspace {:selected #{1}}
:pages {1 {:id 1 :shapes [1 3]}}
:shapes {1 {:id 1 :page 1 :type :group :items [2]}
2 {:id 2 :page 1 :group 1}
3 {:id 3 :page 1}}}
expected {:workspace {:selected #{}}
:pages {1 {:id 1, :shapes [3 2]}},
:shapes {2 {:id 2, :page 1},
3 {:id 3, :page 1}}}
result (impl/drop-shape initial 2 3 :after)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))
(t/is (vector? (get-in result [:pages 1 :shapes])))))
;; drop shape: move group inside group
(t/deftest drop-shape-test6
(let [initial {:pages {1 {:id 1 :shapes [1 2]}}
:shapes {1 {:id 1 :page 1 :type :group :items [3]}
2 {:id 2 :page 1 :type :group :items [4]}
3 {:id 3 :page 1 :group 1}
4 {:id 4 :page 1 :group 2}}}
expected {:pages {1 {:id 1, :shapes [1]}},
:shapes {1 {:id 1, :page 1, :type :group, :items [3 2]},
2 {:id 2, :page 1, :type :group, :items [4], :group 1},
3 {:id 3, :page 1, :group 1},
4 {:id 4, :page 1, :group 2}}}
result (impl/drop-shape initial 2 3 :after)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))
(t/is (vector? (get-in result [:pages 1 :shapes])))))
;; drop shape: move group outside group
(t/deftest drop-shape-test7
(let [initial {:workspace {:selected #{}}
:pages {1 {:id 1 :shapes [1 3]}}
:shapes {1 {:id 1 :page 1 :type :group :items [2]}
2 {:id 2 :page 1 :group 1 :type :group :items [4]}
3 {:id 3 :page 1}
4 {:id 4 :page 1 :group 2}}}
expected {:workspace {:selected #{}},
:pages {1 {:id 1, :shapes [2 3]}},
:shapes {2 {:id 2, :page 1, :type :group, :items [4]},
3 {:id 3, :page 1},
4 {:id 4, :page 1, :group 2}}}
result (impl/drop-shape initial 2 1 :after)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))
(t/is (vector? (get-in result [:pages 1 :shapes])))))
;; drop shape: move shape to neested group
(t/deftest drop-shape-test8
(let [initial {:pages {1 {:id 1 :shapes [1 5 6]}}
:shapes {1 {:id 1 :page 1 :type :group :items [2]}
2 {:id 2 :page 1 :type :group :group 1 :items [3 4]}
3 {:id 3 :page 1 :group 2}
4 {:id 4 :page 1 :group 2}
5 {:id 5 :page 1}
6 {:id 6 :page 1}}}
expected {:pages {1 {:id 1, :shapes [1 5]}},
:shapes {1 {:id 1, :page 1, :type :group, :items [2]},
2 {:id 2, :page 1, :type :group, :group 1, :items [3 4 6]},
3 {:id 3, :page 1, :group 2},
4 {:id 4, :page 1, :group 2},
5 {:id 5, :page 1},
6 {:id 6, :page 1, :group 2}}}
result (impl/drop-shape initial 6 4 :after)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))
;; drop shape: move shape to neested group
(t/deftest drop-shape-test9
(let [initial {:pages {1 {:id 1 :shapes [1]}}
:shapes {1 {:id 1 :page 1 :type :group :items [2 5 6]}
2 {:id 2 :page 1 :type :group :group 1 :items [3 4]}
3 {:id 3 :page 1 :group 2}
4 {:id 4 :page 1 :group 2}
5 {:id 5 :page 1 :group 1}
6 {:id 6 :page 1 :group 1}}}
expected {:pages {1 {:id 1, :shapes [1]}},
:shapes {1 {:id 1, :page 1, :type :group, :items [2 5]},
2 {:id 2, :page 1, :type :group, :group 1, :items [3 4 6]},
3 {:id 3, :page 1, :group 2},
4 {:id 4, :page 1, :group 2},
5 {:id 5, :page 1, :group 1},
6 {:id 6, :page 1, :group 2}}}
result (impl/drop-shape initial 6 4 :after)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Delete Shape
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -306,244 +203,3 @@
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))
;; delete shape: delete from group
(t/deftest delete-shape-test2
(let [initial {:workspace {:selected #{}}
:pages {1 {:id 1 :shapes [1 3 4]}}
:shapes {1 {:id 1 :page 1
:type :group
:items [2]}
2 {:id 2 :page 1 :group 1}
3 {:id 3 :page 1}
4 {:id 4 :page 1}}}
shape (get-in initial [:shapes 2])
expected {:workspace {:selected #{}}
:pages {1 {:id 1 :shapes [3 4]}}
:shapes {3 {:id 3 :page 1}
4 {:id 4 :page 1}}}
result (impl/dissoc-shape initial shape)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Group Shapes
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; group a shape
(t/deftest group-shapes-1
(let [initial {:pages {1 {:id 1 :shapes [1 2 3]}}
:shapes {1 {:id 1 :page 1}
2 {:id 2 :page 1}
3 {:id 3 :page 1}}}
expected {:pages {1 {:id 1 :shapes [1 4 3]}}
:shapes {1 {:id 1 :page 1}
2 {:id 2 :page 1 :group 4}
3 {:id 3 :page 1}
4 {:type :group :name "Group-1" :items [2] :id 4 :page 1}}
:workspace {:selected #{4}}}]
(with-redefs [uxbox.util.uuid/random (constantly 4)]
(let [result (impl/group-shapes initial [2] 1)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))))
;; group two shapes
(t/deftest group-shapes-2
(let [initial {:pages {1 {:id 1 :shapes [1 2 3]}}
:shapes {1 {:id 1 :page 1}
2 {:id 2 :page 1}
3 {:id 3 :page 1}}}
expected {:pages {1 {:id 1 :shapes [1 4]}}
:shapes {1 {:id 1 :page 1}
2 {:id 2 :page 1 :group 4}
3 {:id 3 :page 1 :group 4}
4 {:type :group :name "Group-1" :items [2 3] :id 4 :page 1}}
:workspace {:selected #{4}}}]
(with-redefs [uxbox.util.uuid/random (constantly 4)]
(let [result (impl/group-shapes initial [2 3] 1)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))))
;; group group
(t/deftest group-shapes-3
(let [initial {:pages {1 {:id 1 :shapes [1 2 3]}}
:shapes {1 {:id 1 :page 1}
2 {:id 2 :page 1}
3 {:id 3 :page 1 :type :group}}}
expected {:pages {1 {:id 1 :shapes [1 4]}}
:shapes {1 {:id 1 :page 1}
2 {:id 2 :page 1 :group 4}
3 {:id 3 :page 1 :type :group :group 4}
4 {:type :group :name "Group-1" :items [2 3] :id 4 :page 1}}
:workspace {:selected #{4}}}]
(with-redefs [uxbox.util.uuid/random (constantly 4)]
(let [result (impl/group-shapes initial [2 3] 1)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))))
;; group shapes inside a group
(t/deftest group-shapes-4
(let [initial {:pages {1 {:id 1 :shapes [1 3]}}
:shapes {1 {:id 1 :page 1}
2 {:id 2 :page 1 :group 3}
3 {:id 3 :page 1 :type :group}}}
expected {:pages {1 {:id 1 :shapes [1 3]}}
:shapes {1 {:id 1 :page 1}
2 {:id 2 :page 1 :group 4}
3 {:id 3 :page 1 :type :group :items [4]}
4 {:type :group
:name "Group-1"
:items [2]
:id 4
:page 1
:group 3}}
:workspace {:selected #{4}}}]
(with-redefs [uxbox.util.uuid/random (constantly 4)]
(let [result (impl/group-shapes initial [2] 1)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))))
;; group shapes in multiple groups
(t/deftest group-shapes-5
(let [initial {:pages {1 {:id 1 :shapes [3 4]}}
:shapes {1 {:id 1 :page 1 :group 4}
2 {:id 2 :page 1 :group 3}
3 {:id 3 :page 1 :type :group :items [2]}
4 {:id 4 :page 1 :type :group :imtes [3]}}}
expected (-> initial
(assoc-in [:workspace :selected] #{5})
(assoc-in [:pages 1 :shapes] [5])
(assoc-in [:shapes 1 :group] 5)
(assoc-in [:shapes 2 :group] 5)
(assoc-in [:shapes 5] {:type :group :name "Group-1"
:items [1 2] :id 5 :page 1})
(update-in [:shapes] dissoc 3)
(update-in [:shapes] dissoc 4))]
(with-redefs [uxbox.util.uuid/random (constantly 5)]
(let [result (impl/group-shapes initial [1 2] 1)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Degroups
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; degroup a single group
(t/deftest degroup-shapes-1-0
(let [initial {:pages {1 {:id 1 :shapes [3]}}
:shapes {1 {:id 1 :page 1 :group 3}
2 {:id 2 :page 1 :group 3}
3 {:id 3 :page 1 :type :group :items [1 2]}}}
expected {:workspace {:selected #{1 2}}
:pages {1 {:id 1 :shapes [1 2]}}
:shapes {1 {:id 1 :page 1}
2 {:id 2 :page 1}}}]
(let [result (impl/degroup-shapes initial [3] 1)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected)))))
;; degroup single shape from group
(t/deftest degroup-shapes-1-1
(let [initial {:pages {1 {:id 1 :shapes [3]}}
:shapes {1 {:id 1 :page 1 :group 3}
2 {:id 2 :page 1 :group 3}
3 {:id 3 :page 1 :type :group :items [1 2]}}}
expected {:workspace {:selected #{1}}
:pages {1 {:id 1 :shapes [1 3]}}
:shapes {1 {:id 1 :page 1}
2 {:id 2 :page 1 :group 3}
3 {:id 3 :page 1 :type :group :items [2]}}}
result (impl/degroup-shapes initial [1] 1)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))
;; degroup all shapes from group
(t/deftest degroup-shapes-1-2
(let [initial {:pages {1 {:id 1 :shapes [3]}}
:shapes {1 {:id 1 :page 1 :group 3}
2 {:id 2 :page 1 :group 3}
3 {:id 3 :page 1 :type :group :items [1 2]}}}
expected {:workspace {:selected #{1 2}}
:pages {1 {:id 1 :shapes [1 2]}}
:shapes {1 {:id 1 :page 1}
2 {:id 2 :page 1}}}
result (impl/degroup-shapes initial [1 2] 1)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))
;; degroup all shapes from neested group
(t/deftest degroup-shapes-1-3
(let [initial {:pages {1 {:id 1 :shapes [4]}}
:shapes {1 {:id 1 :page 1 :group 3}
2 {:id 2 :page 1 :group 3}
3 {:id 3 :page 1 :group 4 :type :group :items [1 2]}
4 {:id 4 :page 1 :type :group :items [3]}}}
expected {:workspace {:selected #{1 2}}
:pages {1 {:id 1 :shapes [4]}}
:shapes {1 {:id 1 :page 1 :group 4}
2 {:id 2 :page 1 :group 4}
4 {:id 4 :page 1 :type :group :items [1 2]}}}
result (impl/degroup-shapes initial [1 2] 1)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected))))
;; degroup group inside a group
(t/deftest degroup-shapes-2
(let [initial {:pages {1 {:id 1 :shapes [1]}}
:shapes {1 {:id 1 :page 1 :type :group :items [2]}
2 {:id 2 :page 1 :type :group :items [3] :group 1}
3 {:id 3 :page 1 :group 2}}}
expected {:pages {1 {:id 1 :shapes [1]}}
:shapes {1 {:id 1 :page 1 :type :group :items [3]}
3 {:id 3 :page 1 :group 1}}
:workspace {:selected #{3}}}]
(let [result (impl/degroup-shapes initial [2] 1)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected)))))
;; degroup multiple groups not nested
(t/deftest degroup-shapes-3
(let [initial {:pages {1 {:id 1 :shapes [1 2]}}
:shapes {1 {:id 1 :page 1 :type :group :items [3]}
2 {:id 2 :page 1 :type :group :items [4]}
3 {:id 3 :page 1 :group 1}
4 {:id 4 :page 1 :group 2}}}
expected {:pages {1 {:id 1 :shapes [3 4]}}
:shapes {3 {:id 3 :page 1} 4 {:id 4 :page 1}}
:workspace {:selected #{4 3}}}]
(let [result (impl/degroup-shapes initial [1 2] 1)]
;; (pprint expected)
;; (pprint result)
(t/is (= result expected)))))