🎉 Merge tokens-studio

2025-08-03 18:28:24 +02:00 · 2024-10-31 15:57:35 +01:00 · 2024-10-31 15:57:35 +01:00 · b82679deaf
commit b82679deaf
parent 0cd446421d
85 changed files with 10581 additions and 168 deletions
--- a/frontend/test/frontend_tests/tokens/style_dictionary_test.cljs
+++ b/frontend/test/frontend_tests/tokens/style_dictionary_test.cljs
@ -0,0 +1,115 @@
+(ns frontend-tests.tokens.style-dictionary-test
+  (:require
+   [app.common.transit :as tr]
+   [app.common.types.tokens-lib :as ctob]
+   [app.main.ui.workspace.tokens.style-dictionary :as sd]
+   [beicon.v2.core :as rx]
+   [cljs.test :as t :include-macros true]
+   [promesa.core :as p]))
+
+(t/deftest resolve-tokens-test
+  (t/async
+    done
+    (t/testing "resolves tokens using style-dictionary from a ids map"
+      (let [tokens (-> (ctob/make-tokens-lib)
+                       (ctob/add-set (ctob/make-token-set :name "core"))
+                       (ctob/add-token-in-set "core" (ctob/make-token {:name "borderRadius.sm"
+                                                                       :value "12px"
+                                                                       :type :border-radius}))
+                       (ctob/add-token-in-set "core" (ctob/make-token {:value "{borderRadius.sm} * 2"
+                                                                       :name "borderRadius.md-with-dashes"
+                                                                       :type :border-radius}))
+                       (ctob/get-all-tokens))]
+        (-> (sd/resolve-tokens+ tokens)
+            (p/finally
+              (fn [resolved-tokens]
+                (t/is (= 12 (get-in resolved-tokens ["borderRadius.sm" :resolved-value])))
+                (t/is (= "px" (get-in resolved-tokens ["borderRadius.sm" :unit])))
+                (t/is (= 24 (get-in resolved-tokens ["borderRadius.md-with-dashes" :resolved-value])))
+                (t/is (= "px" (get-in resolved-tokens ["borderRadius.md-with-dashes" :unit])))
+                (done))))))))
+
+(t/deftest process-json-stream-test
+  (t/async
+    done
+    (t/testing "processes empty json string"
+      (let [json (-> {"core" {"color" {"$value" "red"
+                                       "$type" "color"}}}
+                     (tr/encode-str {:type :json-verbose}))]
+        (->> (rx/of json)
+             (sd/process-json-stream)
+             (rx/subs! (fn [tokens-lib]
+                         (t/is (instance? ctob/TokensLib tokens-lib))
+                         (t/is (= "red" (-> (ctob/get-set tokens-lib "core")
+                                            (ctob/get-token "color")
+                                            (:value))))
+                         (done))))))))
+
+(t/deftest reference-errros-test
+  (t/testing "Extracts reference errors from StyleDictionary errors"
+    ;; Using unicode for the white-space after "Error: " as some editors might remove it and its more visible
+    (t/is (=
+           ["Some token references (2) could not be found."
+            ""
+            "foo.value tries to reference missing, which is not defined."
+            "color.value tries to reference missing, which is not defined."]
+           (sd/reference-errors "Error:\u0020
+Reference Errors:
+Some token references (2) could not be found.
+
+foo.value tries to reference missing, which is not defined.
+color.value tries to reference missing, which is not defined.")))
+    (t/is (nil? (sd/reference-errors nil)))
+    (t/is (nil? (sd/reference-errors "none")))))
+
+(t/deftest process-empty-json-stream-test
+  (t/async
+    done
+    (t/testing "processes empty json string"
+      (->> (rx/of "{}")
+           (sd/process-json-stream)
+           (rx/subs! (fn [tokens-lib]
+                       (t/is (instance? ctob/TokensLib tokens-lib))
+                       (done)))))))
+
+(t/deftest process-invalid-json-stream-test
+  (t/async
+    done
+    (t/testing "fails on invalid json"
+      (->> (rx/of "{,}")
+           (sd/process-json-stream)
+           (rx/subs!
+            (fn []
+              (throw (js/Error. "Should be an error")))
+            (fn [err]
+              (t/is (= :error.import/json-parse-error (:error/code (ex-data err))))
+              (done)))))))
+
+(t/deftest process-non-token-json-stream-test
+  (t/async
+    done
+    (t/testing "fails on non-token json"
+      (->> (rx/of "{\"foo\": \"bar\"}")
+           (sd/process-json-stream)
+           (rx/subs!
+            (fn []
+              (throw (js/Error. "Should be an error")))
+            (fn [err]
+              (t/is (= :error.import/invalid-json-data (:error/code (ex-data err))))
+              (done)))))))
+
+(t/deftest process-missing-references-json-test
+  (t/async
+    done
+    (t/testing "fails on missing references in tokens"
+      (let [json (-> {"core" {"color" {"$value" "{missing}"
+                                       "$type" "color"}}}
+                     (tr/encode-str {:type :json-verbose}))]
+        (->> (rx/of json)
+             (sd/process-json-stream)
+             (rx/subs!
+              (fn []
+                (throw (js/Error. "Should be an error")))
+              (fn [err]
+                (t/is (= :error.import/style-dictionary-reference-errors (:error/code (ex-data err))))
+                (done))))))))