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

Add multiple tokens for tests

Browse source
This commit is contained in:
Florian Schroedl 2024-07-03 17:06:08 +02:00
parent a7e735bd81
commit 219d184e6c
1 changed files with 34 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
frontend/test/token_tests/logic/token_actions_test.cljs
View file

@ -6,6 +6,7 @@
[app.main.data.workspace.changes :as dch] [app.main.data.workspace.changes :as dch]
[app.main.ui.workspace.tokens.core :as wtc] [app.main.ui.workspace.tokens.core :as wtc]
[beicon.v2.core :as rx] [beicon.v2.core :as rx]
[token-tests.helpers.state :as tohs]
[cljs.test :as t :include-macros true] [cljs.test :as t :include-macros true]
[frontend-tests.helpers.pages :as thp] [frontend-tests.helpers.pages :as thp]
[frontend-tests.helpers.state :as ths] [frontend-tests.helpers.state :as ths]
@ -15,18 +16,30 @@
{:before thp/reset-idmap!}) {:before thp/reset-idmap!})
(def radius-token
{:id #uuid "91bf7f1f-fce2-482f-a423-c6b502705ff1"
:value "12"
:name "sm"
:type :border-radius})
(def radius-ref-token
{:id #uuid "4c2bf84d-3a98-47a2-8e3c-e7fb037a615c"
:value "{sm} * 2"
:name "md"
:type :border-radius})
(def test-tokens
{(:id radius-token) radius-token
(:id radius-ref-token) radius-ref-token})
(defn- setup-file (defn- setup-file
[] []
(let [token-id (random-uuid)]
(-> (cthf/sample-file :file-1 :page-label :page-1) (-> (cthf/sample-file :file-1 :page-label :page-1)
(ctho/add-rect :rect-1 {}) (ctho/add-rect :rect-1 {})
(ctho/add-rect :rect-2 {}) (ctho/add-rect :rect-2 {})
(ctho/add-rect :rect-3 {}) (ctho/add-rect :rect-3 {})
(assoc-in [:data :tokens] {#uuid "91bf7f1f-fce2-482f-a423-c6b502705ff1" (assoc-in [:data :tokens] test-tokens)))
{:id #uuid "91bf7f1f-fce2-482f-a423-c6b502705ff1"
:value "12"
:name "sm"
:type :border-radius}}))))
(t/deftest test-apply-token (t/deftest test-apply-token
(t/async (t/async
@ -36,23 +49,23 @@
rect-1 (cths/get-shape file :rect-1) rect-1 (cths/get-shape file :rect-1)
events [(wtc/apply-token {:shape-ids [(:id rect-1)] events [(wtc/apply-token {:shape-ids [(:id rect-1)]
:attributes #{:rx :ry} :attributes #{:rx :ry}
:token {:id #uuid "91bf7f1f-fce2-482f-a423-c6b502705ff1"} :token radius-token
:on-update-shape wtc/update-shape-radius})
;; Will override
(wtc/apply-token {:shape-ids [(:id rect-1)]
:attributes #{:rx :ry}
:token radius-ref-token
:on-update-shape wtc/update-shape-radius})]] :on-update-shape wtc/update-shape-radius})]]
(tohs/run-store-async
(ths/run-store
store done events store done events
(fn [new-state] (fn [new-state]
(let [file' (ths/get-file-from-store new-state) (let [file' (ths/get-file-from-store new-state)
rect-1' (cths/get-shape file' :rect-1)] rect-1' (cths/get-shape file' :rect-1)]
(t/is (some? (:applied-tokens rect-1'))) (t/is (some? (:applied-tokens rect-1')))
(t/is (= (:rx (:applied-tokens rect-1')) #uuid "91bf7f1f-fce2-482f-a423-c6b502705ff1")) (t/is (= (:rx (:applied-tokens rect-1')) (:id radius-ref-token)))
(t/is (= (:rx rect-1') 12)))) (t/is (= (:ry (:applied-tokens rect-1')) (:id radius-ref-token)))
(t/is (= (:rx rect-1') 24))
(fn [stream] (t/is (= (:ry rect-1') 24))))))))
(->> stream
;; (rx/tap #(prn (ptk/type %)))
(rx/filter #(ptk/type? :app.main.data.workspace.changes/send-update-indices %))))))))
(comment (comment
(t/run-tests) (t/run-tests)