mirror of
https://github.com/penpot/penpot.git
synced 2025-12-11 22:14:05 +01:00
b9030fcc73
Improve file indexes initialization on workspace. Instead of initialize indexes for all pages only initialize indexes for the loaded page.
463 lines
16 KiB
Clojure
463 lines
16 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 INC
|
|
|
|
(ns frontend-tests.worker-snap-test
|
|
(:require
|
|
[app.common.files.builder :as fb]
|
|
[app.common.types.shape :as cts]
|
|
[app.common.uuid :as uuid]
|
|
[app.worker.snap :as snap]
|
|
[cljs.pprint :refer [pprint]]
|
|
[cljs.test :as t :include-macros true]))
|
|
|
|
(def uuid-counter 1)
|
|
|
|
(defn get-mocked-uuid
|
|
[]
|
|
(let [counter (atom 0)]
|
|
(fn []
|
|
(uuid/custom 123456789 (swap! counter inc)))))
|
|
|
|
(t/deftest create-index
|
|
(t/testing "Create empty data"
|
|
(let [data (snap/make-snap-data)]
|
|
(t/is (some? data))))
|
|
|
|
(t/testing "Add empty page (only root-frame)"
|
|
(let [page (-> (fb/create-state)
|
|
(fb/add-file {:name "Test"})
|
|
(fb/add-page {:name "Page 1"})
|
|
(fb/get-current-page))
|
|
|
|
data (-> (snap/make-snap-data)
|
|
(snap/add-page page))]
|
|
(t/is (some? data))))
|
|
|
|
(t/testing "Create simple shape on root"
|
|
(let [state (-> (fb/create-state)
|
|
(fb/add-file {:name "Test"})
|
|
(fb/add-page {:name "Page 1"})
|
|
(fb/add-shape
|
|
{:type :rect
|
|
:x 0
|
|
:y 0
|
|
:width 100
|
|
:height 100}))
|
|
page (fb/get-current-page state)
|
|
|
|
data (-> (snap/make-snap-data)
|
|
(snap/add-page page))
|
|
|
|
result-x (snap/query data (:id page) uuid/zero :x [0 100])]
|
|
|
|
(t/is (some? data))
|
|
|
|
;; 3 = left side, center and right side
|
|
(t/is (= (count result-x) 3))
|
|
|
|
;; Left side: two points
|
|
(t/is (= (first (nth result-x 0)) 0))
|
|
|
|
;; Center one point
|
|
(t/is (= (first (nth result-x 1)) 50))
|
|
|
|
;; Right side two points
|
|
(t/is (= (first (nth result-x 2)) 100))))
|
|
|
|
(t/testing "Add page with single empty frame"
|
|
(let [state (-> (fb/create-state)
|
|
(fb/add-file {:name "Test"})
|
|
(fb/add-page {:name "Page 1"})
|
|
(fb/add-board
|
|
{:x 0
|
|
:y 0
|
|
:width 100
|
|
:height 100})
|
|
(fb/close-board))
|
|
|
|
frame-id (::fb/last-id state)
|
|
page (fb/get-current-page state)
|
|
|
|
;; frame-id (::fb/last-id file)
|
|
data (-> (snap/make-snap-data)
|
|
(snap/add-page page))
|
|
|
|
result-zero-x (snap/query data (:id page) uuid/zero :x [0 100])
|
|
result-frame-x (snap/query data (:id page) frame-id :x [0 100])]
|
|
|
|
(t/is (some? data))
|
|
(t/is (= (count result-zero-x) 3))
|
|
(t/is (= (count result-frame-x) 3))))
|
|
|
|
(t/testing "Add page with some shapes inside frames"
|
|
(with-redefs [uuid/next (get-mocked-uuid)]
|
|
(let [state (-> (fb/create-state)
|
|
(fb/add-file {:name "Test"})
|
|
(fb/add-page {:name "Page 1"})
|
|
(fb/add-board
|
|
{:x 0
|
|
:y 0
|
|
:width 100
|
|
:height 100}))
|
|
|
|
frame-id (::fb/last-id state)
|
|
|
|
state (-> state
|
|
(fb/add-shape
|
|
{:type :rect
|
|
:x 25
|
|
:y 25
|
|
:width 50
|
|
:height 50})
|
|
(fb/close-board))
|
|
|
|
page (fb/get-current-page state)
|
|
|
|
data (-> (snap/make-snap-data)
|
|
(snap/add-page page))
|
|
|
|
result-zero-x (snap/query data (:id page) uuid/zero :x [0 100])
|
|
result-frame-x (snap/query data (:id page) frame-id :x [0 100])]
|
|
|
|
(t/is (some? data))
|
|
(t/is (= (count result-zero-x) 3))
|
|
(t/is (= (count result-frame-x) 5)))))
|
|
|
|
(t/testing "Add a global guide"
|
|
(let [state (-> (fb/create-state)
|
|
(fb/add-file {:name "Test"})
|
|
(fb/add-page {:name "Page 1"})
|
|
(fb/add-guide {:position 50 :axis :x})
|
|
(fb/add-board {:x 200 :y 200 :width 100 :height 100})
|
|
(fb/close-board))
|
|
|
|
frame-id (::fb/last-id state)
|
|
page (fb/get-current-page state)
|
|
|
|
data (-> (snap/make-snap-data)
|
|
(snap/add-page page))
|
|
|
|
result-zero-x (snap/query data (:id page) uuid/zero :x [0 100])
|
|
result-zero-y (snap/query data (:id page) uuid/zero :y [0 100])
|
|
result-frame-x (snap/query data (:id page) frame-id :x [0 100])
|
|
result-frame-y (snap/query data (:id page) frame-id :y [0 100])]
|
|
|
|
(t/is (some? data))
|
|
;; We can snap in the root
|
|
(t/is (= (count result-zero-x) 1))
|
|
(t/is (= (count result-zero-y) 0))
|
|
|
|
;; We can snap in the frame
|
|
(t/is (= (count result-frame-x) 1))
|
|
(t/is (= (count result-frame-y) 0))))
|
|
|
|
(t/testing "Add a frame guide"
|
|
(let [state (-> (fb/create-state)
|
|
(fb/add-file {:name "Test"})
|
|
(fb/add-page {:name "Page 1"})
|
|
(fb/add-board {:x 200 :y 200 :width 100 :height 100})
|
|
(fb/close-board))
|
|
|
|
frame-id (::fb/last-id state)
|
|
|
|
state (-> state
|
|
(fb/add-guide {:position 50 :axis :x :frame-id frame-id}))
|
|
|
|
page (fb/get-current-page state)
|
|
|
|
data (-> (snap/make-snap-data)
|
|
(snap/add-page page))
|
|
|
|
result-zero-x (snap/query data (:id page) uuid/zero :x [0 100])
|
|
result-zero-y (snap/query data (:id page) uuid/zero :y [0 100])
|
|
result-frame-x (snap/query data (:id page) frame-id :x [0 100])
|
|
result-frame-y (snap/query data (:id page) frame-id :y [0 100])]
|
|
|
|
(t/is (some? data))
|
|
;; We can snap in the root
|
|
(t/is (= (count result-zero-x) 0))
|
|
(t/is (= (count result-zero-y) 0))
|
|
|
|
;; We can snap in the frame
|
|
(t/is (= (count result-frame-x) 1))
|
|
(t/is (= (count result-frame-y) 0)))))
|
|
|
|
(t/deftest update-index
|
|
(t/testing "Create frame on root and then remove it."
|
|
(let [state (-> (fb/create-state)
|
|
(fb/add-file {:name "Test"})
|
|
(fb/add-page {:name "Page 1"})
|
|
(fb/add-board
|
|
{:x 0
|
|
:y 0
|
|
:width 100
|
|
:height 100})
|
|
(fb/close-board))
|
|
|
|
shape-id (::fb/last-id state)
|
|
page (fb/get-current-page state)
|
|
|
|
data (-> (snap/make-snap-data)
|
|
(snap/add-page page))
|
|
|
|
state (-> state
|
|
(fb/delete-shape shape-id))
|
|
|
|
new-page (fb/get-current-page state)
|
|
data (snap/update-page data page new-page)
|
|
|
|
result-x (snap/query data (:id page) uuid/zero :x [0 100])
|
|
result-y (snap/query data (:id page) uuid/zero :y [0 100])]
|
|
|
|
(t/is (some? data))
|
|
(t/is (= (count result-x) 0))
|
|
(t/is (= (count result-y) 0))))
|
|
|
|
(t/testing "Create simple shape on root. Then remove it"
|
|
(let [state (-> (fb/create-state)
|
|
(fb/add-file {:name "Test"})
|
|
(fb/add-page {:name "Page 1"})
|
|
(fb/add-shape
|
|
{:type :rect
|
|
:x 0
|
|
:y 0
|
|
:width 100
|
|
:height 100}))
|
|
|
|
shape-id (::fb/last-id state)
|
|
page (fb/get-current-page state)
|
|
|
|
;; frame-id (::fb/last-id state)
|
|
data (-> (snap/make-snap-data)
|
|
(snap/add-page page))
|
|
|
|
state (fb/delete-shape state shape-id)
|
|
|
|
new-page (fb/get-current-page state)
|
|
data (snap/update-page data page new-page)
|
|
|
|
result-x (snap/query data (:id page) uuid/zero :x [0 100])
|
|
result-y (snap/query data (:id page) uuid/zero :y [0 100])]
|
|
|
|
(t/is (some? data))
|
|
(t/is (= (count result-x) 0))
|
|
(t/is (= (count result-y) 0))))
|
|
|
|
(t/testing "Create shape inside frame, then remove it"
|
|
(let [state (-> (fb/create-state)
|
|
(fb/add-file {:name "Test"})
|
|
(fb/add-page {:name "Page 1"})
|
|
(fb/add-board
|
|
{:x 0
|
|
:y 0
|
|
:width 100
|
|
:height 100}))
|
|
frame-id (::fb/last-id state)
|
|
|
|
state (fb/add-shape state {:type :rect :x 25 :y 25 :width 50 :height 50})
|
|
shape-id (::fb/last-id state)
|
|
|
|
state (fb/close-board state)
|
|
|
|
page (fb/get-current-page state)
|
|
data (-> (snap/make-snap-data)
|
|
(snap/add-page page))
|
|
|
|
state (fb/delete-shape state shape-id)
|
|
new-page (fb/get-current-page state)
|
|
|
|
data (snap/update-page data page new-page)
|
|
|
|
result-zero-x (snap/query data (:id page) uuid/zero :x [0 100])
|
|
result-frame-x (snap/query data (:id page) frame-id :x [0 100])]
|
|
|
|
(t/is (some? data))
|
|
(t/is (= (count result-zero-x) 3))
|
|
(t/is (= (count result-frame-x) 3))))
|
|
|
|
(t/testing "Create global guide then remove it"
|
|
(let [state (-> (fb/create-state)
|
|
(fb/add-file {:name "Test"})
|
|
(fb/add-page {:name "Page 1"})
|
|
(fb/add-guide {:position 50 :axis :x}))
|
|
|
|
guide-id (::fb/last-id state)
|
|
|
|
state (-> (fb/add-board state {:x 200 :y 200 :width 100 :height 100})
|
|
(fb/close-board))
|
|
|
|
frame-id (::fb/last-id state)
|
|
page (fb/get-current-page state)
|
|
data (-> (snap/make-snap-data)
|
|
(snap/add-page page))
|
|
|
|
new-page (-> (fb/delete-guide state guide-id)
|
|
(fb/get-current-page))
|
|
|
|
data (snap/update-page data page new-page)
|
|
|
|
result-zero-x (snap/query data (:id page) uuid/zero :x [0 100])
|
|
result-zero-y (snap/query data (:id page) uuid/zero :y [0 100])
|
|
result-frame-x (snap/query data (:id page) frame-id :x [0 100])
|
|
result-frame-y (snap/query data (:id page) frame-id :y [0 100])]
|
|
|
|
(t/is (some? data))
|
|
;; We can snap in the root
|
|
(t/is (= (count result-zero-x) 0))
|
|
(t/is (= (count result-zero-y) 0))
|
|
|
|
;; We can snap in the frame
|
|
(t/is (= (count result-frame-x) 0))
|
|
(t/is (= (count result-frame-y) 0))))
|
|
|
|
(t/testing "Create frame guide then remove it"
|
|
(let [file (-> (fb/create-state)
|
|
(fb/add-file {:name "Test"})
|
|
(fb/add-page {:name "Page 1"})
|
|
(fb/add-board {:x 200 :y 200 :width 100 :height 100})
|
|
(fb/close-board))
|
|
|
|
frame-id (::fb/last-id file)
|
|
file (fb/add-guide file {:position 50 :axis :x :frame-id frame-id})
|
|
guide-id (::fb/last-id file)
|
|
|
|
page (fb/get-current-page file)
|
|
data (-> (snap/make-snap-data) (snap/add-page page))
|
|
|
|
new-page (-> (fb/delete-guide file guide-id)
|
|
(fb/get-current-page))
|
|
|
|
data (snap/update-page data page new-page)
|
|
|
|
result-zero-x (snap/query data (:id page) uuid/zero :x [0 100])
|
|
result-zero-y (snap/query data (:id page) uuid/zero :y [0 100])
|
|
result-frame-x (snap/query data (:id page) frame-id :x [0 100])
|
|
result-frame-y (snap/query data (:id page) frame-id :y [0 100])]
|
|
(t/is (some? data))
|
|
;; We can snap in the root
|
|
(t/is (= (count result-zero-x) 0))
|
|
(t/is (= (count result-zero-y) 0))
|
|
|
|
;; We can snap in the frame
|
|
(t/is (= (count result-frame-x) 0))
|
|
(t/is (= (count result-frame-y) 0))))
|
|
|
|
(t/testing "Update frame coordinates"
|
|
(let [state (-> (fb/create-state)
|
|
(fb/add-file {:name "Test"})
|
|
(fb/add-page {:name "Page 1"})
|
|
(fb/add-board
|
|
{:x 0
|
|
:y 0
|
|
:width 100
|
|
:height 100})
|
|
(fb/close-board))
|
|
|
|
frame-id (::fb/last-id state)
|
|
page (fb/get-current-page state)
|
|
data (-> (snap/make-snap-data)
|
|
(snap/add-page page))
|
|
|
|
state (fb/update-shape state frame-id
|
|
(fn [shape]
|
|
(-> shape
|
|
(dissoc :selrect :points)
|
|
(assoc :x 200 :y 200)
|
|
(cts/setup-shape))))
|
|
|
|
|
|
new-page (fb/get-current-page state)
|
|
data (snap/update-page data page new-page)
|
|
|
|
result-zero-x-1 (snap/query data (:id page) uuid/zero :x [0 100])
|
|
result-frame-x-1 (snap/query data (:id page) frame-id :x [0 100])
|
|
result-zero-x-2 (snap/query data (:id page) uuid/zero :x [200 300])
|
|
result-frame-x-2 (snap/query data (:id page) frame-id :x [200 300])]
|
|
|
|
(t/is (some? data))
|
|
(t/is (= (count result-zero-x-1) 0))
|
|
(t/is (= (count result-frame-x-1) 0))
|
|
(t/is (= (count result-zero-x-2) 3))
|
|
(t/is (= (count result-frame-x-2) 3))))
|
|
|
|
(t/testing "Update shape coordinates"
|
|
(let [state (-> (fb/create-state)
|
|
(fb/add-file {:name "Test"})
|
|
(fb/add-page {:name "Page 1"})
|
|
(fb/add-shape
|
|
{:type :rect
|
|
:x 0
|
|
:y 0
|
|
:width 100
|
|
:height 100}))
|
|
|
|
shape-id (::fb/last-id state)
|
|
page (fb/get-current-page state)
|
|
data (-> (snap/make-snap-data)
|
|
(snap/add-page page))
|
|
|
|
state (fb/update-shape state shape-id
|
|
(fn [shape]
|
|
(-> shape
|
|
(dissoc :selrect :points)
|
|
(assoc :x 200 :y 200)
|
|
(cts/setup-shape))))
|
|
|
|
new-page (fb/get-current-page state)
|
|
;; FIXME: update
|
|
data (snap/update-page data page new-page)
|
|
|
|
result-zero-x-1 (snap/query data (:id page) uuid/zero :x [0 100])
|
|
result-zero-x-2 (snap/query data (:id page) uuid/zero :x [200 300])]
|
|
|
|
(t/is (some? data))
|
|
(t/is (= (count result-zero-x-1) 0))
|
|
(t/is (= (count result-zero-x-2) 3))))
|
|
|
|
(t/testing "Update global guide"
|
|
(let [guide {:position 50 :axis :x}
|
|
state (-> (fb/create-state)
|
|
(fb/add-file {:name "Test"})
|
|
(fb/add-page {:name "Page 1"})
|
|
(fb/add-guide guide))
|
|
|
|
guide-id (::fb/last-id state)
|
|
guide (assoc guide :id guide-id)
|
|
|
|
state (-> (fb/add-board state {:x 500 :y 500 :width 100 :height 100})
|
|
(fb/close-board))
|
|
|
|
frame-id (::fb/last-id state)
|
|
page (fb/get-current-page state)
|
|
data (-> (snap/make-snap-data) (snap/add-page page))
|
|
|
|
new-page (-> (fb/update-guide state (assoc guide :position 150))
|
|
(fb/get-current-page))
|
|
|
|
data (snap/update-page data page new-page)
|
|
|
|
result-zero-x-1 (snap/query data (:id page) uuid/zero :x [0 100])
|
|
result-zero-y-1 (snap/query data (:id page) uuid/zero :y [0 100])
|
|
result-frame-x-1 (snap/query data (:id page) frame-id :x [0 100])
|
|
result-frame-y-1 (snap/query data (:id page) frame-id :y [0 100])
|
|
|
|
result-zero-x-2 (snap/query data (:id page) uuid/zero :x [0 200])
|
|
result-zero-y-2 (snap/query data (:id page) uuid/zero :y [0 200])
|
|
result-frame-x-2 (snap/query data (:id page) frame-id :x [0 200])
|
|
result-frame-y-2 (snap/query data (:id page) frame-id :y [0 200])]
|
|
|
|
(t/is (some? data))
|
|
|
|
(t/is (= (count result-zero-x-1) 0))
|
|
(t/is (= (count result-zero-y-1) 0))
|
|
(t/is (= (count result-frame-x-1) 0))
|
|
(t/is (= (count result-frame-y-1) 0))
|
|
|
|
(t/is (= (count result-zero-x-2) 1))
|
|
(t/is (= (count result-zero-y-2) 0))
|
|
(t/is (= (count result-frame-x-2) 1))
|
|
(t/is (= (count result-frame-y-2) 0)))))
|