penpot/frontend/test/token_tests/token_test.cljs

;; 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 token-tests.token-test
  (:require
   [app.main.ui.workspace.tokens.token :as wtt]
   [cljs.test :as t :include-macros true]))

(t/deftest remove-attributes-for-token-id
  (t/testing "removes attributes matching the `token-id`, keeps other attributes"
    (t/is (= {:ry :b}
             (wtt/remove-attributes-for-token-id
              #{:rx :ry} :a {:rx :a :ry :b})))))

(t/deftest token-applied-test
  (t/testing "matches passed token with `:token-attributes`"
    (t/is (true? (wtt/token-applied? {:id :a} {:applied-tokens {:x :a}} #{:x}))))
  (t/testing "doesn't match empty token"
    (t/is (nil? (wtt/token-applied? {} {:applied-tokens {:x :a}} #{:x}))))
  (t/testing "does't match passed token `:id`"
    (t/is (nil? (wtt/token-applied? {:id :b} {:applied-tokens {:x :a}} #{:x}))))
  (t/testing "doesn't match passed `:token-attributes`"
    (t/is (nil? (wtt/token-applied? {:id :a} {:applied-tokens {:x :a}} #{:y})))))

(t/deftest token-applied-attributes
  (t/is (= #{:x} (wtt/token-applied-attributes {:id :a}
                                               {:applied-tokens {:x :a :y :b}}
                                               #{:x :missing}))))
(t/deftest token-context-menu
  (t/testing "Returns :all when token is applied to every shape"
    (let [shapes [{:applied-tokens {:x 1 :y 1}}
                  {:applied-tokens {:x 1 :y 1}}]
          expected (wtt/group-shapes-by-all-applied {:id 1} shapes #{:x :y})]
      (t/is (true? (wtt/group-shapes-by-all-applied-all? expected)))
      (t/is (= (:all expected) shapes))
      (t/is (empty? (:other expected)))
      (t/is (empty? (:some expected)))))

  (t/testing "Returns set of matched attributes that fit the applied token"
    (let [attributes #{:x :y :z}
          shape-applied-x {:applied-tokens {:x 1}}
          shape-applied-y {:applied-tokens {:y 1}}
          shape-applied-x-y {:applied-tokens {:x 1 :y 1}}
          shape-applied-none {:applied-tokens {}}
          shape-applied-all {:applied-tokens {:x 1 :y 1 :z 1}}
          shapes [shape-applied-x
                  shape-applied-y
                  shape-applied-x-y
                  shape-applied-all
                  shape-applied-none]
          expected (wtt/group-shapes-by-all-applied {:id 1} shapes attributes)]
      (t/is (= (:all expected) [shape-applied-all]))
      (t/is (= (:none expected) [shape-applied-none]))
      (t/is (= (get-in expected [:some :x]) [shape-applied-x shape-applied-x-y]))
      (t/is (= (get-in expected [:some :y]) [shape-applied-y shape-applied-x-y]))
      (t/is (nil? (get-in expected [:some :z]))))))

(t/deftest tokens-applied-test
  (t/testing "is true when single shape matches the token and attributes"
    (t/is (true? (wtt/shapes-token-applied? {:id :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? (wtt/shapes-token-applied? {:id :a} [{:applied-tokens {:x :b}}
                                                     {:applied-tokens {:x :b}}]
                                     #{:x})))
    (t/is (nil? (wtt/shapes-token-applied? {:id :a} [{:applied-tokens {:x :a}}
                                                     {:applied-tokens {:x :a}}]
                                     #{:y})))))

(t/deftest name->path-test
  (t/is (= ["foo" "bar" "baz"] (wtt/token-name->path "foo.bar.baz")))
  (t/is (= ["foo" "bar" "baz"] (wtt/token-name->path "foo..bar.baz")))
  (t/is (= ["foo" "bar" "baz"] (wtt/token-name->path "foo..bar.baz...."))))

(t/deftest tokens-name-map-test
  (t/testing "creates a a names map from tokens"
    (t/is (= {"border-radius.sm" {:name "border-radius.sm", :value "10"}
              "border-radius.md" {:name "border-radius.md", :value "20"}}
             (wtt/token-names-map [{:name "border-radius.sm" :value "10"}
                                   {:name "border-radius.md" :value "20"}])))))

(t/deftest tokens-name-tree-test
  (t/is (= {"foo"
            {"bar"
             {"baz" {:name "foo.bar.baz", :value "a"},
              "bam" {:name "foo.bar.bam", :value "b"}}},
            "baz" {"bar" {"foo" {:name "baz.bar.foo", :value "{foo.bar.baz}"}}}}
           (wtt/token-names-tree {:a {:name "foo.bar.baz"
                                      :value "a"}
                                  :b {:name "foo.bar.bam"
                                      :value "b"}
                                  :c {:name "baz.bar.foo"
                                      :value "{foo.bar.baz}"}}))))

(t/deftest token-name-path-exists?-test
  (t/is (true? (wtt/token-name-path-exists? "border-radius" {"border-radius" {"sm" {:name "sm"}}})))
  (t/is (true? (wtt/token-name-path-exists? "border-radius" {"border-radius" {:name "sm"}})))
  (t/is (true? (wtt/token-name-path-exists? "border-radius.sm" {"border-radius" {:name "sm"}})))
  (t/is (true? (wtt/token-name-path-exists? "border-radius.sm.x" {"border-radius" {:name "sm"}})))
  (t/is (false? (wtt/token-name-path-exists? "other" {"border-radius" {:name "sm"}})))
  (t/is (false? (wtt/token-name-path-exists? "dark.border-radius.md" {"dark" {"border-radius" {"sm" {:name "sm"}}}}))))