From 4a06cc04d82d1f826b59d8bf2f39168e219f3f7d Mon Sep 17 00:00:00 2001
From: Florian Schroedl <flo.schroedl@gmail.com>
Date: Tue, 3 Dec 2024 17:42:40 +0100
Subject: [PATCH] =?UTF-8?q?=E2=9C=A8=20Add=20test=20for=20applying=20color?=
 =?UTF-8?q?s?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../tokens/logic/token_actions_test.cljs      | 32 +++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/frontend/test/frontend_tests/tokens/logic/token_actions_test.cljs b/frontend/test/frontend_tests/tokens/logic/token_actions_test.cljs
index 0df429b6e..2f861a503 100644
--- a/frontend/test/frontend_tests/tokens/logic/token_actions_test.cljs
+++ b/frontend/test/frontend_tests/tokens/logic/token_actions_test.cljs
@@ -129,6 +129,38 @@
              (t/testing "while :r4 was kept with borderRadius.sm"
                (t/is (= (:r4 (:applied-tokens rect-1')) (:name token-sm)))))))))))
 
+(t/deftest test-apply-color
+  (t/testing "applies color token and updates the shape fill and stroke-color"
+    (t/async
+     done
+     (let [color-token {:name "color.primary"
+                        :value "red"
+                        :type :color}
+           file (-> (setup-file-with-tokens)
+                    (update-in [:data :tokens-lib]
+                               #(ctob/add-token-in-set % "Set A" (ctob/make-token color-token))))
+           store (ths/setup-store file)
+           rect-1 (cths/get-shape file :rect-1)
+           events [(wtch/apply-token {:shape-ids [(:id rect-1)]
+                                      :attributes #{:color}
+                                      :token (toht/get-token file "color.primary")
+                                      :on-update-shape wtch/update-fill})
+                   (wtch/apply-token {:shape-ids [(:id rect-1)]
+                                      :attributes #{:stroke-color}
+                                      :token (toht/get-token file "color.primary")
+                                      :on-update-shape wtch/update-stroke-color})]]
+       (tohs/run-store-async
+        store done events
+        (fn [new-state]
+          (let [file' (ths/get-file-from-store new-state)
+                token-target' (toht/get-token file' "rotation.medium")
+                rect-1' (cths/get-shape file' :rect-1)]
+            (t/is (some? (:applied-tokens rect-1')))
+            (t/is (= (:fill (:applied-tokens rect-1')) (:name token-target')))
+            (t/is (= (get-in rect-1' [:fills 0 :fill-color]) "#ff0000"))
+            (t/is (= (:stroke (:applied-tokens rect-1')) (:name token-target')))
+            (t/is (= (get-in rect-1' [:strokes 0 :stroke-color]) "#ff0000")))))))))
+
 (t/deftest test-apply-dimensions
   (t/testing "applies dimensions token and updates the shapes width and height"
     (t/async