mirror of
https://github.com/penpot/penpot.git
synced 2026-04-25 11:18:36 +00:00
2ca7acfca6
* 🎉 Add tests for app.common.geom.bounds-map * 🎉 Add tests for app.common.geom and descendant namespaces * 📎 Fix linting issues --------- Co-authored-by: Luis de Dios <luis.dedios@kaleidos.net>
73 lines
2.7 KiB
Clojure
73 lines
2.7 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 common-tests.geom-snap-test
|
|
(:require
|
|
[app.common.geom.matrix :as gmt]
|
|
[app.common.geom.point :as gpt]
|
|
[app.common.geom.rect :as grc]
|
|
[app.common.geom.snap :as gsn]
|
|
[app.common.math :as mth]
|
|
[clojure.test :as t]))
|
|
|
|
(t/deftest rect->snap-points-test
|
|
(t/testing "Returns 5 snap points for a rect: 4 corners + center"
|
|
(let [rect (grc/make-rect 10 20 100 50)
|
|
points (gsn/rect->snap-points rect)]
|
|
(t/is (set? points))
|
|
(t/is (= 5 (count points)))
|
|
(t/is (every? gpt/point? points))))
|
|
|
|
(t/testing "Snap points include correct corner coordinates"
|
|
(let [rect (grc/make-rect 0 0 100 100)
|
|
points (gsn/rect->snap-points rect)]
|
|
;; Corners and center should be present
|
|
(t/is (= 5 (count points)))
|
|
;; Check x-coordinates of corners
|
|
(let [xs (set (map :x points))]
|
|
(t/is (contains? xs 0))
|
|
(t/is (contains? xs 100)))
|
|
;; Check y-coordinates of corners
|
|
(let [ys (set (map :y points))]
|
|
(t/is (contains? ys 0))
|
|
(t/is (contains? ys 100)))
|
|
;; Center point should have x=50 and y=50
|
|
(let [centers (filter #(and (mth/close? 50 (:x %)) (mth/close? 50 (:y %))) points)]
|
|
(t/is (= 1 (count centers))))))
|
|
|
|
(t/testing "nil rect returns nil"
|
|
(t/is (nil? (gsn/rect->snap-points nil)))))
|
|
|
|
(t/deftest shape->snap-points-test
|
|
(t/testing "Non-frame shape returns points + center"
|
|
(let [points [(gpt/point 10 20) (gpt/point 110 20)
|
|
(gpt/point 110 70) (gpt/point 10 70)]
|
|
shape {:type :rect
|
|
:points points
|
|
:selrect (grc/make-rect 10 20 100 50)
|
|
:transform (gmt/matrix)}
|
|
snap-pts (gsn/shape->snap-points shape)]
|
|
(t/is (set? snap-pts))
|
|
;; At minimum, 4 corner points + 1 center = 5
|
|
(t/is (>= (count snap-pts) 5)))))
|
|
|
|
(t/deftest guide->snap-points-test
|
|
(t/testing "Guide on x-axis returns point at position"
|
|
(let [guide {:axis :x :position 100}
|
|
frame nil
|
|
points (gsn/guide->snap-points guide frame)]
|
|
(t/is (= 1 (count points)))
|
|
(t/is (mth/close? 100 (:x (first points))))
|
|
(t/is (mth/close? 0 (:y (first points))))))
|
|
|
|
(t/testing "Guide on y-axis returns point at position"
|
|
(let [guide {:axis :y :position 200}
|
|
frame nil
|
|
points (gsn/guide->snap-points guide frame)]
|
|
(t/is (= 1 (count points)))
|
|
(t/is (mth/close? 0 (:x (first points))))
|
|
(t/is (mth/close? 200 (:y (first points)))))))
|