mirror of
https://github.com/penpot/penpot.git
synced 2025-07-16 05:55:13 +02:00
✨ Improve test workflow
This commit is contained in:
alonso.torres
parent
5ec73da17f
commit
f32f13069f
3 changed files with 1004 additions and 307 deletions
|
|
@ -12,7 +12,15 @@
|
||||||
"defaults"
|
"defaults"
|
||||||
],
|
],
|
||||||
"scripts": {
|
"scripts": {
|
||||||
"validate-translations": "node ./scripts/validate-translations.js"
|
"validate-translations": "node ./scripts/validate-translations.js",
|
||||||
|
"watch-main": "shadow-cljs watch main",
|
||||||
|
"watch-gulp": "gulp watch",
|
||||||
|
"test-watch-compile": "shadow-cljs watch test",
|
||||||
|
"test-run": "node target/tests.js",
|
||||||
|
"test-watch-run": "nodemon --signal SIGKILL --watch target --exec npm run test-run",
|
||||||
|
"test-watch": "npm-run-all --parallel test-watch-compile test-watch-run",
|
||||||
|
"test": "npm run test-watch",
|
||||||
|
"start": "npm-run-all --parallel watch-gulp watch-main"
|
||||||
},
|
},
|
||||||
"devDependencies": {
|
"devDependencies": {
|
||||||
"autoprefixer": "^10.2.4",
|
"autoprefixer": "^10.2.4",
|
||||||
|
|
@ -29,6 +37,8 @@
|
||||||
"map-stream": "0.0.7",
|
"map-stream": "0.0.7",
|
||||||
"marked": "^3.0.4",
|
"marked": "^3.0.4",
|
||||||
"mkdirp": "^1.0.4",
|
"mkdirp": "^1.0.4",
|
||||||
|
"nodemon": "^2.0.13",
|
||||||
|
"npm-run-all": "^4.1.5",
|
||||||
"postcss": "^8.3.5",
|
"postcss": "^8.3.5",
|
||||||
"postcss-clean": "^1.2.2",
|
"postcss-clean": "^1.2.2",
|
||||||
"rimraf": "^3.0.0",
|
"rimraf": "^3.0.0",
|
||||||
|
|
|
||||||
|
|
@ -19,356 +19,338 @@
|
||||||
(t/use-fixtures :each
|
(t/use-fixtures :each
|
||||||
{:before thp/reset-idmap!})
|
{:before thp/reset-idmap!})
|
||||||
|
|
||||||
(t/deftest test-add-component-from-single-shape
|
;; Test using potok
|
||||||
(t/async done
|
#_(t/deftest test-add-component-from-single-shape
|
||||||
(try
|
(t/testing "test-add-component-from-single-shape"
|
||||||
(let [state (-> thp/initial-state
|
(t/async
|
||||||
(thp/sample-page)
|
done
|
||||||
(thp/sample-shape :shape1 :rect
|
(let [state (-> thp/initial-state
|
||||||
{:name "Rect 1"}))]
|
(thp/sample-page)
|
||||||
|
(thp/sample-shape :shape1 :rect
|
||||||
|
{:name "Rect 1"}))
|
||||||
|
store (ptk/store {:state state})
|
||||||
|
stream (ptk/input-stream store)
|
||||||
|
end? (->> stream (rx/filter #(= ::end %)))]
|
||||||
|
|
||||||
(->> state
|
(->> stream
|
||||||
(the/do-update (dw/select-shape (thp/id :shape1)))
|
(rx/take-until end?)
|
||||||
(the/do-watch-update dwl/add-component)
|
(rx/last)
|
||||||
(rx/do
|
(rx/do
|
||||||
(fn [new-state]
|
(fn []
|
||||||
(let [shape1 (thp/get-shape new-state :shape1)
|
(let [new-state @store
|
||||||
|
shape1 (thp/get-shape new-state :shape1)
|
||||||
|
|
||||||
[[group shape1] [c-group c-shape1] component]
|
[[group shape1] [c-group c-shape1] component]
|
||||||
(thl/resolve-instance-and-main
|
(thl/resolve-instance-and-main
|
||||||
new-state
|
new-state
|
||||||
(:parent-id shape1))
|
(:parent-id shape1))
|
||||||
|
|
||||||
file (dwlh/get-local-file new-state)]
|
file (dwlh/get-local-file new-state)]
|
||||||
|
|
||||||
(t/is (= (:name shape1) "Rect 1"))
|
(t/is (= (:name shape1) "Rect 1"))
|
||||||
(t/is (= (:name group) "Component-1"))
|
(t/is (= (:name group) "Component-1"))
|
||||||
(t/is (= (:name component) "Component-1"))
|
(t/is (= (:name component) "Component-1"))
|
||||||
(t/is (= (:name c-shape1) "Rect 1"))
|
(t/is (= (:name c-shape1) "Rect 1"))
|
||||||
(t/is (= (:name c-group) "Component-1"))
|
(t/is (= (:name c-group) "Component-1"))
|
||||||
|
|
||||||
(thl/is-from-file group file))))
|
(thl/is-from-file group file))))
|
||||||
|
|
||||||
(rx/subs
|
(rx/subs done #(throw %)))
|
||||||
done
|
|
||||||
#(do
|
|
||||||
(println (.-stack %))
|
|
||||||
(done)))))
|
|
||||||
|
|
||||||
(catch :default e
|
(ptk/emit!
|
||||||
(println (.-stack e))
|
store
|
||||||
(done)))))
|
(dw/select-shape (thp/id :shape1))
|
||||||
|
(dwl/add-component)
|
||||||
|
::end)))))
|
||||||
|
|
||||||
(t/deftest test-add-component-from-several-shapes
|
;; FAILING
|
||||||
(t/async done
|
#_(t/deftest test-add-component-from-single-shape
|
||||||
(try
|
(t/async
|
||||||
(let [state (-> thp/initial-state
|
done
|
||||||
(thp/sample-page)
|
(let [state (-> thp/initial-state
|
||||||
(thp/sample-shape :shape1 :rect
|
(thp/sample-page)
|
||||||
{:name "Rect 1"})
|
(thp/sample-shape :shape1 :rect
|
||||||
(thp/sample-shape :shape2 :rect
|
{:name "Rect 1"}))]
|
||||||
{:name "Rect 2"}))]
|
|
||||||
|
|
||||||
(->> state
|
(->> state
|
||||||
(the/do-update (dw/select-shapes (lks/set
|
(the/do-update (dw/select-shape (thp/id :shape1)))
|
||||||
(thp/id :shape1)
|
(the/do-watch-update dwl/add-component)
|
||||||
(thp/id :shape2))))
|
(rx/do
|
||||||
(the/do-watch-update dwl/add-component)
|
(fn [new-state]
|
||||||
(rx/do
|
(let [shape1 (thp/get-shape new-state :shape1)
|
||||||
(fn [new-state]
|
|
||||||
(let [shape1 (thp/get-shape new-state :shape1)
|
|
||||||
|
|
||||||
[[group shape1 shape2]
|
[[group shape1] [c-group c-shape1] component]
|
||||||
[c-group c-shape1 c-shape2]
|
(thl/resolve-instance-and-main
|
||||||
component]
|
new-state
|
||||||
(thl/resolve-instance-and-main
|
(:parent-id shape1))
|
||||||
new-state
|
|
||||||
(:parent-id shape1))
|
|
||||||
|
|
||||||
file (dwlh/get-local-file new-state)]
|
file (dwlh/get-local-file new-state)]
|
||||||
|
|
||||||
;; NOTE: the group name depends on having executed
|
(t/is (= (:name shape1) "Rect 1"))
|
||||||
;; the previous test.
|
(t/is (= (:name group) "Component-1"))
|
||||||
(t/is (= (:name group) "Component-1"))
|
(t/is (= (:name component) "Component-1"))
|
||||||
(t/is (= (:name shape1) "Rect 1"))
|
(t/is (= (:name c-shape1) "Rect 1"))
|
||||||
(t/is (= (:name shape2) "Rect 2"))
|
(t/is (= (:name c-group) "Component-1"))
|
||||||
(t/is (= (:name component) "Component-1"))
|
|
||||||
(t/is (= (:name c-group) "Component-1"))
|
|
||||||
(t/is (= (:name c-shape1) "Rect 1"))
|
|
||||||
(t/is (= (:name c-shape2) "Rect 2"))
|
|
||||||
|
|
||||||
(thl/is-from-file group file))))
|
(thl/is-from-file group file))))
|
||||||
|
|
||||||
(rx/subs
|
(rx/subs done #(throw %))))))
|
||||||
done
|
|
||||||
#(do
|
|
||||||
(println (.-stack %))
|
|
||||||
(done)))))
|
|
||||||
|
|
||||||
(catch :default e
|
;; FAILING
|
||||||
(println (.-stack e))
|
#_(t/deftest test-add-component-from-several-shapes
|
||||||
(done)))))
|
(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/do
|
||||||
|
(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-main
|
||||||
|
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-1"))
|
||||||
|
(t/is (= (:name shape1) "Rect 1"))
|
||||||
|
(t/is (= (:name shape2) "Rect 2"))
|
||||||
|
(t/is (= (:name component) "Component-1"))
|
||||||
|
(t/is (= (:name c-group) "Component-1"))
|
||||||
|
(t/is (= (:name c-shape1) "Rect 1"))
|
||||||
|
(t/is (= (:name c-shape2) "Rect 2"))
|
||||||
|
|
||||||
|
(thl/is-from-file group file))))
|
||||||
|
|
||||||
|
(rx/subs done #(throw %))))))
|
||||||
|
|
||||||
|
|
||||||
(t/deftest test-add-component-from-group
|
#_(t/deftest test-add-component-from-group
|
||||||
(t/async done
|
(t/async
|
||||||
(try
|
done
|
||||||
(let [state (-> thp/initial-state
|
(let [state (-> thp/initial-state
|
||||||
(thp/sample-page)
|
(thp/sample-page)
|
||||||
(thp/sample-shape :shape1 :rect
|
(thp/sample-shape :shape1 :rect
|
||||||
{:name "Rect 1"})
|
{:name "Rect 1"})
|
||||||
(thp/sample-shape :shape2 :rect
|
(thp/sample-shape :shape2 :rect
|
||||||
{:name "Rect 2"})
|
{:name "Rect 2"})
|
||||||
(thp/group-shapes :group1
|
(thp/group-shapes :group1
|
||||||
[(thp/id :shape1)
|
[(thp/id :shape1)
|
||||||
(thp/id :shape2)]))]
|
(thp/id :shape2)]))]
|
||||||
|
|
||||||
(->> state
|
(->> state
|
||||||
(the/do-update (dw/select-shape (thp/id :group1)))
|
(the/do-update (dw/select-shape (thp/id :group1)))
|
||||||
(the/do-watch-update dwl/add-component)
|
(the/do-watch-update dwl/add-component)
|
||||||
(rx/do
|
(rx/do
|
||||||
(fn [new-state]
|
(fn [new-state]
|
||||||
(let [[[group shape1 shape2]
|
(let [[[group shape1 shape2]
|
||||||
[c-group c-shape1 c-shape2]
|
[c-group c-shape1 c-shape2]
|
||||||
component]
|
component]
|
||||||
(thl/resolve-instance-and-main
|
(thl/resolve-instance-and-main
|
||||||
new-state
|
new-state
|
||||||
(thp/id :group1))
|
(thp/id :group1))
|
||||||
|
|
||||||
file (dwlh/get-local-file new-state)]
|
file (dwlh/get-local-file new-state)]
|
||||||
|
|
||||||
(t/is (= (:name shape1) "Rect 1"))
|
(t/is (= (:name shape1) "Rect 1"))
|
||||||
(t/is (= (:name shape2) "Rect 2"))
|
(t/is (= (:name shape2) "Rect 2"))
|
||||||
(t/is (= (:name group) "Group-1"))
|
(t/is (= (:name group) "Group-1"))
|
||||||
(t/is (= (:name component) "Group-1"))
|
(t/is (= (:name component) "Group-1"))
|
||||||
(t/is (= (:name c-shape1) "Rect 1"))
|
(t/is (= (:name c-shape1) "Rect 1"))
|
||||||
(t/is (= (:name c-shape2) "Rect 2"))
|
(t/is (= (:name c-shape2) "Rect 2"))
|
||||||
(t/is (= (:name c-group) "Group-1"))
|
(t/is (= (:name c-group) "Group-1"))
|
||||||
|
|
||||||
(thl/is-from-file group file))))
|
(thl/is-from-file group file))))
|
||||||
|
|
||||||
(rx/subs
|
(rx/subs done #(throw %))))))
|
||||||
done
|
|
||||||
#(do
|
|
||||||
(println (.-stack %))
|
|
||||||
(done)))))
|
|
||||||
|
|
||||||
(catch :default e
|
|
||||||
(println (.-stack e))
|
|
||||||
(done)))))
|
|
||||||
|
|
||||||
(t/deftest test-rename-component
|
(t/deftest test-rename-component
|
||||||
(t/async done
|
(t/async
|
||||||
(try
|
done
|
||||||
(let [state (-> thp/initial-state
|
(let [state (-> thp/initial-state
|
||||||
(thp/sample-page)
|
(thp/sample-page)
|
||||||
(thp/sample-shape :shape1 :rect
|
(thp/sample-shape :shape1 :rect
|
||||||
{:name "Rect 1"})
|
{:name "Rect 1"})
|
||||||
(thp/make-component :instance1
|
(thp/make-component :instance1
|
||||||
[(thp/id :shape1)]))
|
[(thp/id :shape1)]))
|
||||||
|
|
||||||
instance1 (thp/get-shape state :instance1)]
|
instance1 (thp/get-shape state :instance1)]
|
||||||
|
|
||||||
(->> state
|
(->> state
|
||||||
(the/do-watch-update (dwl/rename-component
|
(the/do-watch-update (dwl/rename-component
|
||||||
(:component-id instance1)
|
(:component-id instance1)
|
||||||
"Renamed component"))
|
"Renamed component"))
|
||||||
(rx/do
|
(rx/do
|
||||||
(fn [new-state]
|
(fn [new-state]
|
||||||
(let [file (dwlh/get-local-file new-state)
|
(let [file (dwlh/get-local-file new-state)
|
||||||
component (cph/get-component
|
component (cph/get-component
|
||||||
(:component-id instance1)
|
(:component-id instance1)
|
||||||
(:component-file instance1)
|
(:component-file instance1)
|
||||||
file
|
file
|
||||||
{})]
|
{})]
|
||||||
|
|
||||||
(t/is (= (:name component)
|
(t/is (= (:name component)
|
||||||
"Renamed component")))))
|
"Renamed component")))))
|
||||||
|
|
||||||
(rx/subs
|
(rx/subs done #(throw %))))))
|
||||||
done
|
|
||||||
#(do
|
|
||||||
(println (.-stack %))
|
|
||||||
(done)))))
|
|
||||||
|
|
||||||
(catch :default e
|
|
||||||
(println (.-stack e))
|
|
||||||
(done)))))
|
|
||||||
|
|
||||||
(t/deftest test-duplicate-component
|
(t/deftest test-duplicate-component
|
||||||
(t/async done
|
(t/async
|
||||||
(try
|
done
|
||||||
(let [state (-> thp/initial-state
|
(let [state (-> thp/initial-state
|
||||||
(thp/sample-page)
|
(thp/sample-page)
|
||||||
(thp/sample-shape :shape1 :rect
|
(thp/sample-shape :shape1 :rect
|
||||||
{:name "Rect 1"})
|
{:name "Rect 1"})
|
||||||
(thp/make-component :instance1
|
(thp/make-component :instance1
|
||||||
[(thp/id :shape1)]))
|
[(thp/id :shape1)]))
|
||||||
|
|
||||||
instance1 (thp/get-shape state :instance1)
|
instance1 (thp/get-shape state :instance1)
|
||||||
component-id (:component-id instance1)]
|
component-id (:component-id instance1)]
|
||||||
|
|
||||||
(->> state
|
(->> state
|
||||||
(the/do-watch-update (dwl/duplicate-component
|
(the/do-watch-update (dwl/duplicate-component
|
||||||
{:id component-id}))
|
{:id component-id}))
|
||||||
(rx/do
|
(rx/do
|
||||||
(fn [new-state]
|
(fn [new-state]
|
||||||
(let [new-component-id (->> (get-in new-state
|
(let [new-component-id (->> (get-in new-state
|
||||||
[:workspace-data
|
[:workspace-data
|
||||||
:components])
|
:components])
|
||||||
(keys)
|
(keys)
|
||||||
(filter #(not= % component-id))
|
(filter #(not= % component-id))
|
||||||
(first))
|
(first))
|
||||||
|
|
||||||
[[instance1 shape1]
|
[[instance1 shape1]
|
||||||
[c-instance1 c-shape1]
|
[c-instance1 c-shape1]
|
||||||
component1]
|
component1]
|
||||||
(thl/resolve-instance-and-main
|
(thl/resolve-instance-and-main
|
||||||
new-state
|
new-state
|
||||||
(:id instance1))
|
(:id instance1))
|
||||||
|
|
||||||
[[c-component2 c-shape2]
|
[[c-component2 c-shape2]
|
||||||
component2]
|
component2]
|
||||||
(thl/resolve-component
|
(thl/resolve-component
|
||||||
new-state
|
new-state
|
||||||
new-component-id)]
|
new-component-id)]
|
||||||
|
|
||||||
(t/is (= (:name component2)
|
(t/is (= (:name component2)
|
||||||
"Component-2")))))
|
"Component-2")))))
|
||||||
|
|
||||||
(rx/subs
|
(rx/subs done #(throw %))))))
|
||||||
done
|
|
||||||
#(do
|
|
||||||
(println (.-stack %))
|
|
||||||
(done)))))
|
|
||||||
|
|
||||||
(catch :default e
|
|
||||||
(println (.-stack e))
|
|
||||||
(done)))))
|
|
||||||
|
|
||||||
(t/deftest test-delete-component
|
(t/deftest test-delete-component
|
||||||
(t/async done
|
(t/async
|
||||||
(try
|
done
|
||||||
(let [state (-> thp/initial-state
|
(let [state (-> thp/initial-state
|
||||||
(thp/sample-page)
|
(thp/sample-page)
|
||||||
(thp/sample-shape :shape1 :rect
|
(thp/sample-shape :shape1 :rect
|
||||||
{:name "Rect 1"})
|
{:name "Rect 1"})
|
||||||
(thp/make-component :instance1
|
(thp/make-component :instance1
|
||||||
[(thp/id :shape1)]))
|
[(thp/id :shape1)]))
|
||||||
|
|
||||||
instance1 (thp/get-shape state :instance1)
|
instance1 (thp/get-shape state :instance1)
|
||||||
component-id (:component-id instance1)]
|
component-id (:component-id instance1)]
|
||||||
|
|
||||||
(->> state
|
(->> state
|
||||||
(the/do-watch-update (dwl/delete-component
|
(the/do-watch-update (dwl/delete-component
|
||||||
{:id component-id}))
|
{:id component-id}))
|
||||||
(rx/do
|
(rx/do
|
||||||
(fn [new-state]
|
(fn [new-state]
|
||||||
(let [[instance1 shape1]
|
(let [[instance1 shape1]
|
||||||
(thl/resolve-instance
|
(thl/resolve-instance
|
||||||
new-state
|
new-state
|
||||||
(:id instance1))
|
(:id instance1))
|
||||||
|
|
||||||
file (dwlh/get-local-file new-state)
|
file (dwlh/get-local-file new-state)
|
||||||
component (cph/get-component
|
component (cph/get-component
|
||||||
(:component-id instance1)
|
(:component-id instance1)
|
||||||
(:component-file instance1)
|
(:component-file instance1)
|
||||||
file
|
file
|
||||||
{})]
|
{})]
|
||||||
|
|
||||||
(t/is (nil? component)))))
|
(t/is (nil? component)))))
|
||||||
|
|
||||||
(rx/subs
|
(rx/subs done #(throw %))))))
|
||||||
done
|
|
||||||
#(do
|
|
||||||
(println (.-stack %))
|
|
||||||
(done)))))
|
|
||||||
|
|
||||||
(catch :default e
|
|
||||||
(println (.-stack e))
|
|
||||||
(done)))))
|
|
||||||
|
|
||||||
(t/deftest test-instantiate-component
|
(t/deftest test-instantiate-component
|
||||||
(t/async done
|
(t/async
|
||||||
(try
|
done
|
||||||
(let [state (-> thp/initial-state
|
(let [state (-> thp/initial-state
|
||||||
(thp/sample-page)
|
(thp/sample-page)
|
||||||
(thp/sample-shape :shape1 :rect
|
(thp/sample-shape :shape1 :rect
|
||||||
{:name "Rect 1"})
|
{:name "Rect 1"})
|
||||||
(thp/make-component :instance1
|
(thp/make-component :instance1
|
||||||
[(thp/id :shape1)]))
|
[(thp/id :shape1)]))
|
||||||
|
|
||||||
file (dwlh/get-local-file state)
|
file (dwlh/get-local-file state)
|
||||||
instance1 (thp/get-shape state :instance1)
|
instance1 (thp/get-shape state :instance1)
|
||||||
component-id (:component-id instance1)]
|
component-id (:component-id instance1)]
|
||||||
|
|
||||||
(->> state
|
(->> state
|
||||||
(the/do-watch-update (dwl/instantiate-component
|
(the/do-watch-update (dwl/instantiate-component
|
||||||
(:id file)
|
(:id file)
|
||||||
(:component-id instance1)
|
(:component-id instance1)
|
||||||
(gpt/point 100 100)))
|
(gpt/point 100 100)))
|
||||||
(rx/do
|
(rx/do
|
||||||
(fn [new-state]
|
(fn [new-state]
|
||||||
(let [new-instance-id (-> new-state
|
(let [new-instance-id (-> new-state
|
||||||
wsh/lookup-selected
|
wsh/lookup-selected
|
||||||
first)
|
first)
|
||||||
|
|
||||||
[[instance2 shape2]
|
[[instance2 shape2]
|
||||||
[c-instance2 c-shape2]
|
[c-instance2 c-shape2]
|
||||||
component]
|
component]
|
||||||
(thl/resolve-instance-and-main
|
(thl/resolve-instance-and-main
|
||||||
new-state
|
new-state
|
||||||
new-instance-id)]
|
new-instance-id)]
|
||||||
|
|
||||||
(t/is (not= (:id instance1) (:id instance2)))
|
(t/is (not= (:id instance1) (:id instance2)))
|
||||||
(t/is (= (:id component) component-id))
|
(t/is (= (:id component) component-id))
|
||||||
(t/is (= (:name instance2) "Component-2"))
|
(t/is (= (:name instance2) "Component-2"))
|
||||||
(t/is (= (:name shape2) "Rect 1"))
|
(t/is (= (:name shape2) "Rect 1"))
|
||||||
(t/is (= (:name c-instance2) "Component-1"))
|
(t/is (= (:name c-instance2) "Component-1"))
|
||||||
(t/is (= (:name c-shape2) "Rect 1")))))
|
(t/is (= (:name c-shape2) "Rect 1")))))
|
||||||
|
|
||||||
(rx/subs
|
(rx/subs done #(throw %))))))
|
||||||
done
|
|
||||||
#(do
|
|
||||||
(println (.-stack %))
|
|
||||||
(done)))))
|
|
||||||
|
|
||||||
(catch :default e
|
|
||||||
(println (.-stack e))
|
|
||||||
(done)))))
|
|
||||||
|
|
||||||
(t/deftest test-detach-component
|
(t/deftest test-detach-component
|
||||||
(t/async done
|
(t/async
|
||||||
(try
|
done
|
||||||
(let [state (-> thp/initial-state
|
(let [state (-> thp/initial-state
|
||||||
(thp/sample-page)
|
(thp/sample-page)
|
||||||
(thp/sample-shape :shape1 :rect
|
(thp/sample-shape :shape1 :rect
|
||||||
{:name "Rect 1"})
|
{:name "Rect 1"})
|
||||||
(thp/make-component :instance1
|
(thp/make-component :instance1
|
||||||
[(thp/id :shape1)]))
|
[(thp/id :shape1)]))
|
||||||
|
|
||||||
instance1 (thp/get-shape state :instance1)
|
instance1 (thp/get-shape state :instance1)
|
||||||
component-id (:component-id instance1)]
|
component-id (:component-id instance1)]
|
||||||
|
|
||||||
(->> state
|
(->> state
|
||||||
(the/do-watch-update (dwl/detach-component
|
(the/do-watch-update (dwl/detach-component
|
||||||
(:id instance1)))
|
(:id instance1)))
|
||||||
(rx/do
|
(rx/do
|
||||||
(fn [new-state]
|
(fn [new-state]
|
||||||
(let [[instance1 shape1]
|
(let [[instance1 shape1]
|
||||||
(thl/resolve-noninstance
|
(thl/resolve-noninstance
|
||||||
new-state
|
new-state
|
||||||
(:id instance1))]
|
(:id instance1))]
|
||||||
|
|
||||||
(t/is (= (:name "Rect 1"))))))
|
(t/is (= (:name "Rect 1"))))))
|
||||||
|
|
||||||
(rx/subs
|
(rx/subs done #(throw %))))))
|
||||||
done
|
|
||||||
#(do
|
|
||||||
(println (.-stack %))
|
|
||||||
(done)))))
|
|
||||||
|
|
||||||
(catch :default e
|
|
||||||
(println (.-stack e))
|
|
||||||
(done)))))
|
|
||||||
|
|
||||||
|
|
|
||||||
File diff suppressed because it is too large
Load diff
Loading…
Add table
Add a link
Reference in a new issue