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."
   (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