Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
4286:691b934b7b83 4287:89e64783d068
1277 (Assert (= (read (format "%u" most-positive-fixnum)) most-positive-fixnum)) 1277 (Assert (= (read (format "%u" most-positive-fixnum)) most-positive-fixnum))
1278 (Assert (= (read (format "%lu" most-positive-fixnum)) most-positive-fixnum)) 1278 (Assert (= (read (format "%lu" most-positive-fixnum)) most-positive-fixnum))
1279 (Assert (= (read (format "%d" most-negative-fixnum)) most-negative-fixnum)) 1279 (Assert (= (read (format "%d" most-negative-fixnum)) most-negative-fixnum))
1280 (Assert (= (read (format "%ld" most-negative-fixnum)) most-negative-fixnum)) 1280 (Assert (= (read (format "%ld" most-negative-fixnum)) most-negative-fixnum))
1281 1281
1282 ;; These used to crash.
1283 (Assert (eql (read (format "%f" 1.2e+302)) 1.2e+302))
1284 (Assert (eql (read (format "%.1000d" 1)) 1))
1285
1282 ;;; "%u" is undocumented, and Emacs Lisp has no unsigned type. 1286 ;;; "%u" is undocumented, and Emacs Lisp has no unsigned type.
1283 ;;; What to do if "%u" is used with a negative number? 1287 ;;; What to do if "%u" is used with a negative number?
1284 ;;; For non-bignum XEmacsen, the most reasonable thing seems to be to print an 1288 ;;; For non-bignum XEmacsen, the most reasonable thing seems to be to print an
1285 ;;; un-read-able number. The printed value might be useful to a human, if not 1289 ;;; un-read-able number. The printed value might be useful to a human, if not
1286 ;;; to Emacs Lisp. 1290 ;;; to Emacs Lisp.