3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-04 04:18:24 +02:00
Code Issues Projects Releases Packages Wiki Activity

⚡ Performance improvements.

Browse source
This commit is contained in:
Andrey Antukh 2020-01-16 16:22:56 +01:00
parent 3ab5e11d5f
commit 76e19a4b41
9 changed files with 134 additions and 349 deletions
Download patch file Download diff file Expand all files Collapse all files

77
frontend/test/uxbox/tests/test_util_geom.cljs
View file

@ -1,14 +1,15 @@
(ns uxbox.tests.test-util-geom
(:require [cljs.test :as t :include-macros true]
[cljs.pprint :refer [pprint]]
;; [uxbox.util.geom.point-impl :as gpt2]
;; [uxbox.util.geom.matrix-impl :as gmt2]
[uxbox.util.geom.point :as gpt]
[uxbox.util.geom.matrix :as gmt]))
(t/deftest point-constructors-test
(let [p (gpt/point 1 2)]
(t/is (= (:x p) 1))
(t/is (= (:y p) 2))
(t/is (gpt/point? p)))
(t/is (= (:y p) 2)))
(let [p (gpt/point 1)]
(t/is (= (:x p) 1))
@ -16,34 +17,27 @@
(let [p (gpt/point)]
(t/is (= (:x p) 0))
(t/is (= (:y p) 0)))
(t/is (= (:y p) 0))))
(let [p (gpt/point [1 2])]
(t/is (= (:x p) 1))
(t/is (= (:y p) 2))))
(t/deftest point-rotate-test
(let [p1 (gpt/point 10 0)
p2 (gpt/rotate p1 90)]
(t/is (= (:x p2) 0))
(t/is (= (:y p2) 10))
(t/is (gpt/point? p2))))
;; (t/deftest point-rotate-test
;; (let [p1 (gpt/point 10 0)
;; p2 (gpt/rotate p1 90)]
;; (t/is (= (:x p2) 0))
;; (t/is (= (:y p2) 10))))
(t/deftest point-add-test
(let [p1 (gpt/point 1 1)
p2 (gpt/point 2 2)
p3 (gpt/add p1 p2)]
(t/is (= (:x p3) 3))
(t/is (= (:y p3) 3))
(t/is (gpt/point? p3))))
(t/is (= (:y p3) 3))))
(t/deftest point-subtract-test
(let [p1 (gpt/point 3 3)
p2 (gpt/point 2 2)
p3 (gpt/subtract p1 p2)]
(t/is (= (:x p3) 1))
(t/is (= (:y p3) 1))
(t/is (gpt/point? p3))))
(t/is (= (:y p3) 1))))
(t/deftest point-distance-test
(let [p1 (gpt/point 0 0)
@ -69,46 +63,23 @@
(t/is (number? angle))
(t/is (= angle 45))))
(t/deftest point-quadrant-test
(let [p1 (gpt/point 10 10)
p2 (gpt/point -10 10)
p3 (gpt/point -10 -10)
p4 (gpt/point 10 -10)]
(t/is (= 1 (gpt/quadrant p1)))
(t/is (= 2 (gpt/quadrant p2)))
(t/is (= 3 (gpt/quadrant p3)))
(t/is (= 4 (gpt/quadrant p4)))))
(t/deftest matrix-constructors-test
(let [m (gmt/matrix)]
(t/is (= @m [1 0 0 1 0 0]))
(t/is (gmt/matrix? m)))
(t/is (= (str m) "matrix(1,0,0,1,0,0)")))
(let [m (gmt/matrix 1 1 1 2 2 2)]
(t/is (= @m [1 1 1 2 2 2]))
(t/is (gmt/matrix? m)))
(let [m (gmt/matrix [1 1 1 2 2 2])]
(t/is (= @m [1 1 1 2 2 2]))
(t/is (gmt/matrix? m))))
(t/is (= (str m) "matrix(1,1,1,2,2,2)"))))
(t/deftest matrix-translate-test
(let [m (-> (gmt/matrix)
(gmt/translate (gpt/point 2 10)))]
(t/is (str m) "matrix(1,0,0,1,2,10)")))
(t/deftest matrix-scale-test
(let [m (-> (gmt/matrix)
(gmt/scale (gpt/point 2)))]
(t/is (str m) "matrix(2,0,0,2,0,0)")))
(t/deftest matrix-rotate-test
(let [m (-> (gmt/matrix)
(gmt/rotate 10))]
(t/is (= @m [0.984807753012208
0.17364817766693033
-0.17364817766693033
0.984807753012208
0 0]))))
(t/deftest matrix-scale-test
(let [m (-> (gmt/matrix)
(gmt/scale 2))]
(t/is (= @m [2 0 0 2 0 0]))))
(t/deftest matrix-translate-test
(let [m (-> (gmt/matrix)
(gmt/translate 2 10))]
(t/is (= @m [1 0 0 1 2 10]))))
(t/is (str m) "matrix(0.984807753012208,0.17364817766693033,-0.17364817766693033,0.984807753012208,0,0)")))