From d05b5bec8cd36ef3c28b35f4f72aaff97c9d905b Mon Sep 17 00:00:00 2001 From: "Michael S. Klishin" Date: Sat, 8 Oct 2011 03:01:04 +0400 Subject: [PATCH] Demonstrate iteration over DBCursors with iterator-seq --- test/monger/test/collection.clj | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/test/monger/test/collection.clj b/test/monger/test/collection.clj index c785e57..5d4e67f 100644 --- a/test/monger/test/collection.clj +++ b/test/monger/test/collection.clj @@ -277,6 +277,18 @@ (is (= 3 (.count (monger.collection/find collection { :language "Clojure" })))) (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 (let [collection "libraries"] (monger.collection/insert-batch collection [{ :language "Clojure", :name "monger" }