/[guile]/guile/guile-core/test-suite/tests/numbers.test
ViewVC logotype

Diff of /guile/guile-core/test-suite/tests/numbers.test

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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"

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26