diff --git a/test/monger/test/ring/clojure_session_store_test.clj b/test/monger/test/ring/clojure_session_store_test.clj index a067672..43871ee 100644 --- a/test/monger/test/ring/clojure_session_store_test.clj +++ b/test/monger/test/ring/clojure_session_store_test.clj @@ -1,38 +1,34 @@ (ns monger.test.ring.clojure-session-store-test - (:require [monger core util] + (:require [monger.core :as mg] [monger.collection :as mc] - [monger.test.helper :as helper] [clojure.test :refer :all] [ring.middleware.session.store :refer :all] [monger.ring.session-store :refer :all])) -(helper/connect!) - -(defn purge-sessions +(let [conn (mg/connect) + db (mg/get-db conn "monger-test")] + (defn purge-sessions [f] - (mc/remove "web_sessions") - (mc/remove "sessions") + (mc/remove db "sessions") (f) - (mc/remove "web_sessions") - (mc/remove "sessions")) + (mc/remove db "sessions")) (use-fixtures :each purge-sessions) (deftest test-reading-a-session-that-does-not-exist - (let [store (session-store)] + (let [store (session-store db "sessions")] (is (= {} (read-session store "a-missing-key-1228277"))))) (deftest test-reading-a-session-that-does-not-exist-given-db - (let [db (monger.core/get-db) - store (session-store db "sessions")] + (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) + (let [store (session-store db "sessions") sk (write-session store nil {:library "Monger"}) m (read-session store sk)] (is sk) @@ -42,8 +38,7 @@ (deftest test-reading-a-session-that-does-exist-given-db - (let [db (monger.core/get-db) - store (session-store db "sessions") + (let [store (session-store db "sessions") sk (write-session store nil {:library "Monger"}) m (read-session store sk)] (is sk) @@ -53,7 +48,7 @@ (deftest test-updating-a-session - (let [store (session-store "sessions") + (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)] @@ -65,8 +60,7 @@ (deftest test-updating-a-session-given-db - (let [db (monger.core/get-db) - store (session-store db "sessions") + (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)] @@ -78,15 +72,14 @@ (deftest test-deleting-a-session - (let [store (session-store "sessions") + (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 [db (monger.core/get-db) - store (session-store db "sessions") + (let [store (session-store db "sessions") sk (write-session store nil {:library "Monger"})] (is (nil? (delete-session store sk))) - (is (= {} (read-session store sk))))) + (is (= {} (read-session store sk))))))