Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-31 09:01:20 -05:00
Code Issues Activity

✨ Add test for remove swap slot on detach parent

Browse source
This commit is contained in:
Pablo Alba 2024-06-04 12:03:50 +02:00 • committed by Andrés Moya
parent 5b88589157
commit 5872bf024c
1 changed files with 29 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
common/test/common_tests/logic/comp_remove_swap_slots_test.cljc
View file

@ -743,10 +743,6 @@
(t/deftest test-swap-outside-component-doesnt-have-swap-slot
(let [;; ==== Setup
file (setup-file)
page (thf/current-page file)
blue1 (ths/get-shape file :blue1)
;; ==== Action
file' (-> file
@ -761,3 +757,32 @@
;; blue-copy1 has not swap-id
(t/is (some? blue-copy1'))
(t/is (nil? (ctk/get-swap-slot blue-copy1')))))
(t/deftest test-remove-swap-slot-detach
(let [;; ==== Setup
file (setup-file)
page (thf/current-page file)
green-copy (ths/get-shape file :green-copy)
blue2 (ths/get-shape file :blue2)
;; ==== Action
changes (cll/generate-detach-component (pcb/empty-changes)
(:id green-copy)
(:data file)
(:id page)
{(:id file) file})
file' (thf/apply-changes file changes)
;; ==== Get
blue2' (ths/get-shape file' :blue2)]
;; ==== Check
;; blue2 had swap-id before move
(t/is (some? (ctk/get-swap-slot blue2)))
;; blue2' has not swap-id after move
(t/is (some? blue2'))
(t/is (nil? (ctk/get-swap-slot blue2')))))