From 7f27d42f0b64c74625e45909a0bf389d68eddc62 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Fri, 16 Feb 2018 17:11:49 +0000 Subject: Pass json-readtable-error data as a list (bug#30489) * lisp/json.el (json-readtable-dispatch): Fix error data. * test/lisp/json-tests.el (test-json-read): Check error data is a list. --- test/lisp/json-tests.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'test/lisp/json-tests.el') diff --git a/test/lisp/json-tests.el b/test/lisp/json-tests.el index 47f8047b349..ea562e8b134 100644 --- a/test/lisp/json-tests.el +++ b/test/lisp/json-tests.el @@ -309,7 +309,8 @@ Point is moved to beginning of the buffer." (json-tests--with-temp-buffer "" (should-error (json-read) :type 'json-end-of-file)) (json-tests--with-temp-buffer "xxx" - (should-error (json-read) :type 'json-readtable-error))) + (let ((err (should-error (json-read) :type 'json-readtable-error))) + (should (equal (cdr err) '(?x)))))) (ert-deftest test-json-read-from-string () (let ((json-string "{ \"a\": 1 }")) -- cgit v1.2.3