mirror of
https://github.com/penpot/penpot.git
synced 2026-10-03 01:06:14 +00:00
1554847d40
Walk only from the top-most transformed shapes, carry the component root down the walk and memoize each shape transform so the update step reuses it. AI-assisted-by: claude-opus-5-5
57 lines
2.2 KiB
Clojure
57 lines
2.2 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS SUBSIDIARY SL
|
|
|
|
(ns frontend-tests.logic.ignore-tree-test
|
|
(:require
|
|
[app.common.files.helpers :as cfh]
|
|
[app.common.geom.matrix :as gmt]
|
|
[app.common.geom.point :as gpt]
|
|
[app.common.test-helpers.compositions :as ctho]
|
|
[app.common.test-helpers.files :as cthf]
|
|
[app.common.test-helpers.ids-map :as cthi]
|
|
[app.common.types.component :as ctk]
|
|
[app.main.data.workspace.modifiers :as dwm]
|
|
[cljs.test :as t :include-macros true]))
|
|
|
|
(t/use-fixtures :each {:before cthi/reset-idmap!})
|
|
|
|
(defn- setup
|
|
[]
|
|
(let [file (-> (cthf/sample-file :file1)
|
|
(ctho/add-frame :board)
|
|
(ctho/add-nested-component-with-copy :component1 :main1-root :main1-child
|
|
:component2 :main2-root :nested-head
|
|
:copy2-root
|
|
:copy2-root-params {:parent-label :board}))]
|
|
(:objects (cthf/current-page file))))
|
|
|
|
(defn- ignore-tree
|
|
[objects moved-ids]
|
|
(let [move (gmt/translate-matrix (gpt/point 10 20))]
|
|
(dwm/calculate-ignore-tree-wasm (zipmap moved-ids (repeat move)) objects)))
|
|
|
|
(defn- copy-ids
|
|
[objects]
|
|
(->> (cfh/get-children-ids-with-self objects (cthi/id :copy2-root))
|
|
(filter #(ctk/in-component-copy? (get objects %)))))
|
|
|
|
(t/deftest moving-a-board-keeps-its-copies-untouched
|
|
(let [objects (setup)
|
|
tree (ignore-tree objects (cfh/get-children-ids-with-self objects (cthi/id :board)))]
|
|
(t/is (seq (copy-ids objects)))
|
|
(t/is (every? #(true? (get tree %)) (copy-ids objects)))))
|
|
|
|
(t/deftest moving-a-copy-keeps-its-children-untouched
|
|
(let [objects (setup)
|
|
tree (ignore-tree objects (cfh/get-children-ids-with-self objects (cthi/id :copy2-root)))]
|
|
(t/is (every? #(true? (get tree %)) (copy-ids objects)))))
|
|
|
|
(t/deftest moving-a-shape-inside-a-copy-touches-it
|
|
(let [objects (setup)
|
|
rect-id (last (copy-ids objects))
|
|
tree (ignore-tree objects [rect-id])]
|
|
(t/is (false? (get tree rect-id)))))
|