luciano/monger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

monger.db tests now pass

Browse source
This commit is contained in:
Michael Klishin 2014-05-10 16:57:42 -04:00
parent d3cb048d2b
commit 912b9e4d45
1 changed files with 20 additions and 33 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
test/monger/test/db_test.clj
View file

@ -1,44 +1,31 @@
(ns monger.test.db-test (ns monger.test.db-test
(:require [monger core db] (:require [monger.db :as mdb]
[monger.test.helper :as helper] [monger.core :as mg]
[monger.collection :as mc] [monger.collection :as mc]
[clojure.test :refer :all]) [clojure.test :refer :all])
(:import [com.mongodb Mongo DB] (:import [com.mongodb Mongo DB]
java.util.Set)) java.util.Set))
(helper/connect!)
;; do not run this test for CI, it complicates matters by messing up ;; do not run this test for CI, it complicates matters by messing up
;; authentication for some other tests :( MK. ;; authentication for some other tests :( MK.
(when-not (System/getenv "CI") (let [conn (mg/connect)]
(deftest test-drop-database (when-not (System/getenv "CI")
;; drop a secondary database here. MK. (deftest test-drop-database
(monger.core/with-db (monger.core/get-db "monger-test3") ;; drop a secondary database here. MK.
(let [collection "test" (let [db (mg/get-db conn "monger-test3")
_ (mc/insert collection {:name "Clojure"}) collection "test"
check (mc/count collection) _ (mc/insert db collection {:name "Clojure"})
_ (monger.db/drop-db)] check (mc/count db collection)
_ (mdb/drop-db db)]
(is (= 1 check)) (is (= 1 check))
(is (not (mc/exists? collection))) (is (not (mc/exists? db collection)))
(is (= 0 (mc/count collection)))))) (is (= 0 (mc/count db collection))))))
(deftest test-use-database (deftest test-get-collection-names
(monger.core/use-db! "monger-test5") (let [db (mg/get-db conn "monger-test")]
(is (= "monger-test5" (.getName (monger.core/current-db)))) (mc/insert db "test-1" {:name "Clojure"})
(let [collection "test" (mc/insert db "test-2" {:name "Clojure"})
_ (mc/insert collection {:name "Clojure"}) (let [^Set xs (mdb/get-collection-names db)]
check (mc/count collection) (is (.contains xs "test-1"))
_ (monger.db/drop-db)] (is (.contains xs "test-2"))))))
(is (= 1 check))
(is (not (mc/exists? collection)))
(is (= 0 (mc/count collection))))))
(deftest test-get-collection-names
(mc/insert "test-1" {:name "Clojure"})
(mc/insert "test-2" {:name "Clojure"})
(let [^Set collections (monger.db/get-collection-names)]
(is (.contains collections "test-1"))
(is (.contains collections "test-2"))))