/[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.13 by mvo, Mon Mar 11 19:10:28 2002 UTC revision 1.14 by mvo, Tue May 7 18:10:59 2002 UTC
# Line 1387  Line 1387 
1387        exception:numerical-overflow        exception:numerical-overflow
1388        (/ 0))        (/ 0))
1389    
1390      (pass-if-exception "(/ 0.0)"      (pass-if "(/ 0.0)"
1391        exception:numerical-overflow        (= +inf.0 (/ 0.0)))
       (/ 0.0))  
1392    
1393      (pass-if-exception "(/ 1 0)"      (pass-if-exception "(/ 1 0)"
1394        exception:numerical-overflow        exception:numerical-overflow
1395        (/ 1 0))        (/ 1 0))
1396    
1397      (pass-if-exception "(/ 1 0.0)"      (pass-if "(/ 1 0.0)"
1398        exception:numerical-overflow        (= +inf.0 (/ 1 0.0)))
       (/ 1 0.0))  
1399    
1400      (pass-if-exception "(/ bignum 0)"      (pass-if-exception "(/ bignum 0)"
1401        exception:numerical-overflow        exception:numerical-overflow
1402        (/ (+ fixnum-max 1) 0))        (/ (+ fixnum-max 1) 0))
1403    
1404      (pass-if-exception "(/ bignum 0.0)"      (pass-if "(/ bignum 0.0)"
1405        exception:numerical-overflow        (= +inf.0 (/ (+ fixnum-max 1) 0.0)))
       (/ (+ fixnum-max 1) 0.0))  
1406    
1407      (pass-if-exception "(/ 1.0 0)"      (pass-if-exception "(/ 1.0 0)"
1408        exception:numerical-overflow        exception:numerical-overflow
1409        (/ 1.0 0))        (/ 1.0 0))
1410    
1411      (pass-if-exception "(/ 1.0 0.0)"      (pass-if "(/ 1.0 0.0)"
1412        exception:numerical-overflow        (= +inf.0 (/ 1.0 0.0)))
       (/ 1.0 0.0))  
1413    
1414      (pass-if-exception "(/ +i 0)"      (pass-if-exception "(/ +i 0)"
1415        exception:numerical-overflow        exception:numerical-overflow
1416        (/ +i 0))        (/ +i 0))
1417    
1418      (pass-if-exception "(/ +i 0.0)"      (pass-if "(/ +i 0.0)"
1419        exception:numerical-overflow        (= +inf.0 (imag-part (/ +i 0.0)))))
       (/ +i 0.0)))  
1420    
1421    (with-test-prefix "complex division"    (with-test-prefix "complex division"
1422    

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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