Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-21 14:12:36 -05:00
Code Issues Activity

Add predicate for all test

Browse source
This commit is contained in:
Florian Schroedl 2024-07-08 11:06:57 +02:00
parent 62ecee2cf8
commit e75f9a7c7f
2 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
frontend/src/app/main/ui/workspace/tokens/token.cljs
View file

@ -59,6 +59,11 @@
acc applied-attrs)))) acc applied-attrs))))
{} shapes)) {} shapes))
(defn group-shapes-by-all-applied-all? [grouped-shapes]
(and (seq (:all grouped-shapes))
(empty? (:other grouped-shapes))
(empty? (:some grouped-shapes))))
(defn token-name->path (defn token-name->path
"Splits token-name into a path vector split by `.` characters. "Splits token-name into a path vector split by `.` characters.

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

@ -34,6 +34,7 @@
(let [shapes [{:applied-tokens {:x 1 :y 1}} (let [shapes [{:applied-tokens {:x 1 :y 1}}
{:applied-tokens {:x 1 :y 1}}] {:applied-tokens {:x 1 :y 1}}]
expected (wtt/group-shapes-by-all-applied {:id 1} shapes #{:x :y})] 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 (= (:all expected) shapes))
(t/is (empty? (:other expected))) (t/is (empty? (:other expected)))
(t/is (empty? (:some expected))))) (t/is (empty? (:some expected)))))