;; 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 Sucursal en España SL (ns common-tests.types.tokens-lib-test (:require #?(:clj [app.common.fressian :as fres]) #?(:clj [app.common.json :as json]) #?(:clj [app.common.test-helpers.tokens :as tht]) #?(:clj [clojure.datafy :refer [datafy]]) [app.common.data :as d] [app.common.test-helpers.ids-map :as thi] [app.common.time :as ct] [app.common.transit :as tr] [app.common.types.token :as cto] [app.common.types.tokens-lib :as ctob] [app.common.uuid :as uuid] [clojure.test :as t])) (defn setup-virtual-time [next] (let [current (volatile! (inst-ms (ct/now)))] (with-redefs [ct/now #(ct/inst (vswap! current inc))] (next)))) (t/use-fixtures :once setup-virtual-time) (t/deftest make-token (let [now (ct/now) token1 (ctob/make-token :id (thi/new-id! :token1) :name "test-token-1" :type :boolean :value true) token2 (ctob/make-token :id (thi/new-id! :token2) :name "test-token-2" :type :number :value 66 :description "test description" :modified-at now)] (t/is (= (:id token1) (thi/id :token1))) (t/is (= (:name token1) "test-token-1")) (t/is (= (:type token1) :boolean)) (t/is (= (:value token1) true)) (t/is (= (:description token1) "")) (t/is (some? (:modified-at token1))) (t/is (ctob/check-token token1)) (t/is (= (:id token2) (thi/id :token2))) (t/is (= (:name token2) "test-token-2")) (t/is (= (:type token2) :number)) (t/is (= (:value token2) 66)) (t/is (= (:description token2) "test description")) (t/is (= (:modified-at token2) now)) (t/is (ctob/check-token token2)))) (t/deftest make-invalid-token (let [params {:name 777 :type :invalid}] (t/is (thrown-with-msg? #?(:cljs js/Error :clj Exception) #"expected valid params for token" (ctob/make-token params))))) (t/deftest find-token-value-references (t/testing "finds references inside curly braces in a string" (t/is (= #{"foo" "bar"} (cto/find-token-value-references "{foo} + {bar}"))) (t/testing "ignores extra text" (t/is (= #{"foo.bar.baz"} (cto/find-token-value-references "{foo.bar.baz} + something"))))) (t/testing "ignores string without references" (t/is (nil? (cto/find-token-value-references "1 + 2")))) (t/testing "handles edge-case for extra curly braces" (t/is (= #{"foo" "bar"} (cto/find-token-value-references "{foo}} + {bar}"))))) (t/deftest make-token-set (let [now (ct/now) token-set1 (ctob/make-token-set :name "test-token-set-1") token-set2 (ctob/make-token-set :name "test-token-set-2" :description "test description" :modified-at now :tokens [])] (t/is (= (ctob/get-name token-set1) "test-token-set-1")) (t/is (= (ctob/get-description token-set1) "")) (t/is (some? (ctob/get-modified-at token-set1))) (t/is (empty? (ctob/get-tokens- token-set1))) (t/is (= (ctob/get-name token-set2) "test-token-set-2")) (t/is (= (ctob/get-description token-set2) "test description")) (t/is (= (ctob/get-modified-at token-set2) now)) (t/is (empty? (ctob/get-tokens- token-set2))))) (t/deftest make-invalid-token-set (let [params {:name 777 :description 999}] (t/is (thrown-with-msg? #?(:cljs js/Error :clj Exception) #"expected valid params for token-set" (ctob/make-token-set params))))) (t/deftest move-token-set-flat (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "A")) (ctob/add-set (ctob/make-token-set :name "B")) (ctob/add-set (ctob/make-token-set :name "Move"))) move (fn [from-path to-path before-path before-group?] (->> (ctob/move-set tokens-lib from-path to-path before-path before-group?) (ctob/get-set-names) (into [])))] (t/testing "move to top" (t/is (= ["Move" "A" "B"] (move ["Move"] ["Move"] ["A"] false)))) (t/testing "move in-between" (t/is (= ["A" "Move" "B"] (move ["Move"] ["Move"] ["B"] false)))) (t/testing "move to bottom" (t/is (= ["A" "B" "Move"] (move ["Move"] ["Move"] nil false)))))) (t/deftest move-token-set-nested (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "Foo/Baz")) (ctob/add-set (ctob/make-token-set :name "Foo/Bar")) (ctob/add-set (ctob/make-token-set :name "Foo"))) move (fn [from-path to-path before-path before-group?] (->> (ctob/move-set tokens-lib from-path to-path before-path before-group?) (ctob/get-set-names) (into [])))] (t/testing "move outside of group" (t/is (= ["Foo/Baz" "Bar" "Foo"] (move ["Foo" "Bar"] ["Bar"] ["Foo"] false))) (t/is (= ["Bar" "Foo/Baz" "Foo"] (move ["Foo" "Bar"] ["Bar"] ["Foo"] true))) (t/is (= ["Bar" "Foo/Baz" "Foo"] (move ["Foo" "Bar"] ["Bar"] ["Foo" "Baz"] true))) (t/is (= ["Foo/Baz" "Foo" "Bar"] (move ["Foo" "Bar"] ["Bar"] nil false)))) (t/testing "move inside of group" (t/is (= ["Foo/Foo" "Foo/Baz" "Foo/Bar"] (move ["Foo"] ["Foo" "Foo"] ["Foo" "Baz"] false))) (t/is (= ["Foo/Baz" "Foo/Bar" "Foo/Foo"] (move ["Foo"] ["Foo" "Foo"] nil false)))))) (t/deftest move-token-set-nested-2 (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "a/b")) (ctob/add-set (ctob/make-token-set :name "a/a")) (ctob/add-set (ctob/make-token-set :name "b/a")) (ctob/add-set (ctob/make-token-set :name "b/b"))) move (fn [from-path to-path before-path before-group?] (->> (ctob/move-set tokens-lib from-path to-path before-path before-group?) (ctob/get-set-names) (vec)))] (t/testing "move within group" (t/is (= ["a/b" "a/a" "b/a" "b/b"] (vec (ctob/get-set-names tokens-lib)))) (t/is (= ["a/a" "a/b" "b/a" "b/b"] (move ["a" "b"] ["a" "b"] nil true)))))) (t/deftest move-token-set-nested-3 (let [theme-id (uuid/next) tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "Foo/Bar/Baz")) (ctob/add-set (ctob/make-token-set :name "Other")) (ctob/add-theme (ctob/make-token-theme :id theme-id :name "Theme" :sets #{"Foo/Bar/Baz"})) (ctob/move-set ["Foo" "Bar" "Baz"] ["Other/Baz"] nil nil))] (t/is (= #{"Other/Baz"} (:sets (ctob/get-theme tokens-lib theme-id)))))) (t/deftest move-token-set-group (t/testing "reordering" (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "Foo/A")) (ctob/add-set (ctob/make-token-set :name "Foo/B")) (ctob/add-set (ctob/make-token-set :name "Bar/Foo")) (ctob/add-theme (ctob/make-token-theme :name "Theme" :sets #{"Foo/A" "Bar/Foo"}))) move (fn [from-path to-path before-path before-group?] (->> (ctob/move-set-group tokens-lib from-path to-path before-path before-group?) (ctob/get-set-names) (into [])))] (t/is (= ["Bar/Foo" "Bar/Foo/A" "Bar/Foo/B"] (move ["Foo"] ["Bar" "Foo"] nil nil))) (t/is (= ["Bar/Foo" "Foo/A" "Foo/B"] (move ["Bar"] ["Bar"] ["Foo"] true))))) (t/testing "updates theme set names" (let [theme-id (uuid/next) tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "Foo/A")) (ctob/add-set (ctob/make-token-set :name "Foo/B")) (ctob/add-set (ctob/make-token-set :name "Bar/Foo")) (ctob/add-theme (ctob/make-token-theme :id theme-id :name "Theme" :sets #{"Foo/A" "Bar/Foo"})) (ctob/move-set-group ["Foo"] ["Bar" "Foo"] nil nil))] (t/is (= #{"Bar/Foo/A" "Bar/Foo"} (:sets (ctob/get-theme tokens-lib theme-id))))))) (t/deftest tokens-tree (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "A" :tokens {"foo.bar.baz" (ctob/make-token :name "foo.bar.baz" :type :boolean :value true) "foo.bar.bam" (ctob/make-token :name "foo.bar.bam" :type :boolean :value true) "baz.boo" (ctob/make-token :name "baz.boo" :type :boolean :value true)}))) expected (-> tokens-lib (ctob/get-tokens (thi/id :test-token-set)) (ctob/tokens-tree))] (t/is (= (get-in expected ["foo" "bar" "baz" :name]) "foo.bar.baz")) (t/is (= (get-in expected ["foo" "bar" "bam" :name]) "foo.bar.bam")) (t/is (= (get-in expected ["baz" "boo" :name]) "baz.boo")))) (t/deftest make-token-theme (let [now (ct/now) token-theme1 (ctob/make-token-theme :name "test-token-theme-1") token-theme2 (ctob/make-token-theme :name "test-token-theme-2" :group "group-1" :description "test description" :is-source true :modified-at now :sets #{})] (t/is (= (:name token-theme1) "test-token-theme-1")) (t/is (= (:group token-theme1) "")) (t/is (= (:description token-theme1) "")) (t/is (false? (:is-source token-theme1))) (t/is (some? (:modified-at token-theme1))) (t/is (empty? (:sets token-theme1))) (t/is (= (:name token-theme2) "test-token-theme-2")) (t/is (= (:group token-theme2) "group-1")) (t/is (= (:description token-theme2) "test description")) (t/is (true? (:is-source token-theme2))) (t/is (= (:modified-at token-theme2) now)) (t/is (empty? (:sets token-theme2))))) (t/deftest make-invalid-token-theme (let [params {:name 777 :group nil :description 999 :is-source 42}] (t/is (thrown-with-msg? #?(:cljs js/Error :clj Exception) #"expected valid params for token-theme" (ctob/make-token-theme params))))) (t/deftest make-token-theme-strips-nil-from-sets (t/testing "make-token-theme strips nil values from :sets" (let [theme (ctob/make-token-theme :name "test" :sets #{"valid-set" nil})] (t/is (= (:sets theme) #{"valid-set"})))) (t/testing "enable-set with nil set-name does not add nil to :sets" (let [theme (ctob/make-token-theme :name "test" :sets #{"existing-set"}) theme' (ctob/enable-set theme nil)] (t/is (= (:sets theme') #{"existing-set"})))) (t/testing "toggle-set with nil set-name does not add nil to :sets" (let [theme (ctob/make-token-theme :name "test" :sets #{}) theme' (ctob/toggle-set theme nil)] (t/is (= (:sets theme') #{}))))) (t/deftest make-tokens-lib (let [tokens-lib (ctob/make-tokens-lib)] (t/is (= (ctob/set-count tokens-lib) 0)))) (t/deftest make-invalid-tokens-lib (let [params {:sets {} :themes {}}] (t/is (thrown-with-msg? #?(:cljs js/Error :clj Exception) #"invalid tokens-lib internal data structure" (ctob/make-tokens-lib params))))) (t/deftest add-token-set-to-token-lib (let [tokens-lib (ctob/make-tokens-lib) token-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "test-token-set") tokens-lib' (ctob/add-set tokens-lib token-set) token-sets' (ctob/get-sets tokens-lib') token-set' (ctob/get-set tokens-lib' (thi/id :test-token-set))] (t/is (= (ctob/set-count tokens-lib') 1)) (t/is (= (first token-sets') token-set)) (t/is (= token-set' token-set)))) (t/deftest update-token-set (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "test-token-set"))) tokens-lib' (-> tokens-lib (ctob/update-set (thi/id :test-token-set) (fn [token-set] (ctob/set-description token-set "some description"))) (ctob/update-set (uuid/next) (fn [token-set] (ctob/set-description token-set "no-effect")))) token-set (ctob/get-set tokens-lib (thi/id :test-token-set)) token-set' (ctob/get-set tokens-lib' (thi/id :test-token-set))] (t/is (= (ctob/set-count tokens-lib') 1)) (t/is (= (ctob/get-name token-set') "test-token-set")) (t/is (= (ctob/get-description token-set') "some description")) (t/is (ct/is-after? (ctob/get-modified-at token-set') (ctob/get-modified-at token-set))))) (t/deftest rename-token-set (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "test-token-set"))) tokens-lib' (-> tokens-lib (ctob/update-set (thi/id :test-token-set) (fn [token-set] (ctob/rename token-set "updated-name")))) token-set (ctob/get-set tokens-lib (thi/id :test-token-set)) token-set' (ctob/get-set tokens-lib' (thi/id :test-token-set))] (t/is (= (ctob/set-count tokens-lib') 1)) (t/is (= (ctob/get-name token-set') "updated-name")) (t/is (ct/is-after? (ctob/get-modified-at token-set') (ctob/get-modified-at token-set))))) (t/deftest rename-token-set-group (let [theme-id (uuid/next) tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "foo/bar/baz")) (ctob/add-set (ctob/make-token-set :name "foo/bar/baz/baz-child-1")) (ctob/add-set (ctob/make-token-set :name "foo/bar/baz/baz-child-2")) (ctob/add-theme (ctob/make-token-theme :id theme-id :name "theme" :sets #{"foo/bar/baz/baz-child-1"}))) tokens-lib' (-> tokens-lib (ctob/rename-set-group ["foo" "bar"] "bar-renamed") (ctob/rename-set-group ["foo" "bar-renamed" "baz"] "baz-renamed")) expected-set-names (ctob/get-set-names tokens-lib') expected-theme-sets (-> (ctob/get-theme tokens-lib' theme-id) :sets)] (t/is (= expected-set-names '("foo/bar-renamed/baz" "foo/bar-renamed/baz-renamed/baz-child-1" "foo/bar-renamed/baz-renamed/baz-child-2"))) (t/is (= expected-theme-sets #{"foo/bar-renamed/baz-renamed/baz-child-1"})))) (t/deftest duplicate-token-set (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "test-token-set" :tokens {"test-token" (ctob/make-token :id (thi/new-id! :test-token) :name "test-token" :type :boolean :value true)}))) token-set-copy (ctob/duplicate-set (thi/id :test-token-set) tokens-lib {:suffix "copy"}) token (ctob/get-token- token-set-copy (thi/id :test-token))] (t/is (some? token-set-copy)) (t/is (= (ctob/get-name token-set-copy) "test-token-set-copy")) (t/is (= (count (ctob/get-tokens- token-set-copy)) 1)) (t/is (= (:name token) "test-token")))) (t/deftest duplicate-token-set-twice (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "test-token-set" :tokens {"test-token" (ctob/make-token :id (thi/new-id! :test-token) :name "test-token" :type :boolean :value true)}))) tokens-lib (ctob/add-set tokens-lib (ctob/duplicate-set (thi/id :test-token-set) tokens-lib {:suffix "copy"})) token-set-copy (ctob/duplicate-set (thi/id :test-token-set) tokens-lib {:suffix "copy"}) token (ctob/get-token- token-set-copy (thi/id :test-token))] (t/is (some? token-set-copy)) (t/is (= (ctob/get-name token-set-copy) "test-token-set-copy-2")) (t/is (= (count (ctob/get-tokens- token-set-copy)) 1)) (t/is (= (:name token) "test-token")))) (t/deftest duplicate-empty-token-set (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "test-token-set"))) token-set-copy (ctob/duplicate-set (thi/id :test-token-set) tokens-lib {:suffix "copy"}) tokens (ctob/get-tokens- token-set-copy)] (t/is (some? token-set-copy)) (t/is (= (ctob/get-name token-set-copy) "test-token-set-copy")) (t/is (= (count (ctob/get-tokens- token-set-copy)) 0)) (t/is (= (count tokens) 0)))) (t/deftest duplicate-not-existing-token-set (let [tokens-lib (ctob/make-tokens-lib) token-set-copy (ctob/duplicate-set (uuid/next) tokens-lib {:suffix "copy"})] (t/is (nil? token-set-copy)))) (t/deftest add-token (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "test-token-set"))) token (ctob/make-token :id (thi/new-id! :token) :name "test-token" :type :boolean :value true) tokens-lib' (-> tokens-lib (ctob/add-token (thi/id :test-token-set) token) (ctob/add-token (uuid/next) token)) token-set (ctob/get-set tokens-lib (thi/id :test-token-set)) token-set' (ctob/get-set tokens-lib' (thi/id :test-token-set)) token' (ctob/get-token tokens-lib' (thi/id :test-token-set) (thi/id :token))] (t/is (= (ctob/set-count tokens-lib') 1)) (t/is (= (count (ctob/get-tokens tokens-lib' (thi/id :test-token-set))) 1)) (t/is (= (:name token') "test-token")) (t/is (ct/is-after? (ctob/get-modified-at token-set') (ctob/get-modified-at token-set))))) (t/deftest update-token (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "test-token-set")) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :id (thi/new-id! :test-token-1) :name "test-token-1" :type :boolean :value true)) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :id (thi/new-id! :test-token-2) :name "test-token-2" :type :boolean :value true))) tokens-lib' (-> tokens-lib (ctob/update-token (thi/id :test-token-set) (thi/id :test-token-1) (fn [token] (assoc token :description "some description" :value false))) (ctob/update-token (uuid/next) (thi/id :test-token-1) (fn [token] (assoc token :name "no-effect"))) (ctob/update-token (thi/id :test-token-set) (uuid/next) (fn [token] (assoc token :name "no-effect")))) token-set (ctob/get-set tokens-lib (thi/id :test-token-set)) token-set' (ctob/get-set tokens-lib' (thi/id :test-token-set)) token (ctob/get-token tokens-lib (thi/id :test-token-set) (thi/id :test-token-1)) token' (ctob/get-token tokens-lib' (thi/id :test-token-set) (thi/id :test-token-1)) tokens' (ctob/get-tokens tokens-lib' (thi/id :test-token-set))] (t/is (= (ctob/set-count tokens-lib') 1)) (t/is (= (count tokens') 2)) (t/is (= (d/index-of (keys tokens') "test-token-1") 0)) (t/is (= (:name token') "test-token-1")) (t/is (= (:description token') "some description")) (t/is (= (:value token') false)) (t/is (ct/is-after? (ctob/get-modified-at token-set') (ctob/get-modified-at token-set))) (t/is (ct/is-after? (:modified-at token') (:modified-at token))))) (t/deftest rename-token (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "test-token-set")) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :id (thi/new-id! :test-token-1) :name "test-token-1" :type :boolean :value true)) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :id (thi/new-id! :test-token-2) :name "test-token-2" :type :boolean :value true))) tokens-lib' (-> tokens-lib (ctob/update-token (thi/id :test-token-set) (thi/id :test-token-1) (fn [token] (assoc token :name "updated-name")))) token-set (ctob/get-set tokens-lib (thi/id :test-token-set)) token-set' (ctob/get-set tokens-lib' (thi/id :test-token-set)) token (ctob/get-token tokens-lib (thi/id :test-token-set) (thi/id :test-token-1)) token' (ctob/get-token tokens-lib' (thi/id :test-token-set) (thi/id :test-token-1)) tokens' (ctob/get-tokens tokens-lib' (thi/id :test-token-set))] (t/is (= (ctob/set-count tokens-lib') 1)) (t/is (= (count tokens') 2)) (t/is (= (d/index-of (keys tokens') "updated-name") 0)) (t/is (= (:name token') "updated-name")) (t/is (= (:description token') "")) (t/is (= (:value token') true)) (t/is (ct/is-after? (ctob/get-modified-at token-set') (ctob/get-modified-at token-set))) (t/is (ct/is-after? (:modified-at token') (:modified-at token))))) (t/deftest delete-token (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "test-token-set")) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :id (thi/new-id! :test-token) :name "test-token" :type :boolean :value true))) tokens-lib' (-> tokens-lib (ctob/delete-token (thi/id :test-token-set) (thi/id :test-token)) (ctob/delete-token (uuid/next) (thi/id :test-token)) (ctob/delete-token (thi/id :test-token-set) (uuid/next))) token-set (ctob/get-set tokens-lib (thi/id :test-token-set)) token-set' (ctob/get-set tokens-lib' (thi/id :test-token-set)) token' (ctob/get-token tokens-lib' (thi/id :test-token-set) (thi/id :test-token)) tokens' (ctob/get-tokens tokens-lib' (thi/id :test-token-set))] (t/is (= (ctob/set-count tokens-lib') 1)) (t/is (= (count tokens') 0)) (t/is (nil? token')) (t/is (ct/is-after? (ctob/get-modified-at token-set') (ctob/get-modified-at token-set))))) (t/deftest get-ordered-sets (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "group-1/set-a")) (ctob/add-set (ctob/make-token-set :name "group-1/set-b")) (ctob/add-set (ctob/make-token-set :name "group-2/set-a")) (ctob/add-set (ctob/make-token-set :name "group-1/set-c"))) ordered-sets (ctob/get-set-names tokens-lib)] (t/is (= ordered-sets '("group-1/set-a" "group-1/set-b" "group-1/set-c" "group-2/set-a"))))) (t/deftest list-active-themes-tokens-no-theme (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "set-a" :tokens {"token-1" (ctob/make-token :name "token-1" :type :border-radius :value 10) "token-2" (ctob/make-token :name "token-2" :type :border-radius :value 20)})) (ctob/add-set (ctob/make-token-set :name "set-b" :tokens {"token-1" (ctob/make-token :name "token-1" :type :border-radius :value 100) "token-3" (ctob/make-token :name "token-3" :type :border-radius :value 300)})) (ctob/add-set (ctob/make-token-set :name "set-c" :tokens {"token-1" (ctob/make-token :name "token-1" :type :border-radius :value 1000) "token-2" (ctob/make-token :name "token-2" :type :border-radius :value 2000) "token-3" (ctob/make-token :name "token-3" :type :border-radius :value 3000) "token-4" (ctob/make-token :name "token-4" :type :border-radius :value 4000)})) (ctob/update-theme ctob/hidden-theme-id #(ctob/enable-sets % #{"set-a" "set-b"}))) tokens (ctob/get-tokens-in-active-sets tokens-lib)] (t/is (= (mapv key tokens) ["token-1" "token-2" "token-3"])) (t/is (= (get-in tokens ["token-1" :value]) 100)) (t/is (= (get-in tokens ["token-2" :value]) 20)) (t/is (= (get-in tokens ["token-3" :value]) 300)))) (t/deftest list-active-themes-tokens-one-theme (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "set-a" :tokens {"token-1" (ctob/make-token :name "token-1" :type :border-radius :value 10) "token-2" (ctob/make-token :name "token-2" :type :border-radius :value 20)})) (ctob/add-set (ctob/make-token-set :name "set-b" :tokens {"token-1" (ctob/make-token :name "token-1" :type :border-radius :value 100) "token-3" (ctob/make-token :name "token-3" :type :border-radius :value 300)})) (ctob/add-set (ctob/make-token-set :name "set-c" :tokens {"token-1" (ctob/make-token :name "token-1" :type :border-radius :value 1000) "token-2" (ctob/make-token :name "token-2" :type :border-radius :value 2000) "token-3" (ctob/make-token :name "token-3" :type :border-radius :value 3000) "token-4" (ctob/make-token :name "token-4" :type :border-radius :value 4000)})) (ctob/add-theme (ctob/make-token-theme :name "single-theme" :sets #{"set-b" "set-c" "set-a"})) (ctob/set-active-themes #{"/single-theme"})) tokens (ctob/get-tokens-in-active-sets tokens-lib)] ;; Note that sets order inside the theme is undefined. What matters is order in that the ;; sets have been added to the library. (t/is (= (mapv key tokens) ["token-1" "token-2" "token-3" "token-4"])) (t/is (= (get-in tokens ["token-1" :value]) 1000)) (t/is (= (get-in tokens ["token-2" :value]) 2000)) (t/is (= (get-in tokens ["token-3" :value]) 3000)) (t/is (= (get-in tokens ["token-4" :value]) 4000)))) (t/deftest list-active-themes-tokens-two-themes (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "set-a" :tokens {"token-1" (ctob/make-token :name "token-1" :type :border-radius :value 10) "token-2" (ctob/make-token :name "token-2" :type :border-radius :value 20)})) (ctob/add-set (ctob/make-token-set :name "set-b" :tokens {"token-1" (ctob/make-token :name "token-1" :type :border-radius :value 100) "token-3" (ctob/make-token :name "token-3" :type :border-radius :value 300)})) (ctob/add-set (ctob/make-token-set :name "set-c" :tokens {"token-1" (ctob/make-token :name "token-1" :type :border-radius :value 1000) "token-2" (ctob/make-token :name "token-2" :type :border-radius :value 2000) "token-3" (ctob/make-token :name "token-3" :type :border-radius :value 3000) "token-4" (ctob/make-token :name "token-4" :type :border-radius :value 4000)})) (ctob/add-theme (ctob/make-token-theme :name "theme-1" :sets #{"set-b"})) (ctob/add-theme (ctob/make-token-theme :name "theme-2" :sets #{"set-b" "set-a"})) (ctob/set-active-themes #{"/theme-1" "/theme-2"})) tokens (ctob/get-tokens-in-active-sets tokens-lib)] ;; Note that themes order is irrelevant. What matters is the union of the active sets ;; and the order of the sets in the library. (t/is (= (mapv key tokens) ["token-1" "token-2" "token-3"])) (t/is (= (get-in tokens ["token-1" :value]) 100)) (t/is (= (get-in tokens ["token-2" :value]) 20)) (t/is (= (get-in tokens ["token-3" :value]) 300)))) (t/deftest list-active-themes-tokens-bug-taiga-10617 (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "Mode/Dark" :tokens {"red" (ctob/make-token :name "red" :type :color :value "#700000")})) (ctob/add-set (ctob/make-token-set :name "Mode/Light" :tokens {"red" (ctob/make-token :name "red" :type :color :value "#ff0000")})) (ctob/add-set (ctob/make-token-set :name "Device/Desktop" :tokens {"border1" (ctob/make-token :name "border1" :type :border-radius :value 30)})) (ctob/add-set (ctob/make-token-set :name "Device/Mobile" :tokens {"border1" (ctob/make-token :name "border1" :type :border-radius :value 50)})) (ctob/add-theme (ctob/make-token-theme :group "App" :name "Mobile" :sets #{"Mode/Dark" "Device/Mobile"})) (ctob/add-theme (ctob/make-token-theme :group "App" :name "Web" :sets #{"Mode/Dark" "Mode/Light" "Device/Desktop"})) (ctob/add-theme (ctob/make-token-theme :group "Brand" :name "Brand A" :sets #{"Mode/Dark" "Mode/Light" "Device/Desktop" "Device/Mobile"})) (ctob/add-theme (ctob/make-token-theme :group "Brand" :name "Brand B" :sets #{})) (ctob/set-active-themes #{"App/Web" "Brand/Brand A"})) tokens (ctob/get-tokens-in-active-sets tokens-lib)] (t/is (= (mapv key tokens) ["red" "border1"])) (t/is (= (get-in tokens ["red" :value]) "#ff0000")) (t/is (= (get-in tokens ["border1" :value]) 50)))) (t/deftest list-active-themes-tokens-no-tokens (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "set-a"))) tokens (ctob/get-tokens-in-active-sets tokens-lib)] (t/is (empty? tokens)))) (t/deftest list-active-themes-tokens-no-sets (let [tokens-lib (ctob/make-tokens-lib) tokens (ctob/get-tokens-in-active-sets tokens-lib)] (t/is (empty? tokens)))) (t/deftest sets-at-path-active-state (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "foo/bar/baz")) (ctob/add-set (ctob/make-token-set :name "foo/bar/bam")) (ctob/add-theme (ctob/make-token-theme :name "none")) (ctob/add-theme (ctob/make-token-theme :name "partial" :sets #{"foo/bar/baz"})) (ctob/add-theme (ctob/make-token-theme :name "all" :sets #{"foo/bar/baz" "foo/bar/bam"})) (ctob/add-theme (ctob/make-token-theme :name "invalid" :sets #{"foo/missing"}))) expected-none (-> tokens-lib (ctob/set-active-themes #{"/none"}) (ctob/sets-at-path-all-active? ["foo"])) expected-all (-> tokens-lib (ctob/set-active-themes #{"/all"}) (ctob/sets-at-path-all-active? ["foo"])) expected-partial (-> tokens-lib (ctob/set-active-themes #{"/partial"}) (ctob/sets-at-path-all-active? ["foo"])) expected-invalid-none (-> tokens-lib (ctob/set-active-themes #{"/invalid"}) (ctob/sets-at-path-all-active? ["foo"]))] (t/is (= :none expected-none)) (t/is (= :all expected-all)) (t/is (= :partial expected-partial)) (t/is (= :none expected-invalid-none)))) (t/deftest add-token-theme (let [theme-id (uuid/next) tokens-lib (ctob/make-tokens-lib) token-theme (ctob/make-token-theme :id theme-id :name "test-token-theme") tokens-lib' (ctob/add-theme tokens-lib token-theme) token-themes' (ctob/get-themes tokens-lib') token-theme' (ctob/get-theme tokens-lib' theme-id)] (t/is (= (ctob/theme-count tokens-lib') 2)) (t/is (= (second token-themes') token-theme)) (t/is (= token-theme' token-theme)))) (t/deftest update-token-theme (let [theme-id (uuid/next) tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-theme (ctob/make-token-theme :id theme-id :name "test-token-theme"))) tokens-lib' (-> tokens-lib (ctob/update-theme theme-id (fn [token-theme] (assoc token-theme :description "some description"))) (ctob/update-theme (uuid/next) (fn [token-theme] (assoc token-theme :description "no-effect")))) token-theme (ctob/get-theme tokens-lib theme-id) token-theme' (ctob/get-theme tokens-lib' theme-id)] (t/is (= (ctob/theme-count tokens-lib') 2)) (t/is (= (:name token-theme') "test-token-theme")) (t/is (= (:description token-theme') "some description")) (t/is (ct/is-after? (:modified-at token-theme') (:modified-at token-theme))))) (t/deftest rename-token-theme (let [theme-id (uuid/next) tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-theme (ctob/make-token-theme :id theme-id :name "test-token-theme"))) tokens-lib' (-> tokens-lib (ctob/update-theme theme-id (fn [token-theme] (assoc token-theme :name "updated-name")))) token-theme (ctob/get-theme tokens-lib theme-id) token-theme' (ctob/get-theme tokens-lib' theme-id)] (t/is (= (ctob/theme-count tokens-lib') 2)) (t/is (= (:name token-theme') "updated-name")) (t/is (ct/is-after? (:modified-at token-theme') (:modified-at token-theme))))) (t/deftest delete-token-theme (let [theme-id (uuid/next) tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-theme (ctob/make-token-theme :id theme-id :name "test-token-theme"))) tokens-lib' (-> tokens-lib (ctob/delete-theme theme-id) (ctob/delete-theme (uuid/next))) token-theme' (ctob/get-theme tokens-lib' theme-id)] (t/is (= (ctob/theme-count tokens-lib') 1)) (t/is (nil? token-theme')))) (t/deftest toggle-set-in-theme (let [theme-id (uuid/next) tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "token-set-1")) (ctob/add-set (ctob/make-token-set :name "token-set-2")) (ctob/add-set (ctob/make-token-set :name "token-set-3")) (ctob/add-theme (ctob/make-token-theme :id theme-id :name "test-token-theme" :sets #{"token-set-1" "token-set-2"}))) tokens-lib' (-> tokens-lib (ctob/toggle-set-in-theme theme-id "token-set-1") (ctob/toggle-set-in-theme theme-id "token-set-3")) token-theme (ctob/get-theme tokens-lib theme-id) token-theme' (ctob/get-theme tokens-lib' theme-id)] (t/is (= (:sets token-theme') #{"token-set-2" "token-set-3"})) (t/is (ct/is-after? (:modified-at token-theme') (:modified-at token-theme))))) (t/deftest transit-serialization (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "test-token-set")) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :name "test-token" :type :boolean :value true)) (ctob/add-theme (ctob/make-token-theme :id (thi/new-id! :test-token-theme) :name "test-token-theme")) (ctob/toggle-set-in-theme (thi/id :test-token-theme) "test-token-set")) encoded-str (tr/encode-str tokens-lib) tokens-lib' (tr/decode-str encoded-str)] (t/is (ctob/valid-tokens-lib? tokens-lib')) (t/is (= (ctob/set-count tokens-lib') 1)) (t/is (= (ctob/theme-count tokens-lib') 2)))) #?(:clj (t/deftest fressian-serialization (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "test-token-set")) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :name "test-token" :type :boolean :value true)) (ctob/add-theme (ctob/make-token-theme :id (thi/new-id! :test-token-theme) :name "test-token-theme")) (ctob/toggle-set-in-theme (thi/id :test-token-theme) "test-token-set")) encoded-blob (fres/encode tokens-lib) tokens-lib' (fres/decode encoded-blob)] (t/is (ctob/valid-tokens-lib? tokens-lib')) (t/is (= (ctob/set-count tokens-lib') 1)) (t/is (= (ctob/theme-count tokens-lib') 2))))) (t/deftest add-tokens-in-set (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "test-token-set")) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :name "token1" :type :boolean :value true)) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :name "group1.token2" :type :boolean :value true)) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :name "group1.token3" :type :boolean :value true)) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :name "group1.subgroup11.token4" :type :boolean :value true)) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :name "group2.token5" :type :boolean :value true))) tokens-list (vals (ctob/get-tokens tokens-lib (thi/id :test-token-set)))] (t/is (= (count tokens-list) 5)) (t/is (= (:name (nth tokens-list 0)) "token1")) (t/is (= (:name (nth tokens-list 1)) "group1.token2")) (t/is (= (:name (nth tokens-list 2)) "group1.token3")) (t/is (= (:name (nth tokens-list 3)) "group1.subgroup11.token4")) (t/is (= (:name (nth tokens-list 4)) "group2.token5")))) (t/deftest update-token-in-sets (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "test-token-set")) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :id (thi/new-id! :test-token-1) :name "test-token-1" :type :boolean :value true)) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :id (thi/new-id! :test-token-2) :name "group1.test-token-2" :type :boolean :value true)) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :id (thi/new-id! :test-token-3) :name "group1.test-token-3" :type :boolean :value true))) tokens-lib' (-> tokens-lib (ctob/update-token (thi/id :test-token-set) (thi/id :test-token-2) (fn [token] (assoc token :description "some description" :value false)))) token-set (ctob/get-set tokens-lib (thi/id :test-token-set)) token-set' (ctob/get-set tokens-lib' (thi/id :test-token-set)) token (ctob/get-token tokens-lib (thi/id :test-token-set) (thi/id :test-token-2)) token' (ctob/get-token tokens-lib' (thi/id :test-token-set) (thi/id :test-token-2))] (t/is (= (ctob/set-count tokens-lib') 1)) (t/is (= (:name token') "group1.test-token-2")) (t/is (= (:description token') "some description")) (t/is (= (:value token') false)) (t/is (ct/is-after? (ctob/get-modified-at token-set') (ctob/get-modified-at token-set))) (t/is (ct/is-after? (:modified-at token') (:modified-at token))))) (t/deftest update-token-in-sets-rename (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "test-token-set")) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :id (thi/new-id! :test-token-1) :name "test-token-1" :type :boolean :value true)) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :id (thi/new-id! :test-token-2) :name "group1.test-token-2" :type :boolean :value true)) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :id (thi/new-id! :test-token-3) :name "group1.test-token-3" :type :boolean :value true))) tokens-lib' (-> tokens-lib (ctob/update-token (thi/id :test-token-set) (thi/id :test-token-2) (fn [token] (assoc token :name "group1.updated-name")))) token-set (ctob/get-set tokens-lib (thi/id :test-token-set)) token-set' (ctob/get-set tokens-lib' (thi/id :test-token-set)) token (ctob/get-token tokens-lib (thi/id :test-token-set) (thi/id :test-token-2)) token' (ctob/get-token tokens-lib' (thi/id :test-token-set) (thi/id :test-token-2))] (t/is (= (ctob/set-count tokens-lib') 1)) (t/is (= (:name token') "group1.updated-name")) (t/is (= (:description token') "")) (t/is (= (:value token') true)) (t/is (ct/is-after? (ctob/get-modified-at token-set') (:ctob/get-modified-at token-set))) (t/is (ct/is-after? (:modified-at token') (:modified-at token))))) (t/deftest move-token-of-group (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "test-token-set")) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :id (thi/new-id! :test-token-1) :name "test-token-1" :type :boolean :value true)) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :id (thi/new-id! :test-token-2) :name "group1.test-token-2" :type :boolean :value true)) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :id (thi/new-id! :test-token-3) :name "group1.test-token-3" :type :boolean :value true))) tokens-lib' (-> tokens-lib (ctob/update-token (thi/id :test-token-set) (thi/id :test-token-2) (fn [token] (assoc token :name "group2.updated-name")))) token-set (ctob/get-set tokens-lib (thi/id :test-token-set)) token-set' (ctob/get-set tokens-lib' (thi/id :test-token-set)) token (ctob/get-token tokens-lib (thi/id :test-token-set) (thi/id :test-token-2)) token' (ctob/get-token tokens-lib' (thi/id :test-token-set) (thi/id :test-token-2)) tokens' (ctob/get-tokens tokens-lib' (thi/id :test-token-set))] (t/is (= (ctob/set-count tokens-lib') 1)) (t/is (= (d/index-of (keys tokens') "group2.updated-name") 1)) (t/is (= (:name token') "group2.updated-name")) (t/is (= (:description token') "")) (t/is (= (:value token') true)) (t/is (ct/is-after? (ctob/get-modified-at token-set') (ctob/get-modified-at token-set))) (t/is (ct/is-after? (:modified-at token') (:modified-at token))))) (t/deftest delete-token-in-group (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :test-token-set) :name "test-token-set")) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :id (thi/new-id! :test-token-1) :name "test-token-1" :type :boolean :value true)) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :id (thi/new-id! :test-token-2) :name "group1.test-token-2" :type :boolean :value true))) tokens-lib' (-> tokens-lib (ctob/delete-token (thi/id :test-token-set) (thi/id :test-token-2))) token-set (ctob/get-set tokens-lib (thi/id :test-token-set)) token-set' (ctob/get-set tokens-lib' (thi/id :test-token-set)) token' (ctob/get-token tokens-lib' (thi/id :test-token-set) (thi/id :test-token-2)) tokens' (ctob/get-tokens tokens-lib' (thi/id :test-token-set))] (t/is (= (ctob/set-count tokens-lib') 1)) (t/is (= (count tokens') 1)) (t/is (nil? token')) (t/is (ct/is-after? (ctob/get-modified-at token-set') (ctob/get-modified-at token-set))))) (t/deftest update-token-set-in-groups (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :token-set-1) :name "token-set-1")) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :token-set-2) :name "group1/token-set-2")) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :token-set-3) :name "group1/token-set-3")) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :token-set-4) :name "group1/subgroup11/token-set-4")) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :token-set-5) :name "group2/token-set-5"))) tokens-lib' (-> tokens-lib (ctob/update-set (thi/id :token-set-2) (fn [token-set] (ctob/set-description token-set "some description")))) sets-tree (ctob/get-set-tree tokens-lib) sets-tree' (ctob/get-set-tree tokens-lib') group1' (get sets-tree' "G-group1") token-set (get-in sets-tree ["G-group1" "S-token-set-2"]) token-set' (get-in sets-tree' ["G-group1" "S-token-set-2"])] (t/is (= (ctob/set-count tokens-lib') 5)) (t/is (= (count group1') 3)) (t/is (= (d/index-of (keys group1') "S-token-set-2") 0)) (t/is (= (ctob/get-name token-set') "group1/token-set-2")) (t/is (= (ctob/get-description token-set') "some description")) (t/is (ct/is-after? (ctob/get-modified-at token-set') (ctob/get-modified-at token-set))))) (t/deftest rename-token-set-in-groups (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :token-set-1) :name "token-set-1")) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :token-set-2) :name "group1/token-set-2")) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :token-set-3) :name "group1/token-set-3")) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :token-set-4) :name "group1/subgroup11/token-set-4")) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :token-set-5) :name "group2/token-set-5"))) tokens-lib' (-> tokens-lib (ctob/update-set (thi/id :token-set-2) (fn [token-set] (ctob/rename token-set "group1/updated-name")))) sets-tree (ctob/get-set-tree tokens-lib) sets-tree' (ctob/get-set-tree tokens-lib') group1' (get sets-tree' "G-group1") token-set (get-in sets-tree ["G-group1" "S-token-set-2"]) token-set' (get-in sets-tree' ["G-group1" "S-updated-name"])] (t/is (= (ctob/set-count tokens-lib') 5)) (t/is (= (count group1') 3)) (t/is (= (d/index-of (keys group1') "S-updated-name") 0)) (t/is (= (ctob/get-name token-set') "group1/updated-name")) (t/is (= (ctob/get-description token-set') "")) (t/is (ct/is-after? (ctob/get-modified-at token-set') (ctob/get-modified-at token-set))))) (t/deftest move-token-set-of-group (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :token-set-1) :name "token-set-1")) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :token-set-2) :name "group1/token-set-2")) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :token-set-3) :name "group1/token-set-3")) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :token-set-4) :name "group1/subgroup11/token-set-4")) #_(ctob/add-set (ctob/make-token-set :id (thi/new-id! :token-set-5) :name "group2/token-set-5"))) tokens-lib' (-> tokens-lib (ctob/update-set (thi/id :token-set-2) (fn [token-set] (ctob/rename token-set "group2/updated-name")))) sets-tree (ctob/get-set-tree tokens-lib) sets-tree' (ctob/get-set-tree tokens-lib') group1' (get sets-tree' "G-group1") group2' (get sets-tree' "G-group2") token-set (get-in sets-tree ["G-group1" "S-token-set-2"]) token-set' (get-in sets-tree' ["G-group2" "S-updated-name"])] (t/is (= (ctob/set-count tokens-lib') 4)) (t/is (= (count group1') 2)) (t/is (= (count group2') 1)) (t/is (nil? (get group1' "S-updated-name"))) (t/is (= (ctob/get-name token-set') "group2/updated-name")) (t/is (= (ctob/get-description token-set') "")) (t/is (ct/is-after? (ctob/get-modified-at token-set') (ctob/get-modified-at token-set))))) (t/deftest delete-token-set-in-group (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :token-set-1) :name "token-set-1")) (ctob/add-set (ctob/make-token-set :id (thi/new-id! :token-set-2) :name "group1/token-set-2"))) tokens-lib' (-> tokens-lib (ctob/delete-set (thi/id :token-set-2))) sets-tree' (ctob/get-set-tree tokens-lib') token-set' (get-in sets-tree' ["group1" "token-set-2"])] (t/is (= (ctob/set-count tokens-lib') 1)) (t/is (= (count sets-tree') 1)) (t/is (nil? token-set')))) (t/deftest update-token-theme-in-groups (let [theme-1-id (uuid/next) theme-2-id (uuid/next) theme-3-id (uuid/next) theme-4-id (uuid/next) tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-theme (ctob/make-token-theme :id theme-1-id :group "" :name "token-theme-1")) (ctob/add-theme (ctob/make-token-theme :id theme-2-id :group "group1" :name "token-theme-2")) (ctob/add-theme (ctob/make-token-theme :id theme-3-id :group "group1" :name "token-theme-3")) (ctob/add-theme (ctob/make-token-theme :id theme-4-id :group "group2" :name "token-theme-4"))) tokens-lib' (-> tokens-lib (ctob/update-theme theme-2-id (fn [token-theme] (assoc token-theme :description "some description")))) themes-tree (ctob/get-theme-tree tokens-lib) themes-tree' (ctob/get-theme-tree tokens-lib') group1' (get themes-tree' "group1") token-theme (get-in themes-tree ["group1" "token-theme-2"]) token-theme' (get-in themes-tree' ["group1" "token-theme-2"])] (t/is (= (ctob/theme-count tokens-lib') 5)) (t/is (= (count group1') 2)) (t/is (= (d/index-of (keys group1') "token-theme-2") 0)) (t/is (= (:name token-theme') "token-theme-2")) (t/is (= (:group token-theme') "group1")) (t/is (= (:description token-theme') "some description")) (t/is (ct/is-after? (:modified-at token-theme') (:modified-at token-theme))))) (t/deftest get-token-theme-groups (let [token-lib (-> (ctob/make-tokens-lib) (ctob/add-theme (ctob/make-token-theme :group "" :name "token-theme-1")) (ctob/add-theme (ctob/make-token-theme :group "group1" :name "token-theme-2")) (ctob/add-theme (ctob/make-token-theme :group "group1" :name "token-theme-3")) (ctob/add-theme (ctob/make-token-theme :group "group2" :name "token-theme-4"))) token-groups (ctob/get-theme-groups token-lib)] (t/is (= token-groups ["group1" "group2"])))) (t/deftest rename-token-theme-in-groups (let [theme-1-id (uuid/next) theme-2-id (uuid/next) theme-3-id (uuid/next) theme-4-id (uuid/next) tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-theme (ctob/make-token-theme :id theme-1-id :group "" :name "token-theme-1")) (ctob/add-theme (ctob/make-token-theme :id theme-2-id :group "group1" :name "token-theme-2")) (ctob/add-theme (ctob/make-token-theme :id theme-3-id :group "group1" :name "token-theme-3")) (ctob/add-theme (ctob/make-token-theme :id theme-4-id :group "group2" :name "token-theme-4"))) tokens-lib' (-> tokens-lib (ctob/update-theme theme-2-id (fn [token-theme] (assoc token-theme :name "updated-name")))) themes-tree (ctob/get-theme-tree tokens-lib) themes-tree' (ctob/get-theme-tree tokens-lib') group1' (get themes-tree' "group1") token-theme (get-in themes-tree ["group1" "token-theme-2"]) token-theme' (get-in themes-tree' ["group1" "updated-name"])] (t/is (= (ctob/theme-count tokens-lib') 5)) (t/is (= (count group1') 2)) (t/is (= (d/index-of (keys group1') "updated-name") 0)) (t/is (= (:name token-theme') "updated-name")) (t/is (= (:group token-theme') "group1")) (t/is (= (:description token-theme') "")) (t/is (ct/is-after? (:modified-at token-theme') (:modified-at token-theme))))) (t/deftest move-token-theme-of-group (let [theme-1-id (uuid/next) theme-2-id (uuid/next) theme-3-id (uuid/next) theme-4-id (uuid/next) tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-theme (ctob/make-token-theme :id theme-1-id :group "" :name "token-theme-1")) (ctob/add-theme (ctob/make-token-theme :id theme-2-id :group "group1" :name "token-theme-2")) (ctob/add-theme (ctob/make-token-theme :id theme-3-id :group "group1" :name "token-theme-3")) #_(ctob/add-theme (ctob/make-token-theme :in-theme-4-id :group "group2" :name "token-theme-4"))) tokens-lib' (-> tokens-lib (ctob/update-theme theme-2-id (fn [token-theme] (assoc token-theme :name "updated-name" :group "group2")))) themes-tree (ctob/get-theme-tree tokens-lib) themes-tree' (ctob/get-theme-tree tokens-lib') group1' (get themes-tree' "group1") group2' (get themes-tree' "group2") token-theme (get-in themes-tree ["group1" "token-theme-2"]) token-theme' (get-in themes-tree' ["group2" "updated-name"])] (t/is (= (ctob/theme-count tokens-lib') 4)) (t/is (= (count group1') 1)) (t/is (= (count group2') 1)) (t/is (= (d/index-of (keys group2') "updated-name") 0)) (t/is (= (:name token-theme') "updated-name")) (t/is (= (:group token-theme') "group2")) (t/is (= (:description token-theme') "")) (t/is (ct/is-after? (:modified-at token-theme') (:modified-at token-theme))))) (t/deftest delete-token-theme-in-group (let [theme-1-id (uuid/next) theme-2-id (uuid/next) tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-theme (ctob/make-token-theme :id theme-1-id :group "" :name "token-theme-1")) (ctob/add-theme (ctob/make-token-theme :id theme-2-id :group "group1" :name "token-theme-2"))) tokens-lib' (-> tokens-lib (ctob/delete-theme theme-2-id)) themes-tree' (ctob/get-theme-tree tokens-lib') token-theme' (get-in themes-tree' ["group1" "token-theme-2"])] (t/is (= (ctob/theme-count tokens-lib') 2)) (t/is (= (count themes-tree') 1)) (t/is (nil? token-theme')))) #?(:clj (t/deftest parse-single-set-legacy-json (let [json (-> (slurp "test/common_tests/types/data/tokens-single-set-legacy-example.json") (json/decode {:key-fn identity})) lib (ctob/parse-decoded-json json "single_set")] (t/is (= '("single_set") (ctob/get-set-names lib))) (t/testing "token added" (t/is (some? (ctob/get-token-by-name lib "single_set" "color.red.100"))))))) #?(:clj (t/deftest parse-single-set-dtcg-json (let [json (-> (slurp "test/common_tests/types/data/tokens-single-set-dtcg-example.json") (json/decode {:key-fn identity})) lib (ctob/parse-decoded-json json "single_set")] (t/is (= '("single_set") (ctob/get-set-names lib))) (t/testing "token added" (t/is (some? (ctob/get-token-by-name lib "single_set" "color.red.100"))))))) #?(:clj (t/deftest parse-dtcg-group-type-inheritance ;; Per DTCG spec: $type on a group is inherited by every nested token ;; that does not declare its own $type. Tokens are identified by the ;; presence of $value, not by the presence of $type. (let [json {"colors" {"$type" "color" "red" {"$value" "#ff0000"} "blue" {"$value" "#0000ff" "$description" "Brand blue"} "danger" {"$type" "color" "$value" "#cc0000"}} "space" {"$type" "dimension" "small" {"$value" "4px"} "large" {"$value" "16px" "$type" "dimension"}}} lib (ctob/parse-decoded-json json "set")] (t/testing "group `$type` is inherited by tokens without their own `$type`" (t/is (tht/token-data-eq? (ctob/get-token-by-name lib "set" "colors.red") {:name "colors.red" :type :color :value "#ff0000" :description ""})) (t/is (tht/token-data-eq? (ctob/get-token-by-name lib "set" "colors.blue") {:name "colors.blue" :type :color :value "#0000ff" :description "Brand blue"})) (t/is (tht/token-data-eq? (ctob/get-token-by-name lib "set" "space.small") {:name "space.small" :type :dimensions :value "4px" :description ""}))) (t/testing "token `$type` overrides the inherited group `$type`" (t/is (tht/token-data-eq? (ctob/get-token-by-name lib "set" "colors.danger") {:name "colors.danger" :type :color :value "#cc0000" :description ""})) (t/is (tht/token-data-eq? (ctob/get-token-by-name lib "set" "space.large") {:name "space.large" :type :dimensions :value "16px" :description ""})))))) #?(:clj (t/deftest parse-multi-set-legacy-json (let [json (-> (slurp "test/common_tests/types/data/tokens-multi-set-legacy-example.json") (json/decode {:key-fn identity})) lib (ctob/parse-decoded-json json "") token-theme (ctob/get-theme-by-name lib "group-1" "theme-1")] (t/is (= '("core" "light" "dark" "theme") (ctob/get-set-names lib))) (t/testing "set exists in theme" (t/is (= (:group token-theme) "group-1")) (t/is (= (:name token-theme) "theme-1")) (t/is (= (:sets token-theme) #{"light"}))) (t/testing "tokens exist in core set" (t/is (tht/token-data-eq? (ctob/get-token-by-name lib "core" "colors.red.600") {:name "colors.red.600" :type :color :value "#e53e3e" :description ""})) (t/is (tht/token-data-eq? (ctob/get-token-by-name lib "core" "spacing.multi-value") {:name "spacing.multi-value" :type :spacing :value "{dimension.sm} {dimension.xl}" :description "You can have multiple values in a single spacing token"})) (t/is (tht/token-data-eq? (ctob/get-token-by-name lib "theme" "button.primary.background") {:name "button.primary.background" :type :color :value "{accent.default}" :description ""})))))) #?(:clj (t/deftest parse-multi-set-dtcg-json (let [json (-> (slurp "test/common_tests/types/data/tokens-multi-set-example.json") (json/decode {:key-fn identity})) lib (ctob/parse-decoded-json json "") token-theme (ctob/get-theme-by-name lib "group-1" "theme-1")] (t/is (= '("core" "light" "dark" "theme") (ctob/get-set-names lib))) (t/testing "set exists in theme" (t/is (= (:group token-theme) "group-1")) (t/is (= (:name token-theme) "theme-1")) (t/is (= (:sets token-theme) #{"light"}))) (t/testing "tokens exist in core set" (t/is (tht/token-data-eq? (ctob/get-token-by-name lib "core" "colors.red.600") {:name "colors.red.600" :type :color :value "#e53e3e" :description ""})) (t/is (tht/token-data-eq? (ctob/get-token-by-name lib "core" "spacing.multi-value") {:name "spacing.multi-value" :type :spacing :value "{dimension.sm} {dimension.xl}" :description "You can have multiple values in a single spacing token"})) (t/is (tht/token-data-eq? (ctob/get-token-by-name lib "theme" "button.primary.background") {:name "button.primary.background" :type :color :value "{accent.default}" :description ""})))))) #?(:clj (t/deftest parse-multi-set-dtcg-json-default-team (let [json (-> (slurp "test/common_tests/types/data/tokens-default-team-only.json") (json/decode {:key-fn identity})) lib (ctob/parse-decoded-json json "") themes (ctob/get-themes lib) first-theme (first themes)] (t/is (= '("dark") (ctob/get-set-names lib))) (t/is (= 1 (count themes))) (t/testing "existing theme is default theme" (t/is (= (:group first-theme) "")) (t/is (= (:name first-theme) ctob/hidden-theme-name))) (t/testing "token exist in dark set" (t/is (tht/token-data-eq? (ctob/get-token-by-name lib "dark" "small") {:name "small" :value "8" :type :border-radius :description ""})))))) #?(:clj (t/deftest export-dtcg-json (let [now (ct/now) tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "core" :tokens {"colors.red.600" (ctob/make-token {:name "colors.red.600" :type :color :value "#e53e3e"}) "spacing.multi-value" (ctob/make-token {:name "spacing.multi-value" :type :spacing :value "{dimension.sm} {dimension.xl}" :description "You can have multiple values in a single spacing token"}) "button.primary.background" (ctob/make-token {:name "button.primary.background" :type :color :value "{accent.default}"})})) (ctob/add-theme (ctob/make-token-theme :name "theme-1" :group "group-1" :external-id "test-id-00" :modified-at now :sets #{"core"}))) result (ctob/export-dtcg-json tokens-lib) expected {"$themes" [{"description" "" "group" "group-1" "isSource" false "id" "test-id-00" "name" "theme-1" "selectedTokenSets" {"core" "enabled"}}] "$metadata" {"tokenSetOrder" ["core"] "activeSets" #{}, "activeThemes" #{}} "core" {"colors" {"red" {"600" {"$value" "#e53e3e" "$type" "color" "$description" ""}}} "spacing" {"multi-value" {"$value" "{dimension.sm} {dimension.xl}" "$type" "spacing" "$description" "You can have multiple values in a single spacing token"}} "button" {"primary" {"background" {"$value" "{accent.default}" "$type" "color" "$description" ""}}}}}] (t/is (= expected result))))) #?(:clj (t/deftest export-parse-dtcg-json (with-redefs [ct/now (constantly (ct/inst "2024-10-16T12:01:20.257840055-00:00")) uuid/next (constantly uuid/zero)] (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "core" :tokens {"colors.red.600" (ctob/make-token {:name "colors.red.600" :type :color :value "#e53e3e"}) "spacing.multi-value" (ctob/make-token {:name "spacing.multi-value" :type :spacing :value "{dimension.sm} {dimension.xl}" :description "You can have multiple values in a single spacing token"}) "button.primary.background" (ctob/make-token {:name "button.primary.background" :type :color :value "{accent.default}"})}))) encoded (ctob/export-dtcg-json tokens-lib) tokens-lib' (ctob/parse-decoded-json encoded "")] (t/testing "library got updated but data is equal" (t/is (not= tokens-lib' tokens-lib)) (t/is (= (datafy tokens-lib') (datafy tokens-lib)))))))) #?(:clj (t/deftest export-dtcg-json-with-default-theme (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "core" :tokens {"colors.red.600" (ctob/make-token {:name "colors.red.600" :type :color :value "#e53e3e"}) "spacing.multi-value" (ctob/make-token {:name "spacing.multi-value" :type :spacing :value "{dimension.sm} {dimension.xl}" :description "You can have multiple values in a single spacing token"}) "button.primary.background" (ctob/make-token {:name "button.primary.background" :type :color :value "{accent.default}"})}))) result (ctob/export-dtcg-json tokens-lib) expected {"$themes" [] "$metadata" {"tokenSetOrder" ["core"] "activeSets" #{}, "activeThemes" #{}} "core" {"colors" {"red" {"600" {"$value" "#e53e3e" "$type" "color" "$description" ""}}} "spacing" {"multi-value" {"$value" "{dimension.sm} {dimension.xl}" "$type" "spacing" "$description" "You can have multiple values in a single spacing token"}} "button" {"primary" {"background" {"$value" "{accent.default}" "$type" "color" "$description" ""}}}}}] (t/is (= expected result))))) #?(:clj (t/deftest export-dtcg-json-with-active-theme-and-set (let [now (ct/now) tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "core" :tokens {"colors.red.600" (ctob/make-token {:name "colors.red.600" :type :color :value "#e53e3e"}) "spacing.multi-value" (ctob/make-token {:name "spacing.multi-value" :type :spacing :value "{dimension.sm} {dimension.xl}" :description "You can have multiple values in a single spacing token"}) "button.primary.background" (ctob/make-token {:name "button.primary.background" :type :color :value "{accent.default}"})})) (ctob/add-theme (ctob/make-token-theme :id (thi/new-id! :theme-1) :name "theme-1" :group "group-1" :external-id "test-id-01" :modified-at now :sets #{"core"})) (ctob/toggle-theme-active (thi/id :theme-1))) result (ctob/export-dtcg-json tokens-lib) expected {"$themes" [{"description" "" "group" "group-1" "isSource" false "id" "test-id-01" "name" "theme-1" "selectedTokenSets" {"core" "enabled"}}] "$metadata" {"tokenSetOrder" ["core"] "activeSets" #{"core"}, "activeThemes" #{"group-1/theme-1"}} "core" {"colors" {"red" {"600" {"$value" "#e53e3e" "$type" "color" "$description" ""}}} "spacing" {"multi-value" {"$value" "{dimension.sm} {dimension.xl}" "$type" "spacing" "$description" "You can have multiple values in a single spacing token"}} "button" {"primary" {"background" {"$value" "{accent.default}" "$type" "color" "$description" ""}}}}}] (t/is (= expected result))))) #?(:clj (t/deftest export-dtcg-multi-file (let [now (ct/now) tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "some/set" :tokens {"colors.red.600" (ctob/make-token {:name "colors.red.600" :type :color :value "#e53e3e"}) "spacing.multi-value" (ctob/make-token {:name "spacing.multi-value" :type :spacing :value "{dimension.sm} {dimension.xl}" :description "You can have multiple values in a single spacing token"}) "button.primary.background" (ctob/make-token {:name "button.primary.background" :type :color :value "{accent.default}"})})) (ctob/add-theme (ctob/make-token-theme :id (thi/new-id! :theme-1) :name "theme-1" :group "group-1" :external-id "test-id-01" :modified-at now :sets #{"some/set"})) (ctob/toggle-theme-active (thi/id :theme-1))) result (ctob/export-dtcg-multi-file tokens-lib) expected {"$themes.json" [{"description" "" "group" "group-1" "isSource" false "id" "test-id-01" "name" "theme-1" "selectedTokenSets" {"some/set" "enabled"}}] "$metadata.json" {"tokenSetOrder" ["some/set"] "activeThemes" #{"group-1/theme-1"} "activeSets" #{"some/set"}} "some/set.json" {"colors" {"red" {"600" {"$value" "#e53e3e" "$type" "color" "$description" ""}}} "spacing" {"multi-value" {"$value" "{dimension.sm} {dimension.xl}" "$type" "spacing" "$description" "You can have multiple values in a single spacing token"}} "button" {"primary" {"background" {"$value" "{accent.default}" "$type" "color" "$description" ""}}}}}] (t/is (= expected result))))) #?(:clj (t/deftest parse-typography-tokens (let [json (-> (slurp "test/common_tests/types/data/tokens-typography-example.json") (json/decode {:key-fn identity})) lib (ctob/parse-decoded-json json "typography-test")] (t/testing "typography token with composite value" (let [token (ctob/get-token-by-name lib "typography-test" "test.typo")] (t/is (some? token)) (t/is (= (:type token) :typography)) (t/is (= (:value token) {:font-weight "100" :font-size "16px" :letter-spacing "0.1em"})) (t/is (= (:description token) "")))) (t/testing "typography token with string reference" (let [token (ctob/get-token-by-name lib "typography-test" "test.typo2")] (t/is (some? token)) (t/is (= (:type token) :typography)) (t/is (= (:value token) "{typo}")) (t/is (= (:description token) "")))) (t/testing "typography token referencing single token" (let [token (ctob/get-token-by-name lib "typography-test" "test.typo-to-single")] (t/is (some? token)) (t/is (= (:type token) :typography)) (t/is (= (:value token) "{font-weight}")) (t/is (= (:description token) "")))) (t/testing "typography token with empty value" (let [token (ctob/get-token-by-name lib "typography-test" "test.test-empty")] (t/is (some? token)) (t/is (= (:type token) :typography)) (t/is (= (:value token) {})) (t/is (= (:description token) "")))) (t/testing "typography token with complex value and description" (let [token (ctob/get-token-by-name lib "typography-test" "test.typo-complex")] (t/is (some? token)) (t/is (= (:type token) :typography)) (t/is (= (:value token) {:font-weight "bold" :font-size "24px" :letter-spacing "0.05em" :line-height "100%" :font-family ["Arial", "sans-serif"] :text-case "uppercase"})) (t/is (= (:description token) "A complex typography token")))) (t/testing "individual font tokens still work" (let [font-weight-token (ctob/get-token-by-name lib "typography-test" "test.font-weight") font-size-token (ctob/get-token-by-name lib "typography-test" "test.font-size")] (t/is (some? font-weight-token)) (t/is (= (:type font-weight-token) :font-weight)) (t/is (= (:value font-weight-token) "200")) (t/is (some? font-size-token)) (t/is (= (:type font-size-token) :font-size)) (t/is (= (:value font-size-token) "18px")))) (t/testing "typography token with string font family gets transformed to array" (let [token (ctob/get-token-by-name lib "typography-test" "test.typo-with-string-font-family")] (t/is (some? token)) (t/is (= (:type token) :typography)) (t/is (= (:value token) {:font-weight "600" :font-size "20px" :font-family ["Roboto" "Helvetica" "sans-serif"]})) (t/is (= (:description token) "Typography token with string font family"))))))) #?(:clj (t/deftest export-typography-tokens (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "typography-set" :tokens {"typo.composite" (ctob/make-token {:name "typo.composite" :type :typography :value {:font-weight "bold" :font-size "16px" :letter-spacing "0.1em"} :description "A composite typography token"}) "typo.reference" (ctob/make-token {:name "typo.reference" :type :typography :value "{other-token}"}) "typo.empty" (ctob/make-token {:name "typo.empty" :type :typography :value {}})}))) result (ctob/export-dtcg-json tokens-lib) typography-set (get result "typography-set")] (t/testing "composite typography token export" (let [composite-token (get-in typography-set ["typo" "composite"])] (t/is (= (get composite-token "$type") "typography")) (t/is (= (get composite-token "$value") {"fontWeights" "bold" "fontSizes" "16px" "letterSpacing" "0.1em"})) (t/is (= (get composite-token "$description") "A composite typography token")))) (t/testing "reference typography token export" (let [reference-token (get-in typography-set ["typo" "reference"])] (t/is (= (get reference-token "$type") "typography")) (t/is (= (get reference-token "$value") "{other-token}")) (t/is (= (get reference-token "$description") "")))) (t/testing "empty typography token export" (let [empty-token (get-in typography-set ["typo" "empty"])] (t/is (= (get empty-token "$type") "typography")) (t/is (= (get empty-token "$value") {})) (t/is (= (get empty-token "$description") ""))))))) #?(:clj (t/deftest typography-token-round-trip (let [original-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "test-set" :tokens {"typo.test" (ctob/make-token {:name "typo.test" :type :typography :value {:font-weight "700" :font-size "20px" :letter-spacing "0.05em" :font-family ["Helvetica", "sans-serif"]} :description "Round trip test"}) "typo.ref" (ctob/make-token {:name "typo.ref" :type :typography :value "{typo.test}"})}))) ;; Export to JSON format exported (ctob/export-dtcg-json original-lib) ;; Import back imported-lib (ctob/parse-decoded-json exported "")] (t/testing "round trip preserves typography tokens" (let [original-token (ctob/get-token-by-name original-lib "test-set" "typo.test") imported-token (ctob/get-token-by-name imported-lib "test-set" "typo.test")] (t/is (some? imported-token)) (t/is (= (:type imported-token) (:type original-token))) (t/is (= (:value imported-token) (:value original-token))) (t/is (= (:description imported-token) (:description original-token)))) (let [original-ref (ctob/get-token-by-name original-lib "test-set" "typo.ref") imported-ref (ctob/get-token-by-name imported-lib "test-set" "typo.ref")] (t/is (some? imported-ref)) (t/is (= (:type imported-ref) (:type original-ref))) (t/is (= (:value imported-ref) (:value original-ref)))))))) #?(:clj (t/deftest parse-font-family-tokens (let [json (-> (slurp "test/common_tests/types/data/tokens-font-family-example.json") (json/decode {:key-fn identity})) lib (ctob/parse-decoded-json json "font-family-test")] (t/testing "string font family token gets split into array" (let [token (ctob/get-token-by-name lib "font-family-test" "fonts.string-font-family")] (t/is (some? token)) (t/is (= (:type token) :font-family)) (t/is (= (:value token) ["Arial" "Helvetica" "sans-serif"])) (t/is (= (:description token) "A font family defined as a string")))) (t/testing "array font family token stays as array" (let [token (ctob/get-token-by-name lib "font-family-test" "fonts.array-font-family")] (t/is (some? token)) (t/is (= (:type token) :font-family)) (t/is (= (:value token) ["Inter" "system-ui" "sans-serif"])) (t/is (= (:description token) "A font family defined as an array")))) (t/testing "single font family string gets converted to array" (let [token (ctob/get-token-by-name lib "font-family-test" "fonts.single-font-family")] (t/is (some? token)) (t/is (= (:type token) :font-family)) (t/is (= (:value token) ["Georgia"])) (t/is (= (:description token) "")))) (t/testing "complex font names with spaces handled correctly" (let [token (ctob/get-token-by-name lib "font-family-test" "fonts.font-with-spaces")] (t/is (some? token)) (t/is (= (:type token) :font-family)) (t/is (= (:value token) ["Source Sans Pro" "Arial" "sans-serif"]))))))) #?(:clj (t/deftest export-font-family-tokens (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "font-family-set" :tokens {"fonts.array-family" (ctob/make-token {:name "fonts.array-family" :type :font-family :value ["Roboto" "sans-serif"] :description "An array font family token"}) "fonts.single-family" (ctob/make-token {:name "fonts.single-family" :type :font-family :value ["Georgia"]})}))) result (ctob/export-dtcg-json tokens-lib) font-family-set (get result "font-family-set")] (t/testing "array font family token export" (let [array-token (get-in font-family-set ["fonts" "array-family"])] (t/is (= (get array-token "$type") "fontFamilies")) (t/is (= (get array-token "$value") ["Roboto" "sans-serif"])) (t/is (= (get array-token "$description") "An array font family token")))) (t/testing "single font family token export" (let [single-token (get-in font-family-set ["fonts" "single-family"])] (t/is (= (get single-token "$type") "fontFamilies")) (t/is (= (get single-token "$value") ["Georgia"])) (t/is (= (get single-token "$description") ""))))))) #?(:clj (t/deftest font-family-token-round-trip (let [original-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "test-set" :tokens {"fonts.test-array" (ctob/make-token {:name "fonts.test-array" :type :font-family :value ["Arial" "Helvetica" "sans-serif"] :description "Round trip test"}) "fonts.test-single" (ctob/make-token {:name "fonts.test-single" :type :font-family :value ["Times New Roman"]})}))) ;; Export to JSON format exported (ctob/export-dtcg-json original-lib) ;; Import back imported-lib (ctob/parse-decoded-json exported "")] (t/testing "round trip preserves font family tokens" (let [original-token (ctob/get-token-by-name original-lib "test-set" "fonts.test-array") imported-token (ctob/get-token-by-name imported-lib "test-set" "fonts.test-array")] (t/is (some? imported-token)) (t/is (= (:type imported-token) (:type original-token))) (t/is (= (:value imported-token) (:value original-token))) (t/is (= (:description imported-token) (:description original-token)))) (let [original-single (ctob/get-token-by-name original-lib "test-set" "fonts.test-single") imported-single (ctob/get-token-by-name imported-lib "test-set" "fonts.test-single")] (t/is (some? imported-single)) (t/is (= (:type imported-single) (:type original-single))) (t/is (= (:value imported-single) (:value original-single)))))))) #?(:clj (t/deftest parse-shadow-tokens (let [json (-> (slurp "test/common_tests/types/data/tokens-shadow-example.json") (json/decode {:key-fn identity})) lib (ctob/parse-decoded-json json "shadow-test")] (t/testing "single shadow token" (let [token (ctob/get-token-by-name lib "shadow-test" "test.shadow-single")] (t/is (some? token)) (t/is (= :shadow (:type token))) (t/is (= [{:offset-x "0", :offset-y "2px", :blur "4px", :spread "0", :color "#000", :inset false}] (:value token))))) (t/testing "multiple shadow token" (let [token (ctob/get-token-by-name lib "shadow-test" "test.shadow-multiple")] (t/is (some? token)) (t/is (= :shadow (:type token))) (t/is (= [{:offset-x "0", :offset-y "2px", :blur "4px", :spread "0", :color "#000", :inset true} {:offset-x "0", :offset-y "8px", :blur "16px", :spread "0", :color "#000", :inset true}] (:value token))))) (t/testing "shadow token with reference" (let [token (ctob/get-token-by-name lib "shadow-test" "test.shadow-ref")] (t/is (some? token)) (t/is (= :shadow (:type token))) (t/is (= "{shadow-single}" (:value token))))) (t/testing "shadow token with type" (let [token (ctob/get-token-by-name lib "shadow-test" "test.shadow-with-type")] (t/is (some? token)) (t/is (= :shadow (:type token))) (t/is (= [{:offset-x "0", :offset-y "4px", :blur "8px", :spread "0", :color "rgba(0,0,0,0.2)", :inset true}] (:value token))))) (t/testing "shadow token with description" (let [token (ctob/get-token-by-name lib "shadow-test" "test.shadow-with-description")] (t/is (some? token)) (t/is (= :shadow (:type token))) (t/is (= "A simple shadow token" (:description token)))))))) #?(:clj (t/deftest export-shadow-tokens (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "shadow-set" :tokens {"shadow.single" (ctob/make-token {:name "shadow.single" :type :shadow :value [{:offset-x "0" :offset-y "2px" :blur "4px" :spread "0" :color "#0000001A"}] :description "A single shadow"}) "shadow.multiple" (ctob/make-token {:name "shadow.multiple" :type :shadow :value [{:offset-x "0" :offset-y "2px" :blur "4px" :spread "0" :color "#0000001A"} {:offset-x "0" :offset-y "8px" :blur "16px" :spread "0" :color "#0000001A"}]}) "shadow.ref" (ctob/make-token {:name "shadow.ref" :type :shadow :value "{shadow.single}"}) "shadow.empty" (ctob/make-token {:name "shadow.empty" :type :shadow :value {}})}))) result (ctob/export-dtcg-json tokens-lib) shadow-set (get result "shadow-set")] (t/testing "single shadow token export" (let [single-token (get-in shadow-set ["shadow" "single"])] (t/is (= "shadow" (get single-token "$type"))) (t/is (= [{"offsetX" "0" "offsetY" "2px" "blur" "4px" "spread" "0" "color" "#0000001A"}] (get single-token "$value"))) (t/is (= "A single shadow" (get single-token "$description"))))) (t/testing "multiple shadow token export" (let [multiple-token (get-in shadow-set ["shadow" "multiple"])] (t/is (= "shadow" (get multiple-token "$type"))) (t/is (= [{"offsetX" "0" "offsetY" "2px" "blur" "4px" "spread" "0" "color" "#0000001A"} {"offsetX" "0" "offsetY" "8px" "blur" "16px" "spread" "0" "color" "#0000001A"}] (get multiple-token "$value"))))) (t/testing "reference shadow token export" (let [ref-token (get-in shadow-set ["shadow" "ref"])] (t/is (= "shadow" (get ref-token "$type"))) (t/is (= "{shadow.single}" (get ref-token "$value"))))) (t/testing "empty shadow token export" (let [empty-token (get-in shadow-set ["shadow" "empty"])] (t/is (= "shadow" (get empty-token "$type"))) (t/is (= {} (get empty-token "$value")))))))) #?(:clj (t/deftest shadow-token-round-trip (let [original-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/make-token-set :name "test-set" :tokens {"shadow.test" (ctob/make-token {:name "shadow.test" :type :shadow :value [{:offset-x "1" :offset-y "1" :blur "1" :spread "1" :color "red" :inset true}] :description "Round trip test"}) "shadow.ref" (ctob/make-token {:name "shadow.ref" :type :shadow :value "{shadow.test}"})}))) exported (ctob/export-dtcg-json original-lib) imported-lib (ctob/parse-decoded-json exported "")] (t/testing "round trip preserves shadow tokens" (let [original-token (ctob/get-token-by-name original-lib "test-set" "shadow.test") imported-token (ctob/get-token-by-name imported-lib "test-set" "shadow.test")] (t/is (some? imported-token)) (t/is (= (:type original-token) (:type imported-token))) (t/is (= (:value original-token) (:value imported-token))) (t/is (= (:description original-token) (:description imported-token)))) (let [original-ref (ctob/get-token-by-name original-lib "test-set" "shadow.ref") imported-ref (ctob/get-token-by-name imported-lib "test-set" "shadow.ref")] (t/is (some? imported-ref)) (t/is (= (:type original-ref) (:type imported-ref))) (t/is (= (:value imported-ref) (:value original-ref)))))))) (t/deftest token-name-path-exists?-test (t/is (true? (ctob/token-name-path-exists? "border-radius" {"border-radius" {"sm" {:name "sm"}}}))) (t/is (true? (ctob/token-name-path-exists? "border-radius" {"border-radius" {:name "sm"}}))) (t/is (true? (ctob/token-name-path-exists? "border-radius.sm" {"border-radius" {:name "sm"}}))) (t/is (true? (ctob/token-name-path-exists? "border-radius.sm.x" {"border-radius" {:name "sm"}}))) (t/is (false? (ctob/token-name-path-exists? "other" {"border-radius" {:name "sm"}}))) (t/is (false? (ctob/token-name-path-exists? "dark.border-radius.md" {"dark" {"border-radius" {"sm" {:name "sm"}}}})))) #?(:clj (t/deftest token-set-encode-decode-roundtrip-with-invalid-set-name (binding [ct/*clock* (ct/tick-millis-clock)] (let [tokens-lib (-> (ctob/make-tokens-lib) (ctob/add-set (ctob/map->token-set {:id (thi/new-id! :test-token-set) :name "foo / bar" :modified-at (ct/now) :description ""})) (ctob/add-token (thi/id :test-token-set) (ctob/make-token :name "test-token-1" :type :boolean :value true))) encoded-tokens-lib (fres/encode tokens-lib) decoded-tokens-lib (fres/decode encoded-tokens-lib)] (let [tset-a (ctob/get-set tokens-lib (thi/id :test-token-set)) tset-b (ctob/get-set decoded-tokens-lib (thi/id :test-token-set))] (t/is (= (ctob/get-name tset-a) "foo / bar")) (t/is (= (ctob/get-name tset-b) "foo/bar")))))))