mirror of
https://github.com/penpot/penpot.git
synced 2025-01-23 23:18:48 -05:00
206 lines
7.7 KiB
Clojure
206 lines
7.7 KiB
Clojure
(ns app.test-library-sync
|
|
(:require [cljs.test :as t :include-macros true]
|
|
[cljs.pprint :refer [pprint]]
|
|
[beicon.core :as rx]
|
|
[linked.core :as lks]
|
|
[app.test-helpers.events :as the]
|
|
[app.test-helpers.pages :as thp]
|
|
[app.test-helpers.libraries :as thl]
|
|
[app.common.data :as d]
|
|
[app.common.pages.helpers :as cph]
|
|
[app.main.data.workspace :as dw]
|
|
[app.main.data.workspace.libraries :as dwl]
|
|
[app.main.data.workspace.libraries-helpers :as dwlh]))
|
|
|
|
(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 synctest
|
|
(t/testing "synctest"
|
|
(let [state {:workspace-local {:color-for-rename "something"}}
|
|
new-state (->> state
|
|
(the/do-update
|
|
dwl/clear-color-for-rename))]
|
|
(t/is (= (get-in new-state [:workspace-local :color-for-rename])
|
|
nil)))))
|
|
|
|
(t/deftest asynctest
|
|
(t/testing "asynctest"
|
|
(t/async done
|
|
(let [state {}
|
|
color {:color "#ffffff"}]
|
|
(->> state
|
|
(the/do-watch-update
|
|
(dwl/add-recent-color color))
|
|
(rx/map
|
|
(fn [new-state]
|
|
(t/is (= (get-in new-state [:workspace-file
|
|
:data
|
|
:recent-colors])
|
|
[color]))
|
|
(t/is (= (get-in new-state [:workspace-data
|
|
:recent-colors])
|
|
[color]))))
|
|
(rx/subs done))))))
|
|
|
|
(t/deftest test-add-component-from-single-shape
|
|
(t/testing "Add a component from a single shape"
|
|
(t/async done
|
|
(let [state (-> thp/initial-state
|
|
(thp/sample-page)
|
|
(thp/sample-shape :shape1 :rect
|
|
{:name "Rect 1"}))]
|
|
|
|
(->> state
|
|
(the/do-update (dw/select-shape (thp/id :shape1)))
|
|
(the/do-watch-update dwl/add-component)
|
|
(rx/map
|
|
(fn [new-state]
|
|
(let [shape1 (thp/get-shape new-state :shape1)
|
|
|
|
[[group shape1] [c-group c-shape1] component]
|
|
(thl/resolve-instance-and-master
|
|
new-state
|
|
(:parent-id shape1))
|
|
|
|
file (dwlh/get-local-file new-state)]
|
|
|
|
(t/is (= (:name shape1) "Rect 1"))
|
|
(t/is (= (:name group) "Component-1"))
|
|
(t/is (= (:name component) "Component-1"))
|
|
(t/is (= (:name c-shape1) "Rect 1"))
|
|
(t/is (= (:name c-group) "Component-1"))
|
|
|
|
(thl/is-from-file group file))))
|
|
|
|
(rx/subs done))))))
|
|
|
|
(t/deftest test-add-component-from-several-shapes
|
|
(t/testing "Add a component from several shapes"
|
|
(t/async done
|
|
(let [state (-> thp/initial-state
|
|
(thp/sample-page)
|
|
(thp/sample-shape :shape1 :rect
|
|
{:name "Rect 1"})
|
|
(thp/sample-shape :shape2 :rect
|
|
{:name "Rect 2"}))]
|
|
|
|
(->> state
|
|
(the/do-update (dw/select-shapes (lks/set
|
|
(thp/id :shape1)
|
|
(thp/id :shape2))))
|
|
(the/do-watch-update dwl/add-component)
|
|
(rx/map
|
|
(fn [new-state]
|
|
(let [shape1 (thp/get-shape new-state :shape1)
|
|
|
|
[[group shape1 shape2]
|
|
[c-group c-shape1 c-shape2]
|
|
component]
|
|
(thl/resolve-instance-and-master
|
|
new-state
|
|
(:parent-id shape1))
|
|
|
|
file (dwlh/get-local-file new-state)]
|
|
|
|
;; NOTE: the group name depends on having executed
|
|
;; the previous test.
|
|
(t/is (= (:name group) "Component-2"))
|
|
(t/is (= (:name shape1) "Rect 1"))
|
|
(t/is (= (:name shape2) "Rect 2"))
|
|
(t/is (= (:name component) "Component-2"))
|
|
(t/is (= (:name c-group) "Component-2"))
|
|
(t/is (= (:name c-shape1) "Rect 1"))
|
|
(t/is (= (:name c-shape2) "Rect 2"))
|
|
|
|
(thl/is-from-file group file))))
|
|
|
|
(rx/subs done))))))
|
|
|
|
(t/deftest test-add-component-from-group
|
|
(t/testing "Add a component from a group"
|
|
(t/async done
|
|
(let [
|
|
state (-> thp/initial-state
|
|
(thp/sample-page)
|
|
(thp/sample-shape :shape1 :rect
|
|
{:name "Rect 1"})
|
|
(thp/sample-shape :shape2 :rect
|
|
{:name "Rect 2"})
|
|
(thp/group-shapes :group1
|
|
[(thp/id :shape1)
|
|
(thp/id :shape2)]))]
|
|
|
|
(->> state
|
|
(the/do-update (dw/select-shape (thp/id :group1)))
|
|
(the/do-watch-update dwl/add-component)
|
|
(rx/map
|
|
(fn [new-state]
|
|
(let [[[group shape1 shape2]
|
|
[c-group c-shape1 c-shape2]
|
|
component]
|
|
(thl/resolve-instance-and-master
|
|
new-state
|
|
(thp/id :group1))
|
|
|
|
file (dwlh/get-local-file new-state)]
|
|
|
|
(t/is (= (:name shape1) "Rect 1"))
|
|
(t/is (= (:name shape2) "Rect 2"))
|
|
(t/is (= (:name group) "Group-3"))
|
|
(t/is (= (:name component) "Group-3"))
|
|
(t/is (= (:name c-shape1) "Rect 1"))
|
|
(t/is (= (:name c-shape2) "Rect 2"))
|
|
(t/is (= (:name c-group) "Group-3"))
|
|
|
|
(thl/is-from-file group file))))
|
|
|
|
(rx/subs done))))))
|
|
|
|
(t/deftest test-rename-component
|
|
(t/testing "Rename a component"
|
|
(t/async done
|
|
(let [
|
|
state (-> thp/initial-state
|
|
(thp/sample-page)
|
|
(thp/sample-shape :shape1 :rect
|
|
{:name "Rect 1"})
|
|
(thp/make-component :instance1
|
|
[(thp/id :shape1)]))
|
|
|
|
instance1 (thp/get-shape state :instance1)]
|
|
|
|
(->> state
|
|
(the/do-watch-update (dwl/rename-component
|
|
(:component-id instance1)
|
|
"Renamed component"))
|
|
(rx/map
|
|
(fn [new-state]
|
|
(let [file (dwlh/get-local-file new-state)
|
|
component (cph/get-component
|
|
(:component-id instance1)
|
|
(:component-file instance1)
|
|
file
|
|
{})]
|
|
|
|
(t/is (= (:name component)
|
|
"Renamed component")))))
|
|
|
|
(rx/subs done))))))
|
|
|