mirror of
https://github.com/penpot/penpot.git
synced 2025-02-03 04:49:03 -05:00
25 lines
1.1 KiB
Clojure
25 lines
1.1 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 token-tests.style-dictionary-test
|
|
(:require
|
|
[app.main.ui.workspace.tokens.style-dictionary :as wtsd]
|
|
[cljs.test :as t :include-macros true]))
|
|
|
|
(t/deftest test-find-token-references
|
|
;; Return references
|
|
(t/is (= #{"foo" "bar"} (wtsd/find-token-references "{foo} + {bar}")))
|
|
;; Ignore non reference text
|
|
(t/is (= #{"foo.bar.baz"} (wtsd/find-token-references "{foo.bar.baz} + something")))
|
|
;; No references found
|
|
(t/is (nil? (wtsd/find-token-references "1 + 2")))
|
|
;; Edge-case: Ignore unmatched closing parens
|
|
(t/is (= #{"foo" "bar"} (wtsd/find-token-references "{foo}} + {bar}"))))
|
|
|
|
(t/deftest test-token-self-reference?
|
|
(t/is (some? (wtsd/token-self-reference? "some.value" "{md} + {some.value}")))
|
|
(t/is (nil? (wtsd/token-self-reference? "some.value" "some.value")))
|
|
(t/is (nil? (wtsd/token-self-reference? "sm" "{md} + {lg}"))))
|