diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/json-tests.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/test/src/json-tests.el b/test/src/json-tests.el index 7d824b5c953..383991b0736 100644 --- a/test/src/json-tests.el +++ b/test/src/json-tests.el | |||
| @@ -76,7 +76,8 @@ | |||
| 76 | (should (equal (json-serialize '(abc [1 2 t] :def :null)) | 76 | (should (equal (json-serialize '(abc [1 2 t] :def :null)) |
| 77 | "{\"abc\":[1,2,true],\"def\":null}")) | 77 | "{\"abc\":[1,2,true],\"def\":null}")) |
| 78 | (should-error (json-serialize '#1=(:a 1 . #1#)) :type 'circular-list) | 78 | (should-error (json-serialize '#1=(:a 1 . #1#)) :type 'circular-list) |
| 79 | (should-error (json-serialize '#1=(:a 1 :b . #1#)) :type 'circular-list) | 79 | (should-error (json-serialize '#1=(:a 1 :b . #1#)):type '(circular-list |
| 80 | wrong-type-argument)) | ||
| 80 | (should-error (json-serialize '(:foo "bar" (unexpected-alist-key . 1))) | 81 | (should-error (json-serialize '(:foo "bar" (unexpected-alist-key . 1))) |
| 81 | :type 'wrong-type-argument) | 82 | :type 'wrong-type-argument) |
| 82 | (should-error (json-serialize '((abc . "abc") :unexpected-plist-key "key")) | 83 | (should-error (json-serialize '((abc . "abc") :unexpected-plist-key "key")) |