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

Cover insertion of DBRefs

Browse source 
Apparently, they are not deprecated and there is real interest in Monger supporting them
This commit is contained in:
Michael S. Klishin 2012-06-14 18:32:07 +04:00
parent 787d2d299d
commit ff2d095402
1 changed files with 16 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
test/monger/test/inserting_test.clj
View file

@ -1,7 +1,7 @@
(set! *warn-on-reflection* true) (set! *warn-on-reflection* true)
(ns monger.test.inserting-test (ns monger.test.inserting-test
(:import [com.mongodb WriteResult WriteConcern DBCursor DBObject] (:import [com.mongodb WriteResult WriteConcern DBCursor DBObject DBRef]
org.bson.types.ObjectId org.bson.types.ObjectId
java.util.Date) java.util.Date)
(:require [monger.core :as mg] (:require [monger.core :as mg]
@ -81,13 +81,22 @@
(defrecord Metrics (defrecord Metrics
[rps eps]) [rps eps])
(deftest ^:focus insert-a-document-with-clojure-record-in-it (deftest insert-a-document-with-clojure-record-in-it
(let [collection "widgets" (let [collection "widgets"
id (ObjectId.) id (ObjectId.)
doc {:record (Metrics. 10 20) "_id" id} doc {:record (Metrics. 10 20) "_id" id}
result (mc/insert "widgets" doc)] result (mc/insert "widgets" doc)]
(is (= {:rps 10 :eps 20} (:record (mc/find-map-by-id collection id)))))) (is (= {:rps 10 :eps 20} (:record (mc/find-map-by-id collection id))))))
(deftest test-insert-a-document-with-dbref
(let [coll1 "widgets"
coll2 "owners"
oid (ObjectId.)
joe (mc/insert "owners" {:name "Joe" :_id oid})
dbref (DBRef. (mg/current-db) coll2 oid)]
(mc/insert coll1 {:type "pentagon" :owner dbref})
(let [fetched (mc/find-one-as-map coll1 {:type "pentagon"})]
(is (= dbref (:owner fetched))))))
;; ;;