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

Add a test that inserts documents with fields that are Clojure records

Browse source
This commit is contained in:
Michael S. Klishin 2012-04-10 16:12:59 +04:00
parent 05669a6778
commit fbd631b22e
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
test/monger/test/inserting.clj
View file

@ -63,6 +63,17 @@
(is (= 5.5 (:ratio (mgcol/find-map-by-id collection id)))))) (is (= 5.5 (:ratio (mgcol/find-map-by-id collection id))))))
(defrecord Metrics
[rps eps])
(deftest ^:focus insert-a-document-with-clojure-record-in-it
(let [collection "widgets"
id (ObjectId.)
doc { :record (Metrics. 10 20) "_id" id }
result (mgcol/insert "widgets" doc)]
(is (= {:rps 10 :eps 20} (:record (mgcol/find-map-by-id collection id))))))
;; ;;
;; insert-batch ;; insert-batch