Correct the test now that we don't have :date in the serialized value

This commit is contained in:
Michael S. Klishin 2012-06-27 19:10:20 +04:00
parent ff77d3ccd7
commit dde4a59495

View file

@ -30,8 +30,8 @@
sk (write-session store nil {:library "Monger"}) sk (write-session store nil {:library "Monger"})
m (read-session store sk)] m (read-session store sk)]
(is sk) (is sk)
(is (and (:_id m) (:date m))) (is (and (:_id m)))
(is (= (dissoc m :_id :date) (is (= (dissoc m :_id)
{:library "Monger"})))) {:library "Monger"}))))
@ -41,9 +41,9 @@
sk2 (write-session store sk1 {:library "Ring"}) sk2 (write-session store sk1 {:library "Ring"})
m (read-session store sk2)] m (read-session store sk2)]
(is (and sk1 sk2)) (is (and sk1 sk2))
(is (and (:_id m) (:date m))) (is (and (:_id m)))
(is (= sk1 sk2)) (is (= sk1 sk2))
(is (= (dissoc m :_id :date) (is (= (dissoc m :_id)
{:library "Ring"})))) {:library "Ring"}))))