Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
2074:6b474cf582aa 2075:c0dad8c0e80d
502 (Check-Error wrong-type-argument (% 10 2.0)) 502 (Check-Error wrong-type-argument (% 10 2.0))
503 503
504 (flet ((test1 (x) (Assert (eql x (+ (% x 17) (* (/ x 17) 17))) x)) 504 (flet ((test1 (x) (Assert (eql x (+ (% x 17) (* (/ x 17) 17))) x))
505 (test2 (x) (Assert (eql (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) x)) 505 (test2 (x) (Assert (eql (- x) (+ (% (- x) 17) (* (/ (- x) 17) 17))) x))
506 (test3 (x) (Assert (eql x (+ (% (- x) 17) (* (/ (- x) 17) 17))) x)) 506 (test3 (x) (Assert (eql x (+ (% (- x) 17) (* (/ (- x) 17) 17))) x))
507 (test4 (x) (Assert (eql (% x -17) (- (% (- x) 17))) x))) 507 (test4 (x) (Assert (eql (% x -17) (- (% (- x) 17))) x))
508 (test5 (x) (Assert (eql (% x -17) (% (- x) 17))) x))
508 (test1 most-negative-fixnum) 509 (test1 most-negative-fixnum)
509 (if (featurep 'bignum) 510 (if (featurep 'bignum)
510 (test2 most-negative-fixnum) 511 (progn
511 (test3 most-negative-fixnum)) 512 (test2 most-negative-fixnum)
512 (test4 most-negative-fixnum) 513 (test4 most-negative-fixnum))
514 (test3 most-negative-fixnum)
515 (test5 most-negative-fixnum))
513 (test1 most-positive-fixnum) 516 (test1 most-positive-fixnum)
514 (test2 most-positive-fixnum) 517 (test2 most-positive-fixnum)
515 (test4 most-positive-fixnum) 518 (test4 most-positive-fixnum)
516 (dotimes (j 30) 519 (dotimes (j 30)
517 (let ((x (random))) 520 (let ((x (random)))