Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-21 06:02:32 -05:00
Code Issues Activity

Add future test cases for providing a toggle all/attributes

Browse source
This commit is contained in:
Florian Schroedl 2024-07-05 14:44:57 +02:00
parent 5a358e3d0c
commit 3c67872d3c
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
frontend/test/token_tests/token_test.cljs
View file

@ -25,6 +25,29 @@
(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}))))
(comment
(let [test-fn (fn [& args])]
(t/deftest token-context-menu
(let [shapes [{:applied-tokens {:x :a
:y :a}}
{:applied-tokens {:x :a
:y :a}}]]
(t/is (= :all (test-fn {:id :a} shapes #{:x :y}))))
(let [shapes [{:applied-tokens {:x :a
:y :_}}
{:applied-tokens {:x :_
:y :a}}]]
(t/is (= #{:x :y} (test-fn {:id :a} shapes #{:x :y}))))
(let [shapes [{:applied-tokens {:x :a
:y :_}}
{:applied-tokens {:x :a
:y :_}}]]
(t/is (= #{:x} (test-fn {:id :a} shapes #{:x})))))))
(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}}