mirror of
https://github.com/penpot/penpot.git
synced 2025-12-11 22:14:05 +01:00
83 lines
4.2 KiB
Clojure
83 lines
4.2 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.files.tokens-test
|
|
(:require
|
|
[app.common.files.tokens :as cfo]
|
|
[clojure.test :as t]))
|
|
|
|
(t/deftest test-parse-token-value
|
|
(t/testing "parses double from a token value"
|
|
(t/is (= {:value 100.1 :unit nil} (cfo/parse-token-value "100.1")))
|
|
(t/is (= {:value -9.0 :unit nil} (cfo/parse-token-value "-9"))))
|
|
(t/testing "trims white-space"
|
|
(t/is (= {:value -1.3 :unit nil} (cfo/parse-token-value " -1.3 "))))
|
|
(t/testing "parses unit: px"
|
|
(t/is (= {:value 70.3 :unit "px"} (cfo/parse-token-value " 70.3px "))))
|
|
(t/testing "parses unit: %"
|
|
(t/is (= {:value -10.0 :unit "%"} (cfo/parse-token-value "-10%"))))
|
|
(t/testing "parses unit: px")
|
|
(t/testing "returns nil for any invalid characters"
|
|
(t/is (nil? (cfo/parse-token-value " -1.3a "))))
|
|
(t/testing "doesnt accept invalid double"
|
|
(t/is (nil? (cfo/parse-token-value ".3")))))
|
|
|
|
(t/deftest token-applied-test
|
|
(t/testing "matches passed token with `:token-attributes`"
|
|
(t/is (true? (cfo/token-applied? {:name "a"} {:applied-tokens {:x "a"}} #{:x}))))
|
|
(t/testing "doesn't match empty token"
|
|
(t/is (nil? (cfo/token-applied? {} {:applied-tokens {:x "a"}} #{:x}))))
|
|
(t/testing "does't match passed token `:id`"
|
|
(t/is (nil? (cfo/token-applied? {:name "b"} {:applied-tokens {:x "a"}} #{:x}))))
|
|
(t/testing "doesn't match passed `:token-attributes`"
|
|
(t/is (nil? (cfo/token-applied? {:name "a"} {:applied-tokens {:x "a"}} #{:y})))))
|
|
|
|
(t/deftest shapes-ids-by-applied-attributes
|
|
(t/testing "Returns set of matched attributes that fit the applied token"
|
|
(let [attributes #{:x :y :z}
|
|
shape-applied-x {:id "shape-applied-x"
|
|
:applied-tokens {:x "1"}}
|
|
shape-applied-y {:id "shape-applied-y"
|
|
:applied-tokens {:y "1"}}
|
|
shape-applied-x-y {:id "shape-applied-x-y"
|
|
:applied-tokens {:x "1" :y "1"}}
|
|
shape-applied-none {:id "shape-applied-none"
|
|
:applied-tokens {}}
|
|
shape-applied-all {:id "shape-applied-all"
|
|
:applied-tokens {:x "1" :y "1" :z "1"}}
|
|
shape-ids (fn [& xs] (into #{} (map :id xs)))
|
|
shapes [shape-applied-x
|
|
shape-applied-y
|
|
shape-applied-x-y
|
|
shape-applied-all
|
|
shape-applied-none]
|
|
expected (cfo/shapes-ids-by-applied-attributes {:name "1"} shapes attributes)]
|
|
(t/is (= (:x expected) (shape-ids shape-applied-x
|
|
shape-applied-x-y
|
|
shape-applied-all)))
|
|
(t/is (= (:y expected) (shape-ids shape-applied-y
|
|
shape-applied-x-y
|
|
shape-applied-all)))
|
|
(t/is (= (:z expected) (shape-ids shape-applied-all)))
|
|
(t/is (true? (cfo/shapes-applied-all? expected (shape-ids shape-applied-all) attributes)))
|
|
(t/is (false? (cfo/shapes-applied-all? expected (apply shape-ids shapes) attributes)))
|
|
(shape-ids shape-applied-x
|
|
shape-applied-x-y
|
|
shape-applied-all))))
|
|
|
|
(t/deftest tokens-applied-test
|
|
(t/testing "is true when single shape matches the token and attributes"
|
|
(t/is (true? (cfo/shapes-token-applied? {:name "a"} [{:applied-tokens {:x "a"}}
|
|
{:applied-tokens {:x "b"}}]
|
|
#{:x}))))
|
|
(t/testing "is false when no shape matches the token or attributes"
|
|
(t/is (nil? (cfo/shapes-token-applied? {:name "a"} [{:applied-tokens {:x "b"}}
|
|
{:applied-tokens {:x "b"}}]
|
|
#{:x})))
|
|
(t/is (nil? (cfo/shapes-token-applied? {:name "a"} [{:applied-tokens {:x "a"}}
|
|
{:applied-tokens {:x "a"}}]
|
|
#{:y})))))
|