diff options
author | Tim King <kingtim@gmail.com> | 2012-06-20 07:42:52 -0700 |
---|---|---|
committer | Tim King <kingtim@gmail.com> | 2012-06-20 07:42:52 -0700 |
commit | 037007ba3254c82168bfbffdf11a8cb3a7c76a51 (patch) | |
tree | 777befae2f991b3e06e94092952592dd7e63ec36 /test | |
parent | e1042e258a5d1d1de8bc9f95e300ed3baad14989 (diff) |
fix decoding of multibyte netstrings
Diffstat (limited to 'test')
-rw-r--r-- | test/nrepl-tests.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test/nrepl-tests.el b/test/nrepl-tests.el index a09f9e2a..bc1866f6 100644 --- a/test/nrepl-tests.el +++ b/test/nrepl-tests.el @@ -110,3 +110,17 @@ applying f to that result and the 2nd item, etc. If coll contains no items, returns val and f is not called. 7:session36:6fc999d0-3795-4d51-85fc-ccca7537ee57ed2:id2:182:ns4:user7:session36:6fc999d0-3795-4d51-85fc-ccca7537ee575:value3:niled2:id2:187:session36:6fc999d0-3795-4d51-85fc-ccca7537ee576:statusl4:doneee")))) + +(ert-deftest test-nrepl-decode-nrepl-response-multibyte () + (assert (equal '((dict + ("id" . "42") + ("ns" . "user") + ("session" . "3f586403-ed47-4e4d-b8db-70522054f971") + ("value" . "\"←\"")) + (dict + ("id". "42") + ("session" . "3f586403-ed47-4e4d-b8db-70522054f971") + ("status" "done"))) + (nrepl-decode + "d2:id2:422:ns4:user7:session36:3f586403-ed47-4e4d-b8db-70522054f9715:value5:\"←\"ed2:id2:427:session36:3f586403-ed47-4e4d-b8db-70522054f9716:statusl4:doneee")))) + |