diff options
| author | Tom Tromey | 2018-07-05 11:45:21 -0600 |
|---|---|---|
| committer | Tom Tromey | 2018-07-12 22:12:27 -0600 |
| commit | 23eab9a6a67604b5ebcdc99efc42fbfd3345c0b0 (patch) | |
| tree | 43e91de269443be121e81e69e476e46ae32089b7 /test/src | |
| parent | 6d4bf2cedab365411f0aedb373b63291086658e9 (diff) | |
| download | emacs-23eab9a6a67604b5ebcdc99efc42fbfd3345c0b0.tar.gz emacs-23eab9a6a67604b5ebcdc99efc42fbfd3345c0b0.zip | |
Make number-to-string work for bignums
* src/data.c (Fnumber_to_string): Handle bignum.
* test/src/data-tests.el (data-tests-number-to-string): New test.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/data-tests.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/src/data-tests.el b/test/src/data-tests.el index 543bb90f73f..1143028a126 100644 --- a/test/src/data-tests.el +++ b/test/src/data-tests.el | |||
| @@ -574,4 +574,9 @@ comparing the subr with a much slower lisp implementation." | |||
| 574 | (should-not (fixnump (+ most-positive-fixnum 1))) | 574 | (should-not (fixnump (+ most-positive-fixnum 1))) |
| 575 | (should (bignump (+ most-positive-fixnum 1)))) | 575 | (should (bignump (+ most-positive-fixnum 1)))) |
| 576 | 576 | ||
| 577 | (ert-deftest data-tests-number-to-string () | ||
| 578 | (let* ((s "99999999999999999999999999999") | ||
| 579 | (v (read s))) | ||
| 580 | (should (equal (number-to-string v) s)))) | ||
| 581 | |||
| 577 | ;;; data-tests.el ends here | 582 | ;;; data-tests.el ends here |