From d7965adb86d1d294043967f1bcb1db6202f9796e Mon Sep 17 00:00:00 2001 From: Michael Klishin Date: Sun, 11 May 2014 13:37:18 -0400 Subject: [PATCH] Remove tests that are now duplicates --- .../test/ring/clojure_session_store_test.clj | 35 ------------------- 1 file changed, 35 deletions(-) diff --git a/test/monger/test/ring/clojure_session_store_test.clj b/test/monger/test/ring/clojure_session_store_test.clj index 43871ee..587673c 100644 --- a/test/monger/test/ring/clojure_session_store_test.clj +++ b/test/monger/test/ring/clojure_session_store_test.clj @@ -22,11 +22,6 @@ (is (= {} (read-session store "a-missing-key-1228277"))))) -(deftest test-reading-a-session-that-does-not-exist-given-db - (let [store (session-store db "sessions")] - (is (= {} (read-session store "a-missing-key-1228277"))))) - - (deftest test-reading-a-session-that-does-exist (let [store (session-store db "sessions") sk (write-session store nil {:library "Monger"}) @@ -37,16 +32,6 @@ {:library "Monger"})))) -(deftest test-reading-a-session-that-does-exist-given-db - (let [store (session-store db "sessions") - sk (write-session store nil {:library "Monger"}) - m (read-session store sk)] - (is sk) - (is (and (:_id m))) - (is (= (dissoc m :_id) - {:library "Monger"})))) - - (deftest test-updating-a-session (let [store (session-store db "sessions") sk1 (write-session store nil {:library "Monger"}) @@ -58,28 +43,8 @@ (is (= (dissoc m :_id) {:library "Ring"})))) - -(deftest test-updating-a-session-given-db - (let [store (session-store db "sessions") - sk1 (write-session store nil {:library "Monger"}) - sk2 (write-session store sk1 {:library "Ring"}) - m (read-session store sk2)] - (is (and sk1 sk2)) - (is (and (:_id m))) - (is (= sk1 sk2)) - (is (= (dissoc m :_id) - {:library "Ring"})))) - - (deftest test-deleting-a-session (let [store (session-store db "sessions") sk (write-session store nil {:library "Monger"})] (is (nil? (delete-session store sk))) (is (= {} (read-session store sk))))) - - -(deftest test-deleting-a-session - (let [store (session-store db "sessions") - sk (write-session store nil {:library "Monger"})] - (is (nil? (delete-session store sk))) - (is (= {} (read-session store sk))))))