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

Additional tests for monger.collection/remove

Browse source
This commit is contained in:
Michael S. Klishin 2011-08-14 22:58:31 +04:00
parent 5a546e68d0
commit 14a0aa515c
1 changed files with 42 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
test/monger/test/collection.clj
View file

@ -54,12 +54,35 @@
;; ;;
;; count ;; count, remove
;; ;;
(deftest get-collection-size (deftest get-collection-size
(is 0 (monger.collection/count "things"))) (is 0 (monger.collection/count "things")))
(deftest remove-all-documents-from-collection
(let [collection "libraries"]
(monger.collection/remove collection)
(monger.collection/insert collection { :language "Clojure", :name "monger" })
(monger.collection/insert collection { :language "Clojure", :name "langohr" })
(monger.collection/insert collection { :language "Clojure", :name "incanter" })
(monger.collection/insert collection { :language "Scala", :name "akka" })
(is (= 4 (monger.collection/count collection)))
(monger.collection/remove collection)
(is (= 0 (monger.collection/count collection)))))
(deftest remove-some-documents-from-collection
(let [collection "libraries"]
(monger.collection/remove collection)
(monger.collection/insert collection { :language "Clojure", :name "monger" })
(monger.collection/insert collection { :language "Clojure", :name "langohr" })
(monger.collection/insert collection { :language "Clojure", :name "incanter" })
(monger.collection/insert collection { :language "Scala", :name "akka" })
(is (= 4 (monger.collection/count collection)))
(monger.collection/remove collection { :language "Clojure" })
(is (= 1 (monger.collection/count collection)))))
;; ;;
@ -100,3 +123,21 @@
(monger.collection/remove collection) (monger.collection/remove collection)
(monger.collection/insert collection doc) (monger.collection/insert collection doc)
(is (= ({ :language "Clojure" } (monger.collection/find-by-id collection doc-id [ :language ])))))) (is (= ({ :language "Clojure" } (monger.collection/find-by-id collection doc-id [ :language ]))))))
(deftest find-multiple-documents-when-collection-is-empty
(let [collection "libraries"]
(monger.collection/remove collection)
(is (empty? (monger.collection/find collection { :language "Scala" })))))
(deftest find-multiple-documents
(let [collection "libraries"]
(monger.collection/remove collection)
(monger.collection/insert collection { :language "Clojure", :name "monger" })
(monger.collection/insert collection { :language "Clojure", :name "langohr" })
(monger.collection/insert collection { :language "Clojure", :name "incanter" })
(monger.collection/insert collection { :language "Scala", :name "akka" })
(is (= 1 (.count (monger.collection/find collection { :language "Scala" }))))
(is (= 3 (.count (monger.collection/find collection { :language "Clojure" }))))
(is (empty? (monger.collection/find collection { :language "Java" })))))