diff options
Diffstat (limited to 'test/src/json-tests.el')
| -rw-r--r-- | test/src/json-tests.el | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/test/src/json-tests.el b/test/src/json-tests.el index 5c9be20e957..b7c17a4cf10 100644 --- a/test/src/json-tests.el +++ b/test/src/json-tests.el @@ -71,17 +71,16 @@ (should-error (json-serialize '#1=((a . 1) . #1#)) :type 'circular-list) (should-error (json-serialize '(#1=(a #1#)))) - (let ((json-serialize-use-plists t)) - (should (equal (json-serialize '(:abc [1 2 t] :def :null)) - "{\"abc\":[1,2,true],\"def\":null}")) - (should (equal (json-serialize '(abc [1 2 t] :def :null)) - "{\"abc\":[1,2,true],\"def\":null}")) - (should-error (json-serialize '#1=(:a 1 . #1#)) :type 'circular-list) - (should-error (json-serialize '((abc . 1))) :type 'wrong-type-argument) - (should-error (json-serialize '(:foo bar (abc . 1))) - :type 'wrong-type-argument) - (should-error (json-serialize '(:foo bar :odd-numbered)) - :type 'wrong-type-argument))) + (should (equal (json-serialize '(:abc [1 2 t] :def :null) t) + "{\"abc\":[1,2,true],\"def\":null}")) + (should (equal (json-serialize '(abc [1 2 t] :def :null) t) + "{\"abc\":[1,2,true],\"def\":null}")) + (should-error (json-serialize '#1=(:a 1 . #1#) t) :type 'circular-list) + (should-error (json-serialize '((abc . 1)) t) :type 'wrong-type-argument) + (should-error (json-serialize '(:foo bar (abc . 1)) t) + :type 'wrong-type-argument) + (should-error (json-serialize '(:foo bar :odd-numbered) t) + :type 'wrong-type-argument)) (ert-deftest json-serialize/object-with-duplicate-keys () (skip-unless (fboundp 'json-serialize)) |