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

🎉 Add more tests for components

Browse source
This commit is contained in:
Andrés Moya 2021-02-04 17:29:12 +01:00 • committed by Andrey Antukh
parent cdab9ff69c
commit 884410c0d8
2 changed files with 106 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

27
frontend/tests/app/test_helpers/libraries.cljs
View file

@ -52,6 +52,33 @@
(t/is (= (:component-file shape)
(:id file))))
(defn resolve-instance
[state root-inst-id]
(let [page (thp/current-page state)
root-inst (cph/get-shape page root-inst-id)
shapes-inst (cph/get-object-with-children
root-inst-id
(:objects page))]
;; Validate that the instance tree is well constructed
(t/is (is-instance-root (first shapes-inst)))
(run! is-instance-child (rest shapes-inst))
shapes-inst))
(defn resolve-noninstance
[state root-inst-id]
(let [page (thp/current-page state)
root-inst (cph/get-shape page root-inst-id)
shapes-inst (cph/get-object-with-children
root-inst-id
(:objects page))]
;; Validate that the tree is not an instance
(run! is-noninstance shapes-inst)
shapes-inst))
(defn resolve-instance-and-master
[state root-inst-id]
(let [page (thp/current-page state)