diff options
| author | Philipp Stephani <phst@google.com> | 2017-05-20 17:49:06 +0200 |
|---|---|---|
| committer | Philipp Stephani <phst@google.com> | 2017-05-21 23:03:01 +0200 |
| commit | 32f80eb678c4dc6335063cc39975bbce2766829a (patch) | |
| tree | 2b50a491868c30fa73b1558212f12fd03a3e09ed /test/lisp/json-tests.el | |
| parent | 140aefc341da9cc865971d393071be029ff8b3c5 (diff) | |
| download | emacs-32f80eb678c4dc6335063cc39975bbce2766829a.tar.gz | |
Fix definition of whitespace in JSON
See
https://lists.gnu.org/archive/html/emacs-devel/2017-05/msg00115.html.
* lisp/json.el (json-skip-whitespace): Fix definition.
* test/lisp/json-tests.el (test-json-skip-whitespace): Adapt unit
test.
Diffstat (limited to 'test/lisp/json-tests.el')
| -rw-r--r-- | test/lisp/json-tests.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/test/lisp/json-tests.el b/test/lisp/json-tests.el index 38672de0664..c6bd295d667 100644 --- a/test/lisp/json-tests.el +++ b/test/lisp/json-tests.el @@ -89,7 +89,10 @@ Point is moved to beginning of the buffer." (ert-deftest test-json-skip-whitespace () (json-tests--with-temp-buffer "\t\r\n\f\b { \"a\": 1 }" (json-skip-whitespace) - (should (equal (char-after (point)) ?{)))) + (should (equal (char-after) ?\f))) + (json-tests--with-temp-buffer "\t\r\n\t { \"a\": 1 }" + (json-skip-whitespace) + (should (equal (char-after) ?{)))) ;;; Paths |