From 127377c7113d1f01bafbb09b6d6730e9d8e5ac2e Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Mon, 23 Mar 2015 00:52:07 +0200 Subject: [PATCH] Add a few tests for jsone.el * test/automated/json-tests.el: New file. --- test/ChangeLog | 4 ++++ test/automated/json-tests.el | 46 ++++++++++++++++++++++++++++++++++++ 2 files changed, 50 insertions(+) create mode 100644 test/automated/json-tests.el diff --git a/test/ChangeLog b/test/ChangeLog index 15408a3c970..b12e9c044f5 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,7 @@ +2015-03-22 Dmitry Gutov + + * automated/json-tests.el: New file. + 2015-03-19 Stefan Monnier * automated/eieio-tests.el (eieio-test-17-virtual-slot): Don't use 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 + +;; 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 . + +;;; 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 -- 2.39.5