diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2010-11-26 10:02:45 -0500 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2010-11-26 10:02:45 -0500 |
| commit | d6f6ccfaeac03e35b1f9dbfa04424866cd9b2a41 (patch) | |
| tree | c6503cc86434fe1e44b4ff287ffc070f43bec325 /modules/json/src/test/clojure | |
| parent | a579d18512eaa2e61483b664a02fe18e47ee2c08 (diff) | |
Handle quotes in JSON keys correctly; refs #98
Diffstat (limited to 'modules/json/src/test/clojure')
| -rw-r--r-- | modules/json/src/test/clojure/clojure/contrib/test_json.clj | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/modules/json/src/test/clojure/clojure/contrib/test_json.clj b/modules/json/src/test/clojure/clojure/contrib/test_json.clj index c38dbc6a..a4290e5c 100644 --- a/modules/json/src/test/clojure/clojure/contrib/test_json.clj +++ b/modules/json/src/test/clojure/clojure/contrib/test_json.clj @@ -185,6 +185,9 @@ (deftest can-accept-eof (is (= ::eof (read-json "" true false ::eof)))) +(deftest characters-in-map-keys-are-escaped + (is (= (json-str {"\"" 42}) "{\"\\\"\":42}"))) + ;;; Pretty-printer (deftest pretty-printing |