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>
49 lines
1.8 KiB
Clojure
49 lines
1.8 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-shapes-strokes-test
|
|
(:require
|
|
[app.common.geom.shapes.strokes :as gss]
|
|
[clojure.test :as t]))
|
|
|
|
(t/deftest update-stroke-width-test
|
|
(t/testing "Scale a stroke by 2"
|
|
(let [stroke {:stroke-width 4 :stroke-color "#000"}
|
|
scaled (gss/update-stroke-width stroke 2)]
|
|
(t/is (= 8 (:stroke-width scaled)))
|
|
(t/is (= "#000" (:stroke-color scaled)))))
|
|
|
|
(t/testing "Scale by 1 preserves width"
|
|
(let [stroke {:stroke-width 4}
|
|
scaled (gss/update-stroke-width stroke 1)]
|
|
(t/is (= 4 (:stroke-width scaled)))))
|
|
|
|
(t/testing "Scale by 0 zeroes width"
|
|
(let [stroke {:stroke-width 4}
|
|
scaled (gss/update-stroke-width stroke 0)]
|
|
(t/is (= 0 (:stroke-width scaled))))))
|
|
|
|
(t/deftest update-strokes-width-test
|
|
(t/testing "Scale all strokes on a shape"
|
|
(let [shape {:strokes [{:stroke-width 2 :stroke-color "#aaa"}
|
|
{:stroke-width 5 :stroke-color "#bbb"}]}
|
|
scaled (gss/update-strokes-width shape 3)
|
|
s1 (first (:strokes scaled))
|
|
s2 (second (:strokes scaled))]
|
|
(t/is (= 6 (:stroke-width s1)))
|
|
(t/is (= "#aaa" (:stroke-color s1)))
|
|
(t/is (= 15 (:stroke-width s2)))
|
|
(t/is (= "#bbb" (:stroke-color s2)))))
|
|
|
|
(t/testing "Empty strokes stays empty"
|
|
(let [shape {:strokes []}
|
|
scaled (gss/update-strokes-width shape 2)]
|
|
(t/is (empty? (:strokes scaled)))))
|
|
|
|
(t/testing "Shape with no :strokes key returns empty vector (mapv on nil)"
|
|
(let [scaled (gss/update-strokes-width {} 2)]
|
|
(t/is (= [] (:strokes scaled))))))
|