mirror of
https://github.com/penpot/penpot.git
synced 2025-05-24 10:36:11 +02:00
462 lines
16 KiB
Clojure
462 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.util-snap-data-test
|
|
(:require
|
|
[app.common.files.builder :as fb]
|
|
[app.common.types.shape :as cts]
|
|
[app.common.uuid :as uuid]
|
|
[app.util.snap-data :as sd]
|
|
[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 test-create-index
|
|
(t/testing "Create empty data"
|
|
(let [data (sd/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 (-> (sd/make-snap-data)
|
|
(sd/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 (-> (sd/make-snap-data)
|
|
(sd/add-page page))
|
|
|
|
result-x (sd/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 (-> (sd/make-snap-data)
|
|
(sd/add-page page))
|
|
|
|
result-zero-x (sd/query data (:id page) uuid/zero :x [0 100])
|
|
result-frame-x (sd/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 (-> (sd/make-snap-data)
|
|
(sd/add-page page))
|
|
|
|
result-zero-x (sd/query data (:id page) uuid/zero :x [0 100])
|
|
result-frame-x (sd/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 (-> (sd/make-snap-data)
|
|
(sd/add-page page))
|
|
|
|
result-zero-x (sd/query data (:id page) uuid/zero :x [0 100])
|
|
result-zero-y (sd/query data (:id page) uuid/zero :y [0 100])
|
|
result-frame-x (sd/query data (:id page) frame-id :x [0 100])
|
|
result-frame-y (sd/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 (-> (sd/make-snap-data)
|
|
(sd/add-page page))
|
|
|
|
result-zero-x (sd/query data (:id page) uuid/zero :x [0 100])
|
|
result-zero-y (sd/query data (:id page) uuid/zero :y [0 100])
|
|
result-frame-x (sd/query data (:id page) frame-id :x [0 100])
|
|
result-frame-y (sd/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 test-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 (-> (sd/make-snap-data)
|
|
(sd/add-page page))
|
|
|
|
state (-> state
|
|
(fb/delete-shape shape-id))
|
|
|
|
new-page (fb/get-current-page state)
|
|
data (sd/update-page data page new-page)
|
|
|
|
result-x (sd/query data (:id page) uuid/zero :x [0 100])
|
|
result-y (sd/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 (-> (sd/make-snap-data)
|
|
(sd/add-page page))
|
|
|
|
state (fb/delete-shape state shape-id)
|
|
|
|
new-page (fb/get-current-page state)
|
|
data (sd/update-page data page new-page)
|
|
|
|
result-x (sd/query data (:id page) uuid/zero :x [0 100])
|
|
result-y (sd/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 (-> (sd/make-snap-data)
|
|
(sd/add-page page))
|
|
|
|
state (fb/delete-shape state shape-id)
|
|
new-page (fb/get-current-page state)
|
|
|
|
data (sd/update-page data page new-page)
|
|
|
|
result-zero-x (sd/query data (:id page) uuid/zero :x [0 100])
|
|
result-frame-x (sd/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 (-> (sd/make-snap-data)
|
|
(sd/add-page page))
|
|
|
|
new-page (-> (fb/delete-guide state guide-id)
|
|
(fb/get-current-page))
|
|
|
|
data (sd/update-page data page new-page)
|
|
|
|
result-zero-x (sd/query data (:id page) uuid/zero :x [0 100])
|
|
result-zero-y (sd/query data (:id page) uuid/zero :y [0 100])
|
|
result-frame-x (sd/query data (:id page) frame-id :x [0 100])
|
|
result-frame-y (sd/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 (-> (sd/make-snap-data) (sd/add-page page))
|
|
|
|
new-page (-> (fb/delete-guide file guide-id)
|
|
(fb/get-current-page))
|
|
|
|
data (sd/update-page data page new-page)
|
|
|
|
result-zero-x (sd/query data (:id page) uuid/zero :x [0 100])
|
|
result-zero-y (sd/query data (:id page) uuid/zero :y [0 100])
|
|
result-frame-x (sd/query data (:id page) frame-id :x [0 100])
|
|
result-frame-y (sd/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 (-> (sd/make-snap-data)
|
|
(sd/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 (sd/update-page data page new-page)
|
|
|
|
result-zero-x-1 (sd/query data (:id page) uuid/zero :x [0 100])
|
|
result-frame-x-1 (sd/query data (:id page) frame-id :x [0 100])
|
|
result-zero-x-2 (sd/query data (:id page) uuid/zero :x [200 300])
|
|
result-frame-x-2 (sd/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 (-> (sd/make-snap-data)
|
|
(sd/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 (sd/update-page data page new-page)
|
|
|
|
result-zero-x-1 (sd/query data (:id page) uuid/zero :x [0 100])
|
|
result-zero-x-2 (sd/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 (-> (sd/make-snap-data) (sd/add-page page))
|
|
|
|
new-page (-> (fb/update-guide state (assoc guide :position 150))
|
|
(fb/get-current-page))
|
|
|
|
data (sd/update-page data page new-page)
|
|
|
|
result-zero-x-1 (sd/query data (:id page) uuid/zero :x [0 100])
|
|
result-zero-y-1 (sd/query data (:id page) uuid/zero :y [0 100])
|
|
result-frame-x-1 (sd/query data (:id page) frame-id :x [0 100])
|
|
result-frame-y-1 (sd/query data (:id page) frame-id :y [0 100])
|
|
|
|
result-zero-x-2 (sd/query data (:id page) uuid/zero :x [0 200])
|
|
result-zero-y-2 (sd/query data (:id page) uuid/zero :y [0 200])
|
|
result-frame-x-2 (sd/query data (:id page) frame-id :x [0 200])
|
|
result-frame-y-2 (sd/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)))))
|