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

To serialize joda.time.DateTime to JSON, use ISO date time format

Browse source
This commit is contained in:
Michael S. Klishin 2011-10-14 01:01:40 +04:00
parent f94bc0abc3
commit 7d79866eff
2 changed files with 32 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/monger/joda_time.clj
View file

@ -1,5 +1,6 @@
(ns monger.joda-time (ns monger.joda-time
(:import (org.joda.time DateTime DateTimeZone)) (:import [org.joda.time DateTime DateTimeZone ReadableInstant]
[org.joda.time.format ISODateTimeFormat])
(:use [monger.conversion]) (:use [monger.conversion])
(:require [clojure.data.json :as json])) (:require [clojure.data.json :as json]))
@ -9,7 +10,7 @@
(extend-protocol ConvertToDBObject (extend-protocol ConvertToDBObject
org.joda.time.DateTime org.joda.time.DateTime
(to-db-object [^org.joda.time.DateTime input] (to-db-object [^DateTime input]
(to-db-object (.toDate input)))) (to-db-object (.toDate input))))
(extend-protocol ConvertFromDBObject (extend-protocol ConvertFromDBObject
@ -20,7 +21,5 @@
(extend-protocol json/Write-JSON (extend-protocol json/Write-JSON
org.joda.time.DateTime org.joda.time.DateTime
(write-json [^org.joda.time.DateTime object out escape-unicode?] (write-json [^DateTime object out escape-unicode?]
;; TODO: use .printTo(Writer) here instead of ignoring (json/write-json (.print (ISODateTimeFormat/dateTime) ^ReadableInstant object) out escape-unicode?)))
;; out parameter. MK.
(.print (org.joda.time.format.ISODateTimeFormat/dateTime) object)))

27
test/monger/test/lib_integration.clj Normal file
View file

@ -0,0 +1,27 @@
(ns monger.test.lib-integration
(:use [clojure.test]
[monger.json]
[monger.joda-time]
[monger.conversion])
(:import [org.joda.time ReadableInstant]
[org.joda.time.format ISODateTimeFormat]
[java.io StringWriter PrintWriter])
(:require [clojure.data.json :as json]
[clj-time.core :as t]))
(deftest serialization-of-joda-datetime-to-json
(is (= "\"2011-10-13T23:55:00.000Z\"" (json/json-str (t/date-time 2011 10 13 23 55 0)))))
(deftest conversion-of-joda-datetime-to-db-object
(let [d (to-db-object (t/date-time 2011 10 13 23 55 0))]
(is (instance? java.util.Date d))
(is (= 1318550100000 (.getTime ^java.util.Date d)))))
(deftest conversion-of-java-util-date-to-joda-datetime
(let [input (.toDate (t/date-time 2011 10 13 23 55 0))
output (from-db-object input false)]
(is (instance? org.joda.time.DateTime output))
(is (= input (.toDate output)))))