michael/grub-fork
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Report sync differences in failed tests more explicitly

Browse source
This commit is contained in:
Nicholas Kariniemi 2015-07-05 22:02:57 +03:00
parent 3c96ea5fbf
commit 1260c4418c
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/test/grub/test/integration/synchronization.clj
View file

@ -22,7 +22,9 @@
:new-server-states new-server-states}))
(defn states-in-sync? [a b]
(state/state= (last a) (last b)))
(let [last-a (dissoc (last a) :tag)
last-b (dissoc (last b) :tag)]
last-a => last-b))
(defn last-state [states]
(-> states
@ -45,7 +47,7 @@
(swap! client conj client-change)
(>!! new-client-states client-change)
(short-delay)
(states-in-sync? @client @server) => true
(states-in-sync? @client @server)
(last-state @client) => {:grubs {"1" {:text "2 apples" :completed true}}
:recipes {}}))
@ -62,7 +64,7 @@
(swap! server conj server-change)
(>!! new-server-states server-change)
(short-delay)
(states-in-sync? @client @server) => true
(states-in-sync? @client @server)
(last-state @client) => {:grubs {"1" {:text "2 apples" :completed true}}
:recipes {}}))
@ -85,7 +87,7 @@
(>!! new-client-states client-change)
(short-delay)
(>!! new-server-states (last @server))
(states-in-sync? @client @server) => true
(states-in-sync? @client @server)
(last-state @client) => {:grubs {"1" {:text "2 apples" :completed true}
"2" {:text "milk" :completed false}}
:recipes {}}))