Parent Directory | Revision Log | Patch
revision 1.21 by kryde, Sat May 10 00:10:40 2003 UTC | revision 1.22 by kryde, Sat May 10 00:23:00 2003 UTC | |
---|---|---|
# | Line 763 | Line 763 |
763 | (pass-if "n = fixnum-min - 1" | (pass-if "n = fixnum-min - 1" |
764 | (eqv? (- (- fixnum-min 1)) (gcd 0 (- fixnum-min 1))))) | (eqv? (- (- fixnum-min 1)) (gcd 0 (- fixnum-min 1))))) |
765 | ||
766 | (with-test-prefix "(n 0)" | |
767 | ||
768 | (pass-if "n = 2^128 * fixnum-max" | |
769 | (eqv? (ash fixnum-max 128) (gcd (ash fixnum-max 128) 0)))) | |
770 | ||
771 | (with-test-prefix "(1 n)" | (with-test-prefix "(1 n)" |
772 | ||
773 | (pass-if "n = 0" | (pass-if "n = 0" |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |