Merge branch 'moskvax-revert-128'

This commit is contained in:
Juho Teperi 2017-03-11 01:44:36 +02:00
commit 50b5ad30e5
2 changed files with 8 additions and 0 deletions

View File

@ -355,6 +355,12 @@
(is (= (get-in @test-atom [])
{:z 3}))
(reset! test-cursor {}) ;; empty map
(swap! test-cursor assoc :x 1 :y 2 :z 3 :w)
(is (= @test-cursor {:x 1 :y 2 :z 3 :w nil}))
(is (= (get-in @test-atom [:a :b :c :d])
{:x 1 :y 2 :z 3 :w nil}))
(is (= runs (running)))))

View File

@ -105,6 +105,8 @@
(is (= (swap! a update-in [:k] inc)
(swap! b update-in [:k] inc)))
(is (= @a @b {:k 2}))
(is (= (swap! a assoc :k 3 :l 4 :m 7 :n 8 :o)
(swap! b assoc :k 3 :l 4 :m 7 :n 8 :o)))
(is (= (reset! a 23)
(reset! b 23)))
(is (= @a @b))