diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2010-08-21 13:47:12 -0400 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2010-09-17 12:52:44 -0400 |
| commit | 5a928e263ab88cb8d224de8585932f936aa30c8f (patch) | |
| tree | 562903ea1ece6ca3b74589072b0fad369edb0700 /modules/json/src/test/clojure | |
| parent | 11852b988be61bbf661ca80ef7a78d17e3ee2325 (diff) | |
Fix EOF-handling in JSON reader; refs #91
Diffstat (limited to 'modules/json/src/test/clojure')
| -rw-r--r-- | modules/json/src/test/clojure/clojure/contrib/test_json.clj | 6 |
1 files changed, 6 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 e62df3a8..c38dbc6a 100644 --- a/modules/json/src/test/clojure/clojure/contrib/test_json.clj +++ b/modules/json/src/test/clojure/clojure/contrib/test_json.clj @@ -179,6 +179,12 @@ (deftest characters-in-symbols-are-escaped (is (= "\"foo\\u1b1b\"" (json-str (symbol "foo\u1b1b"))))) +(deftest default-throws-on-eof + (is (thrown? java.io.EOFException (read-json "")))) + +(deftest can-accept-eof + (is (= ::eof (read-json "" true false ::eof)))) + ;;; Pretty-printer (deftest pretty-printing |