mirror of
https://github.com/penpot/penpot.git
synced 2025-05-01 15:36:19 +02:00
72 lines
2.3 KiB
Clojure
72 lines
2.3 KiB
Clojure
(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)
|