diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2015-03-23 00:52:07 +0200 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2015-03-23 00:52:07 +0200 |
| commit | 127377c7113d1f01bafbb09b6d6730e9d8e5ac2e (patch) | |
| tree | 260f62cbc17006942c04fc7dea0d44cecddd16fb /test/automated/json-tests.el | |
| parent | a3b6c249e9757761404c1f7a57de4217dcc2e583 (diff) | |
| download | emacs-127377c7113d1f01bafbb09b6d6730e9d8e5ac2e.tar.gz emacs-127377c7113d1f01bafbb09b6d6730e9d8e5ac2e.tar.bz2 emacs-127377c7113d1f01bafbb09b6d6730e9d8e5ac2e.zip | |
Add a few tests for jsone.el
* test/automated/json-tests.el: New file.
Diffstat (limited to 'test/automated/json-tests.el')
| -rw-r--r-- | test/automated/json-tests.el | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/test/automated/json-tests.el b/test/automated/json-tests.el new file mode 100644 index 00000000000..378472e19e5 --- /dev/null +++ b/test/automated/json-tests.el @@ -0,0 +1,46 @@ +;;; json-tests.el --- Test suite for json.el + +;; Copyright (C) 2015 Dmitry Gutov + +;; Author: Dmitry Gutov <dgutov@yandex.ru> + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see <http://www.gnu.org/licenses/>. + +;;; Code: + +(require 'ert) +(require 'json) + +(ert-deftest json-encode-simple-alist () + (should (equal (json-encode '((a . 1) + (b . 2))) + "{\"a\":1,\"b\":2}"))) + +(ert-deftest json-read-simple-alist () + (should (equal (json-read-from-string "{\"a\": 1, \"b\": 2}") + '((b . 2) + (a . 1))))) + +(ert-deftest json-encode-string-with-special-chars () + (should (equal (json-encode-string "a\n\fb") + "\"a\\n\\fb\"")) + (should (equal (json-encode-string "\nasdфывfgh\t") + "\"\\nasd\\u0444\\u044b\\u0432fgh\\t\""))) + +(ert-deftest json-read-string-with-special-chars () + (should (equal (json-read-from-string "\"\\nasd\\u0444\\u044b\\u0432fgh\\t\"") + "\nasdфывfgh\t"))) + +(provide 'json-tests) +;;; json-tests.el ends here |