]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix json-serialize/object test failure
authorPip Cet <pipcet@gmail.com>
Sat, 29 Jun 2019 05:01:00 +0000 (22:01 -0700)
committerPaul Eggert <eggert@cs.ucla.edu>
Sat, 29 Jun 2019 05:02:02 +0000 (22:02 -0700)
* test/src/json-tests.el (json-serialize/object):
Accept failure with different code.

test/src/json-tests.el

index 7d824b5c953c99f483275d76a89ed8ff1da55d6b..383991b07363a8b30b2b0f70523adc22dfadc344 100644 (file)
@@ -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"))