CalvinBackup/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-03-13 05:46:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

wip

Browse Source
This commit is contained in:
Andrés Moya
2026-03-11 16:48:49 +01:00
parent f4695768ae
commit 3db5c391a6
1 changed files with 34 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
common/test/common_tests/files/comp_processors_test.cljc
View File

@@ -8,13 +8,45 @@
(:require
[app.common.files.comp-processors :as cfcp]
;; [app.common.test-helpers.components :as thc]
;; [app.common.test-helpers.compositions :as tho]
[app.common.test-helpers.compositions :as tho]
[app.common.test-helpers.files :as thf]
;; [app.common.test-helpers.ids-map :as thi]
;; [app.common.test-helpers.shapes :as ths]
[clojure.test :as t]))
(t/deftest test-fix-missing-swap-slots
(t/testing "empty file should not need any action"
(let [file (thf/sample-file :file1)]
(t/is (= file (cfcp/fix-missing-swap-slots file))))))
(t/is (= file (cfcp/fix-missing-swap-slots file)))))
(t/testing "file without components should not need any action"
(let [file
;; :frame1 [:name Frame1]
;; :child1 [:name Rect1]
(-> (thf/sample-file :file1)
(tho/add-frame-with-child :frame1 :shape1))]
(t/is (= file (cfcp/fix-missing-swap-slots file)))))
(t/testing "file with not swapped components should not need any action"
(let [file
;; {:main1-root} [:name Frame1] # [Component :component1]
;; :main1-child [:name Rect1]
;;
;; {:main2-root} [:name Frame2] # [Component :component2]
;; :nested-head [:name Frame1] @--> [Component :component1] :main1-root
;; <no-label> [:name Rect1] ---> :main1-child
;;
;; :copy2 [:name Frame2] #--> [Component :component2] :main2-root
;; <no-label> [:name Frame1] @--> [Component :component1] :nested-head
;; <no-label> [:name Rect1] ---> <no-label>
(-> (thf/sample-file :file1)
(tho/add-nested-component-with-copy :component1 :main1-root :main1-child
:component2 :main2-root :nested-head
:copy2 :copy2-root))]
(t/is (= file (cfcp/fix-missing-swap-slots file)))))
)