mirror of
https://github.com/penpot/penpot.git
synced 2026-02-12 14:42:56 +00:00
2ad42cfd9b
* 🎉 Add ability to remap tokens when renamed ones are referenced by other child tokens Signed-off-by: Akshay Gupta <gravity.akshay@gmail.com> * 🐛 Fix remap skipping tokens with same name in different sets * 📚 Update CHANGES.md * 🔧 Fix css styles --------- Signed-off-by: Akshay Gupta <gravity.akshay@gmail.com> Co-authored-by: Akshay Gupta <gravity.akshay@gmail.com>
52 lines
1.6 KiB
Clojure
52 lines
1.6 KiB
Clojure
(ns frontend-tests.test-helpers-shapes
|
|
(:require
|
|
[app.common.data :as d]
|
|
[app.common.geom.point :as gpt]
|
|
[app.common.types.color :as clr]
|
|
[app.main.data.workspace.libraries :as dwl]
|
|
[beicon.v2.core :as rx]
|
|
[cljs.pprint :refer [pprint]]
|
|
[cljs.test :as t :include-macros true]
|
|
[clojure.stacktrace :as stk]
|
|
[frontend-tests.helpers.events :as the]
|
|
[frontend-tests.helpers.libraries :as thl]
|
|
[frontend-tests.helpers.pages :as thp]
|
|
[linked.core :as lks]
|
|
[potok.v2.core :as ptk]))
|
|
|
|
(t/use-fixtures :each
|
|
{:before thp/reset-idmap!})
|
|
|
|
(t/deftest test-create-page
|
|
(t/testing "create page"
|
|
(let [state (-> thp/initial-state
|
|
(thp/sample-page))
|
|
page (thp/current-page state)]
|
|
(t/is (= (:name page) "page1")))))
|
|
|
|
(t/deftest test-create-shape
|
|
(t/testing "create shape"
|
|
(let [state (-> thp/initial-state
|
|
(thp/sample-page)
|
|
(thp/sample-shape :shape1 :rect
|
|
{:name "Rect 1"}))
|
|
shape (thp/get-shape state :shape1)]
|
|
(t/is (= (:name shape) "Rect 1")))))
|
|
|
|
(t/deftest asynctest
|
|
(t/testing "asynctest"
|
|
(t/async done
|
|
(let [state {}
|
|
color {:color clr/white}
|
|
|
|
store (the/prepare-store state done
|
|
(fn [new-state]
|
|
(let [colors (:recent-colors new-state)]
|
|
(t/is (= colors [color])))))]
|
|
|
|
(ptk/emit!
|
|
store
|
|
(dwl/add-recent-color color)
|
|
:the/end)))))
|
|
|