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

Adding purge-collection function, refactoring purge-*-collection methods.

Browse source
This commit is contained in:
Oleksandr Petrov 2011-09-11 12:48:42 +02:00
parent c1d45cf543
commit 2f82ac2bb6
1 changed files with 19 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -16,30 +16,27 @@
;; fixture functions ;; fixture functions
;; ;;
(defn purge-collection
[collection-name, f]
(monger.collection/remove collection-name)
(f)
(monger.collection/remove collection-name))
(defn purge-people-collection (defn purge-people-collection
[f] [f]
(monger.collection/remove "people") (purge-collection "people" f))
(f)
(monger.collection/remove "people"))
(defn purge-docs-collection (defn purge-docs-collection
[f] [f]
(monger.collection/remove "docs") (purge-collection "docs" f))
(f)
(monger.collection/remove "docs"))
(defn purge-things-collection (defn purge-things-collection
[f] [f]
(monger.collection/remove "things") (purge-collection "things" f))
(f)
(monger.collection/remove "things"))
(defn purge-libraries-collection (defn purge-libraries-collection
[f] [f]
(monger.collection/remove "libraries") (purge-collection "libraries" f))
(f)
(monger.collection/remove "libraries"))
(use-fixtures :each purge-people-collection purge-docs-collection purge-things-collection purge-libraries-collection) (use-fixtures :each purge-people-collection purge-docs-collection purge-things-collection purge-libraries-collection)
@ -95,9 +92,9 @@
(deftest get-collection-size (deftest get-collection-size
(let [collection "things"] (let [collection "things"]
(is (= 0 (monger.collection/count collection))) (is (= 0 (monger.collection/count collection)))
(monger.collection/insert-batch collection [{ :language "Clojure", :name "langohr" }, (monger.collection/insert-batch collection [{ :language "Clojure", :name "langohr" }
{ :language "Clojure", :name "monger" }, { :language "Clojure", :name "monger" }
{ :language "Clojure", :name "incanter" }, { :language "Clojure", :name "incanter" }
{ :language "Scala", :name "akka" }] ) { :language "Scala", :name "akka" }] )
(is (= 4 (monger.collection/count collection))) (is (= 4 (monger.collection/count collection)))
(is (= 3 (monger.collection/count collection { :language "Clojure" }))) (is (= 3 (monger.collection/count collection { :language "Clojure" })))
@ -256,8 +253,8 @@
(deftest find-multiple-documents (deftest find-multiple-documents
(let [collection "libraries"] (let [collection "libraries"]
(monger.collection/insert-batch collection [{ :language "Clojure", :name "monger" } (monger.collection/insert-batch collection [{ :language "Clojure", :name "monger" }
{ :language "Clojure", :name "langohr" }, { :language "Clojure", :name "langohr" }
{ :language "Clojure", :name "incanter" }, { :language "Clojure", :name "incanter" }
{ :language "Scala", :name "akka" }]) { :language "Scala", :name "akka" }])
(is (= 1 (monger.core/count (monger.collection/find collection { :language "Scala" })))) (is (= 1 (monger.core/count (monger.collection/find collection { :language "Scala" }))))
(is (= 3 (.count (monger.collection/find collection { :language "Clojure" })))) (is (= 3 (.count (monger.collection/find collection { :language "Clojure" }))))
@ -266,8 +263,8 @@
(deftest find-multiple-maps (deftest find-multiple-maps
(let [collection "libraries"] (let [collection "libraries"]
(monger.collection/insert-batch collection [{ :language "Clojure", :name "monger" } (monger.collection/insert-batch collection [{ :language "Clojure", :name "monger" }
{ :language "Clojure", :name "langohr" }, { :language "Clojure", :name "langohr" }
{ :language "Clojure", :name "incanter" }, { :language "Clojure", :name "incanter" }
{ :language "Scala", :name "akka" }]) { :language "Scala", :name "akka" }])
(is (= 1 (clojure.core/count (monger.collection/find-maps collection { :language "Scala" })))) (is (= 1 (clojure.core/count (monger.collection/find-maps collection { :language "Scala" }))))
(is (= 3 (.count (monger.collection/find-maps collection { :language "Clojure" })))) (is (= 3 (.count (monger.collection/find-maps collection { :language "Clojure" }))))
@ -278,8 +275,8 @@
(deftest find-multiple-partial-documents (deftest find-multiple-partial-documents
(let [collection "libraries"] (let [collection "libraries"]
(monger.collection/insert-batch collection [{ :language "Clojure", :name "monger" } (monger.collection/insert-batch collection [{ :language "Clojure", :name "monger" }
{ :language "Clojure", :name "langohr" }, { :language "Clojure", :name "langohr" }
{ :language "Clojure", :name "incanter" }, { :language "Clojure", :name "incanter" }
{ :language "Scala", :name "akka" }]) { :language "Scala", :name "akka" }])
(let [scala-libs (monger.collection/find collection { :language "Scala" } [:name]) (let [scala-libs (monger.collection/find collection { :language "Scala" } [:name])
clojure-libs (monger.collection/find collection { :language "Clojure"} [:language])] clojure-libs (monger.collection/find collection { :language "Clojure"} [:language])]