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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by mvo, Wed Nov 19 05:15:51 2003 UTC revision 1.3 by kryde, Tue Dec 2 21:24:58 2003 UTC
# Line 25  Line 25 
25    (testeqv 3/4 3000000000000/4000000000000)    (testeqv 3/4 3000000000000/4000000000000)
26    (testeqv 3 3/1)    (testeqv 3 3/1)
27    (test= 1/3 (/ 1.0 3.0))    (test= 1/3 (/ 1.0 3.0))
28    
29      (test= -1 (/ most-negative-fixnum (- most-negative-fixnum)))
30      (testeq #t (integer? (/ most-negative-fixnum (- most-negative-fixnum))))
31    
32    (testeqv (+ 1/4 1/2) 3/4)    (testeqv (+ 1/4 1/2) 3/4)
33    (testeqv (* 1/4 2/3) 1/6)    (testeqv (* 1/4 2/3) 1/6)
34    (testeqv (/ 1/4 2/3) 3/8)    (testeqv (/ 1/4 2/3) 3/8)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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