Two more cases for insert-batch

This commit is contained in:
Michael S. Klishin 2011-08-29 20:54:36 +04:00
parent 5473ff10ba
commit 837ab83317

View file

@ -180,10 +180,10 @@
(deftest find-multiple-documents (deftest find-multiple-documents
(let [collection "libraries"] (let [collection "libraries"]
(monger.collection/remove collection) (monger.collection/remove collection)
(monger.collection/insert collection { :language "Clojure", :name "monger" }) (monger.collection/insert-batch collection [{ :language "Clojure", :name "monger" }
(monger.collection/insert collection { :language "Clojure", :name "langohr" }) { :language "Clojure", :name "langohr" },
(monger.collection/insert collection { :language "Clojure", :name "incanter" }) { :language "Clojure", :name "incanter" },
(monger.collection/insert collection { :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" }))))
(is (empty? (monger.collection/find collection { :language "Java" }))))) (is (empty? (monger.collection/find collection { :language "Java" })))))
@ -192,10 +192,10 @@
(deftest find-multiple-partial-documents (deftest find-multiple-partial-documents
(let [collection "libraries"] (let [collection "libraries"]
(monger.collection/remove collection) (monger.collection/remove collection)
(monger.collection/insert collection { :language "Clojure", :name "monger" }) (monger.collection/insert-batch collection [{ :language "Clojure", :name "monger" }
(monger.collection/insert collection { :language "Clojure", :name "langohr" }) { :language "Clojure", :name "langohr" },
(monger.collection/insert collection { :language "Clojure", :name "incanter" }) { :language "Clojure", :name "incanter" },
(monger.collection/insert collection { :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])]
(is (= 1 (.count scala-libs))) (is (= 1 (.count scala-libs)))