Mercurial > hg > xemacs-beta

diff tests/automated/lisp-tests.el @ 4287:89e64783d068

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-11-27 13:51:03 by aidan] Merge a bugfix to some previously merged SXEmacs code; thank you Sebastian Freundt for the code, and Hans de Graaff for the report.
author aidan
date Tue, 27 Nov 2007 13:51:10 +0000
parents c0dad8c0e80d
children cacc942c0d0f
line wrap: on
line diff
--- a/tests/automated/lisp-tests.el	Mon Nov 26 22:51:07 2007 +0000
+++ b/tests/automated/lisp-tests.el	Tue Nov 27 13:51:10 2007 +0000
@@ -1279,6 +1279,10 @@
 (Assert (= (read (format "%d"  most-negative-fixnum)) most-negative-fixnum))
 (Assert (= (read (format "%ld" most-negative-fixnum)) most-negative-fixnum))
 
+;; These used to crash. 
+(Assert (eql (read (format "%f" 1.2e+302)) 1.2e+302))
+(Assert (eql (read (format "%.1000d" 1)) 1))
+
 ;;; "%u" is undocumented, and Emacs Lisp has no unsigned type.
 ;;; What to do if "%u" is used with a negative number?
 ;;; For non-bignum XEmacsen, the most reasonable thing seems to be to print an