diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/json-tests.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test/lisp/json-tests.el b/test/lisp/json-tests.el index 66fc25ad1c0..38672de0664 100644 --- a/test/lisp/json-tests.el +++ b/test/lisp/json-tests.el | |||
| @@ -167,6 +167,9 @@ Point is moved to beginning of the buffer." | |||
| 167 | (should (equal (json-read-string) "abcαβγ"))) | 167 | (should (equal (json-read-string) "abcαβγ"))) |
| 168 | (json-tests--with-temp-buffer "\"\\nasd\\u0444\\u044b\\u0432fgh\\t\"" | 168 | (json-tests--with-temp-buffer "\"\\nasd\\u0444\\u044b\\u0432fgh\\t\"" |
| 169 | (should (equal (json-read-string) "\nasdфывfgh\t"))) | 169 | (should (equal (json-read-string) "\nasdфывfgh\t"))) |
| 170 | ;; Bug#24784 | ||
| 171 | (json-tests--with-temp-buffer "\"\\uD834\\uDD1E\"" | ||
| 172 | (should (equal (json-read-string) "\U0001D11E"))) | ||
| 170 | (json-tests--with-temp-buffer "foo" | 173 | (json-tests--with-temp-buffer "foo" |
| 171 | (should-error (json-read-string) :type 'json-string-format))) | 174 | (should-error (json-read-string) :type 'json-string-format))) |
| 172 | 175 | ||