diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/editfns-tests.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/test/src/editfns-tests.el b/test/src/editfns-tests.el index c828000bb4f..2951270dbf7 100644 --- a/test/src/editfns-tests.el +++ b/test/src/editfns-tests.el | |||
| @@ -165,10 +165,12 @@ | |||
| 165 | :type 'overflow-error) | 165 | :type 'overflow-error) |
| 166 | (should-error (read (substring (format "%d" most-negative-fixnum) 1)) | 166 | (should-error (read (substring (format "%d" most-negative-fixnum) 1)) |
| 167 | :type 'overflow-error) | 167 | :type 'overflow-error) |
| 168 | (should-error (read (format "#x%x" most-negative-fixnum)) | 168 | (let ((binary-as-unsigned nil)) |
| 169 | :type 'overflow-error) | 169 | (dolist (fmt '("%d" "%s" "#o%o" "#x%x")) |
| 170 | (should-error (read (format "#o%o" most-negative-fixnum)) | 170 | (dolist (val (list most-negative-fixnum (1+ most-negative-fixnum) |
| 171 | :type 'overflow-error) | 171 | -1 0 1 |
| 172 | (1- most-positive-fixnum) most-positive-fixnum)) | ||
| 173 | (should (eq val (read (format fmt val))))))) | ||
| 172 | (should-error (read (format "#32rG%x" most-positive-fixnum)) | 174 | (should-error (read (format "#32rG%x" most-positive-fixnum)) |
| 173 | :type 'overflow-error)) | 175 | :type 'overflow-error)) |
| 174 | 176 | ||