diff options
| author | Andrea Corallo | 2020-07-07 20:44:39 +0100 |
|---|---|---|
| committer | Andrea Corallo | 2020-07-07 20:44:39 +0100 |
| commit | 3d43d45755b2c38d5378496ff6b0fc40538ee924 (patch) | |
| tree | ee43ee3f19bc6ef5cb37c2462c6876584e01364b /test/src | |
| parent | 2593bbee51f4d15d3a4fc1d4e2e3b215222f783a (diff) | |
| parent | df3ece9d2ed61c9526dbf718e3c96d72bd53dccb (diff) | |
| download | emacs-3d43d45755b2c38d5378496ff6b0fc40538ee924.tar.gz emacs-3d43d45755b2c38d5378496ff6b0fc40538ee924.zip | |
Merge remote-tracking branch 'savannah/master' into HEAD
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/json-tests.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/src/json-tests.el b/test/src/json-tests.el index 7eeef885198..028f92f29d3 100644 --- a/test/src/json-tests.el +++ b/test/src/json-tests.el | |||
| @@ -296,5 +296,17 @@ Test with both unibyte and multibyte strings." | |||
| 296 | (1+ most-positive-fixnum) | 296 | (1+ most-positive-fixnum) |
| 297 | (1- most-negative-fixnum))))) | 297 | (1- most-negative-fixnum))))) |
| 298 | 298 | ||
| 299 | (ert-deftest json-parse-string/wrong-type () | ||
| 300 | "Check that Bug#42113 is fixed." | ||
| 301 | (skip-unless (fboundp 'json-parse-string)) | ||
| 302 | (should-error (json-parse-string 1) :type 'wrong-type-argument)) | ||
| 303 | |||
| 304 | (ert-deftest json-serialize/wrong-hash-key-type () | ||
| 305 | "Check that Bug#42113 is fixed." | ||
| 306 | (skip-unless (fboundp 'json-serialize)) | ||
| 307 | (let ((table (make-hash-table :test #'eq))) | ||
| 308 | (puthash 1 2 table) | ||
| 309 | (should-error (json-serialize table) :type 'wrong-type-argument))) | ||
| 310 | |||
| 299 | (provide 'json-tests) | 311 | (provide 'json-tests) |
| 300 | ;;; json-tests.el ends here | 312 | ;;; json-tests.el ends here |