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

Extend test for rswap!

This commit is contained in:
Dan Holmsand 2015-09-14 19:39:44 +02:00
parent e11c881aa7
commit 87758ae396
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
test/reagenttest/testratom.cljs
View File

@ -268,24 +268,31 @@
(deftest test-rswap
(let [a (atom {:foo 1})]
(r/rswap! a update-in [:foo] inc)
(is (nil? (r/rswap! a update-in [:foo] inc)))
(is (= (:foo @a) 2))
(r/rswap! a #(assoc %1 :foo %2) 3)
(is (nil? (r/rswap! a identity)))
(is (= (:foo @a) 2))
(is (nil? (r/rswap! a #(assoc %1 :foo %2) 3)))
(is (= (:foo @a) 3))
(r/rswap! a #(assoc %1 :foo %3) 0 4)
(is (nil? (r/rswap! a #(assoc %1 :foo %3) 0 4)))
(is (= (:foo @a) 4))
(r/rswap! a #(assoc %1 :foo %4) 0 0 5)
(is (nil? (r/rswap! a #(assoc %1 :foo %4) 0 0 5)))
(is (= (:foo @a) 5))
(r/rswap! a #(assoc %1 :foo %5) 0 0 0 6)
(is (nil? (r/rswap! a #(assoc %1 :foo %5) 0 0 0 6)))
(is (= (:foo @a) 6))
(let [disp (atom nil)
f (fn [o v]
(assert (= v :add))
(if (< (:foo o) 10)
(do
(@disp v)
(is (nil? (@disp v)))
(update-in o [:foo] inc))
o))
_ (reset! disp #(r/rswap! a f %))]
(@disp :add)
(is (= (:foo @a) 10)))))