Mercurial > hg > xemacs-beta

changeset 2075:c0dad8c0e80d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-05-13 15:33:15 by james] Fix assertion failure noted by Malcolm Purvis, due to the fact that (eq (- most-negative-fixnum) most-negative-fixnum).
author james
date Thu, 13 May 2004 15:33:18 +0000
parents 6b474cf582aa
children 58228a446857
files tests/ChangeLog tests/automated/lisp-tests.el
diffstat 2 files changed, 12 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/tests/ChangeLog	Wed May 12 21:50:57 2004 +0000
+++ b/tests/ChangeLog	Thu May 13 15:33:18 2004 +0000
@@ -1,3 +1,8 @@
+2004-05-13  Jerry James  <james@xemacs.org>
+
+	* automated/lisp-tests:el: Another test fix because
+	(eq most-negative-fixnum (- most-negative-fixnum)).
+
 2004-05-11  Vin Shelton  <acs@xemacs.org>
 
 	* automated/tag-test.el: Use a temp directory to avoid conflicts
--- a/tests/automated/lisp-tests.el	Wed May 12 21:50:57 2004 +0000
+++ b/tests/automated/lisp-tests.el	Thu May 13 15:33:18 2004 +0000
@@ -504,12 +504,15 @@
 (flet ((test1 (x) (Assert (eql x (+ (% x 17) (* (/ x 17) 17))) x))
        (test2 (x) (Assert (eql (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) x))
        (test3 (x) (Assert (eql x (+ (% (- x) 17) (* (/ (- x) 17) 17))) x))
-       (test4 (x) (Assert (eql (% x -17) (- (% (- x) 17))) x)))
+       (test4 (x) (Assert (eql (% x -17) (- (% (- x) 17))) x))
+       (test5 (x) (Assert (eql (% x -17) (% (- x) 17))) x))
   (test1 most-negative-fixnum)
   (if (featurep 'bignum)
-      (test2 most-negative-fixnum) 
-    (test3 most-negative-fixnum))
-  (test4 most-negative-fixnum)
+      (progn
+	(test2 most-negative-fixnum)
+	(test4 most-negative-fixnum))
+    (test3 most-negative-fixnum)
+    (test5 most-negative-fixnum))
   (test1 most-positive-fixnum)
   (test2 most-positive-fixnum)
   (test4 most-positive-fixnum)