Add failing logic test

frontend/test/token_tests/logic/token_actions_test.cljs

@@ -0,0 +1,72 @@
+(ns token-tests.logic.token-actions-test
+  (:require
+   [app.common.test-helpers.compositions :as ctho]
+   [app.common.test-helpers.files :as cthf]
+   [app.common.test-helpers.ids-map :as cthi]
+   [app.main.ui.workspace.tokens.core :as wtc]
+   [cljs.test :as t :include-macros true]
+   [frontend-tests.helpers.pages :as thp]
+   [frontend-tests.helpers.state :as ths]))
+
+(t/use-fixtures :each
+  {:before thp/reset-idmap!})
+
+(defn- setup-file
+  []
+  (-> (cthf/sample-file :file-1)
+      (ctho/add-rect :file-1 :rect-1 {})
+      (ctho/add-rect :file-1 :rect-2 {})
+      (ctho/add-rect :file-1 :rect-3 {})))
+
+(t/deftest test-update-shape
+  (t/async
+    done
+    (let [;; ==== Setup
+          file     (setup-file)
+          store    (ths/setup-store file)
+
+          ;; ==== Action
+          events [(wtc/on-add-token {:token-type-props {:attributes {:rx :ry}
+                                                        :on-update-shape #(fn [& _])}
+                                     :token {:id (random-uuid)}})]]
+      (ths/run-store
+       store done events
+       (fn [new-state]
+         (let [;; ==== Get
+               shape1' (get-in new-state [:workspace-data
+                                          :pages-index
+                                          (cthi/id :page1)
+                                          :objects
+                                          (cthi/id :shape1)])
+               fills'      (:fills shape1')
+               fill'       (first fills')]
+
+          ;; ==== Check
+           (t/is (some? shape1'))
+           (t/is (= (count fills') 1))
+           (t/is (= (:fill-color fill') "#fabada"))
+           (t/is (= (:fill-opacity fill') 1))))))))
+
+
+
+(comment
+  (defn make-printable
+    "Convert records that are not printable by cider inspect into regular maps."
+    [coll]
+    (letfn [(stringifyable? [x]
+              (not (or (map? x)
+                       (sequential? x)
+                       (keyword? x)
+                       (number? x)
+                       (uuid? x))))]
+      (clojure.walk/postwalk #(cond->> %
+                                (record? %) (into {})
+                                (stringifyable? %) str)
+                             coll)))
+
+  (-> (cthf/sample-file :file-1)
+      (assoc :tokens {})
+      (make-printable))
+
+ (make-printable (setup-file))
+ nil)