Mercurial > hg > xemacs-beta

diff tests/automated/lisp-tests.el @ 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 ab71063baf27
children 89e64783d068
line wrap: on
line diff
--- 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)