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

Wrapping up with monger.convertion.ConvertFromDBObject

Browse source
This commit is contained in:
Michael S. Klishin 2011-08-14 02:15:38 +04:00
parent 3a431bf1e0
commit bef972d1ab
2 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/monger/convertion.clj
View file

@ -50,6 +50,10 @@
(from-db-object [#^List input keywordize]
(vec (map #(from-db-object % keywordize) input)))
BasicDBList
(from-db-object [#^BasicDBList input keywordize]
(vec (map #(from-db-object % keywordize) input)))
DBObject
(from-db-object [#^DBObject input keywordize]
;; DBObject provides .toMap, but the implementation in

15
test/monger/test/convertion.clj
View file

@ -94,10 +94,15 @@
(deftest convert-flat-db-object-to-nested-map
(let [did "b38b357f5014a3250d813a16376ca2ff4837e8e1"
nested (doto (BasicDBObject.) (.put "int" 101) (.put "dblist" (doto (BasicDBList.) (.put "0" 0) (.put "1" 1))) (.put "list" (ArrayList. ["red" "green" "blue"])) (.put "nil" nil))
nested (doto (BasicDBObject.)
(.put "int" 101)
(.put "dblist" (doto (BasicDBList.) (.put "0" 0) (.put "1" 1))) (.put "list" (ArrayList. ["red" "green" "blue"])))
input (doto (BasicDBObject.)
(.put "_id" did)
(.put "nested" nested))]
(is (= (monger.convertion/from-db-object input false) { "_id" did, "nested" { "int" 101, "dblist" {"0" 0, "1" 1}, "list" ["red" "green" "blue"], "nil" nil } }))
(is (= (monger.convertion/from-db-object input true) { :_id did, :nested { :int 101, :dblist {:0 0, :1 1}, :list ["red" "green" "blue"], :nil nil } }))
))
(.put "nested" nested))
output (monger.convertion/from-db-object input false)]
(is (= (output "_id") did))
(is (= (-> output (get "nested") (get "int")) 101))
(is (= (-> output (get "nested") (get "list")) ["red" "green" "blue"]))
(is (= (-> output (get "nested") (get "dblist")) [0 1]))))