/[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.12 by dirk, Thu Nov 22 21:33:15 2001 UTC revision 1.13 by mvo, Mon Mar 11 19:10:28 2002 UTC
# Line 1421  Line 1421 
1421    
1422      (pass-if-exception "(/ +i 0.0)"      (pass-if-exception "(/ +i 0.0)"
1423        exception:numerical-overflow        exception:numerical-overflow
1424        (/ +i 0.0))))        (/ +i 0.0)))
1425    
1426      (with-test-prefix "complex division"
1427    
1428        (pass-if "(/ 3+4i)"
1429          (= (/ 3+4i) 0.12-0.16i))
1430    
1431        (pass-if "(/ 4+3i)"
1432          (= (/ 4+3i) 0.16-0.12i))
1433    
1434        (pass-if "(/ 25+125i 3+4i)"
1435          (= (/ 25+125i 3+4i) 23.0+11.0i))
1436    
1437        (pass-if "(/ 25+125i 4+3i)"
1438          (= (/ 25+125i 4+3i) 19.0+17.0i))
1439    
1440        (pass-if "(/ 25 3+4i)"
1441          (= (/ 25 3+4i) 3.0-4.0i))
1442    
1443        (pass-if "(/ 25 4+3i)"
1444          (= (/ 25 4+3i) 4.0-3.0i))
1445    
1446        (pass-if "(/ 1e200+1e200i)"
1447          (= (/ 1e200+1e200i) 5.0e-201-5.0e-201i))))
1448    
1449  ;;;  ;;;
1450  ;;; truncate  ;;; truncate

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

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