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

Demonstrate iteration over DBCursors with iterator-seq

Browse source
This commit is contained in:
Michael S. Klishin 2011-10-08 03:01:04 +04:00
parent 625db17646
commit d05b5bec8c
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -277,6 +277,18 @@
(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" })))))
(deftest find-and-iterate-over-multiple-documents
(let [collection "libraries"]
(monger.collection/insert-batch collection [{ :language "Clojure", :name "monger" }
{ :language "Clojure", :name "langohr" }
{ :language "Clojure", :name "incanter" }
{ :language "Scala", :name "akka" }])
(doseq [doc (take 3 (map (fn [dbo]
(monger.conversion/from-db-object dbo true))
(iterator-seq (monger.collection/find collection { :language "Clojure" }))))]
(is (= "Clojure" (:language doc))))))
(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" }