summaryrefslogtreecommitdiff
path: root/test/src/json-tests.el
diff options
context:
space:
mode:
authorPip Cet <pipcet@gmail.com>2019-06-28 22:01:00 -0700
committerPaul Eggert <eggert@cs.ucla.edu>2019-06-28 22:02:02 -0700
commitbc87ee925dfb465c32db85262fd264d25cdbecac (patch)
tree75d2e368e388baa5fd6de33b173b91b5ae180dbb /test/src/json-tests.el
parentd8aba87a0d5ef84dfedf4c6a73884fa6dc455b24 (diff)
downloademacs-bc87ee925dfb465c32db85262fd264d25cdbecac.tar.gz
Fix json-serialize/object test failure
* test/src/json-tests.el (json-serialize/object): Accept failure with different code.
Diffstat (limited to 'test/src/json-tests.el')
-rw-r--r--test/src/json-tests.el3
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 @@
(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 '#1=(:a 1 :b . #1#)) :type 'circular-list)
+ (should-error (json-serialize '#1=(:a 1 :b . #1#)):type '(circular-list
+ wrong-type-argument))
(should-error (json-serialize '(:foo "bar" (unexpected-alist-key . 1)))
:type 'wrong-type-argument)
(should-error (json-serialize '((abc . "abc") :unexpected-plist-key "key"))