status-im
/
reagent
mirror of https://github.com/status-im/reagent.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Start to add tests for monitor

This commit is contained in:
Dan Holmsand 2015-09-13 20:31:31 +02:00
parent aaf1d56edb
commit b0d86598ce
1 changed files with 21 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
test/reagenttest/testmonitor.cljs
View File

@ -45,12 +45,12 @@
(let [runs (running) (let [runs (running)
start (rv/atom 0) start (rv/atom 0)
c3-count (rv/atom 0) c3-count (rv/atom 0)
c1 (reaction @start 1) c1f (fn [] @start 1)
c2 (reaction @start) c2f (fn [] @start)
c3 (rv/make-reaction c3 (rv/make-reaction
(fn [] (fn []
(swap! c3-count inc) (swap! c3-count inc)
(+ @c1 @c2)) (+ @(monitor c1f) @(monitor c2f)))
:auto-run true)] :auto-run true)]
(is (= @c3-count 0)) (is (= @c3-count 0))
(is (= @c3 1)) (is (= @c3 1))
@ -64,22 +64,11 @@
(deftest test-from-reflex (deftest test-from-reflex
(let [runs (running)] (let [runs (running)]
(let [!counter (rv/atom 0)
!signal (rv/atom "All I do is change")
co (run!
;;when I change...
@!signal
;;update the counter
(swap! !counter inc))]
(is (= 1 @!counter) "Constraint run on init")
(reset! !signal "foo")
(is (= 2 @!counter)
"Counter auto updated")
(dispose co))
(let [!x (rv/atom 0) (let [!x (rv/atom 0)
!co (rv/make-reaction #(inc @!x) :auto-run true)] f #(inc @!x)
(is (= 1 @!co) "CO has correct value on first deref") !co (run! @(monitor f))]
(swap! !x inc) (is (= 1 @!co) "CO has correct value on first deref")
(swap! !x inc)
(is (= 2 @!co) "CO auto-updates") (is (= 2 @!co) "CO auto-updates")
(dispose !co)) (dispose !co))
(is (= runs (running))))) (is (= runs (running)))))
@ -89,42 +78,42 @@
(dotimes [x testite] (dotimes [x testite]
(let [runs (running) (let [runs (running)
a (rv/atom 0) a (rv/atom 0)
a1 (reaction (inc @a)) af (fn [x] (+ @a x))
a2 (reaction @a) a1 (monitor af 1)
a2 (monitor af 0)
b-changed (rv/atom 0) b-changed (rv/atom 0)
c-changed (rv/atom 0) c-changed (rv/atom 0)
b (reaction mf (fn [v x spy]
(swap! b-changed inc) (swap! spy inc)
(inc @a1)) (+ @v x))
c (reaction
(swap! c-changed inc)
(+ 10 @a2))
res (run! res (run!
(if (< @a2 1) @b @c))] (if (< @a2 1)
@(monitor mf a1 1 b-changed)
@(monitor mf a2 10 c-changed)))]
(is (= @res (+ 2 @a))) (is (= @res (+ 2 @a)))
(is (= @b-changed 1)) (is (= @b-changed 1))
(is (= @c-changed 0)) (is (= @c-changed 0))
(reset! a -1) (reset! a -1)
(is (= @res (+ 2 @a))) (is (= @res (+ 2 @a)))
(is (= @b-changed 2)) (is (= @b-changed 2))
(is (= @c-changed 0)) (is (= @c-changed 0))
(reset! a 2) (reset! a 2)
(is (= @res (+ 10 @a))) (is (= @res (+ 10 @a)))
(is (<= 2 @b-changed 3)) (is (<= 2 @b-changed 3))
(is (= @c-changed 1)) (is (= @c-changed 1))
(reset! a 3) (reset! a 3)
(is (= @res (+ 10 @a))) (is (= @res (+ 10 @a)))
(is (<= 2 @b-changed 3)) (is (<= 2 @b-changed 3))
(is (= @c-changed 2)) (is (= @c-changed 2))
(reset! a 3) (reset! a 3)
(is (= @res (+ 10 @a))) (is (= @res (+ 10 @a)))
(is (<= 2 @b-changed 3)) (is (<= 2 @b-changed 3))
(is (= @c-changed 2)) (is (= @c-changed 2))
(reset! a -1) (reset! a -1)
(is (= @res (+ 2 @a))) (is (= @res (+ 2 @a)))
(dispose res) (dispose res)