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

Make sure our test suite uses both ObjectId instances as well as string ids

Browse source
This commit is contained in:
Michael S. Klishin 2011-09-14 14:04:34 +04:00
parent 3e8e5d7b32
commit 5145f45afa
1 changed files with 21 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -2,6 +2,7 @@
(ns monger.test.collection (ns monger.test.collection
(:import [com.mongodb WriteResult WriteConcern DBCursor DBObject CommandResult$CommandFailure] (:import [com.mongodb WriteResult WriteConcern DBCursor DBObject CommandResult$CommandFailure]
[org.bson.types ObjectId]
[java.util Date]) [java.util Date])
(:require [monger core collection result util conversion] (:require [monger core collection result util conversion]
[clojure stacktrace]) [clojure stacktrace])
@ -194,11 +195,15 @@
;; find-by-id ;; find-by-id
;; ;;
(deftest find-full-document-by-id-when-that-document-does-not-exist (deftest find-full-document-by-string-id-when-that-document-does-not-exist
(let [collection "libraries" (let [collection "libraries"
doc-id (monger.util/random-uuid)] doc-id (monger.util/random-uuid)]
(is (nil? (monger.collection/find-by-id collection doc-id))))) (is (nil? (monger.collection/find-by-id collection doc-id)))))
(deftest find-full-document-by-object-id-when-that-document-does-not-exist
(let [collection "libraries"
doc-id (ObjectId.)]
(is (nil? (monger.collection/find-by-id collection doc-id)))))
(deftest find-full-document-by-id-as-map-when-that-document-does-not-exist (deftest find-full-document-by-id-as-map-when-that-document-does-not-exist
(let [collection "libraries" (let [collection "libraries"
@ -206,20 +211,33 @@
(is (nil? (monger.collection/find-map-by-id collection doc-id))))) (is (nil? (monger.collection/find-map-by-id collection doc-id)))))
(deftest find-full-document-by-id-when-document-does-exist (deftest find-full-document-by-string-id-when-document-does-exist
(let [collection "libraries" (let [collection "libraries"
doc-id (monger.util/random-uuid) doc-id (monger.util/random-uuid)
doc { :data-store "MongoDB", :language "Clojure", :_id doc-id }] doc { :data-store "MongoDB", :language "Clojure", :_id doc-id }]
(monger.collection/insert collection doc) (monger.collection/insert collection doc)
(is (= (doc (monger.collection/find-by-id collection doc-id)))))) (is (= (doc (monger.collection/find-by-id collection doc-id))))))
(deftest find-full-document-map-by-id-when-document-does-exist (deftest find-full-document-by-object-id-when-document-does-exist
(let [collection "libraries"
doc-id (ObjectId.)
doc { :data-store "MongoDB", :language "Clojure", :_id doc-id }]
(monger.collection/insert collection doc)
(is (= (doc (monger.collection/find-by-id collection doc-id))))))
(deftest find-full-document-map-by-string-id-when-document-does-exist
(let [collection "libraries" (let [collection "libraries"
doc-id (monger.util/random-uuid) doc-id (monger.util/random-uuid)
doc { :data-store "MongoDB", :language "Clojure", :_id doc-id }] doc { :data-store "MongoDB", :language "Clojure", :_id doc-id }]
(monger.collection/insert collection doc) (monger.collection/insert collection doc)
(is (= (doc (monger.collection/find-map-by-id collection doc-id)))))) (is (= (doc (monger.collection/find-map-by-id collection doc-id))))))
(deftest find-full-document-map-by-object-id-when-document-does-exist
(let [collection "libraries"
doc-id (ObjectId.)
doc { :data-store "MongoDB", :language "Clojure", :_id doc-id }]
(monger.collection/insert collection doc)
(is (= (doc (monger.collection/find-map-by-id collection doc-id))))))
(deftest find-partial-document-by-id-when-document-does-exist (deftest find-partial-document-by-id-when-document-does-exist
(let [collection "libraries" (let [collection "libraries"