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.
2018-07-05 11:45:21 -06:00
parent 6d4bf2ceda
commit 23eab9a6a6
2 changed files with 13 additions and 0 deletions
--- 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."
  (should-not (fixnump (+ most-positive-fixnum 1)))
  (should (bignump (+ most-positive-fixnum 1))))

+(ert-deftest data-tests-number-to-string ()
+  (let* ((s "99999999999999999999999999999")
+         (v (read s)))
+    (should (equal (number-to-string v) s))))
+
 ;;; data-tests.el ends here