summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2002-05-07 18:10:59 +0000
committerMarius Vollmer <mvo@zagadka.de>2002-05-07 18:10:59 +0000
commitcdf52e3dcea4ea0f43a1aef71b7194738aa655b7 (patch)
tree9374d338bf44263bbc19e26d667745b048bee110
parent002409fe6f0a049c548a1fcbfcbcbf078818ddd3 (diff)
downloadguile-cdf52e3dcea4ea0f43a1aef71b7194738aa655b7.tar.gz
(/): Expect divison by an inexact zero to yield +inf.0.
-rw-r--r--test-suite/tests/numbers.test25
1 files changed, 10 insertions, 15 deletions
diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test
index e0577a008..951325f71 100644
--- a/test-suite/tests/numbers.test
+++ b/test-suite/tests/numbers.test
@@ -1387,41 +1387,36 @@
exception:numerical-overflow
(/ 0))
- (pass-if-exception "(/ 0.0)"
- exception:numerical-overflow
- (/ 0.0))
+ (pass-if "(/ 0.0)"
+ (= +inf.0 (/ 0.0)))
(pass-if-exception "(/ 1 0)"
exception:numerical-overflow
(/ 1 0))
- (pass-if-exception "(/ 1 0.0)"
- exception:numerical-overflow
- (/ 1 0.0))
+ (pass-if "(/ 1 0.0)"
+ (= +inf.0 (/ 1 0.0)))
(pass-if-exception "(/ bignum 0)"
exception:numerical-overflow
(/ (+ fixnum-max 1) 0))
- (pass-if-exception "(/ bignum 0.0)"
- exception:numerical-overflow
- (/ (+ fixnum-max 1) 0.0))
+ (pass-if "(/ bignum 0.0)"
+ (= +inf.0 (/ (+ fixnum-max 1) 0.0)))
(pass-if-exception "(/ 1.0 0)"
exception:numerical-overflow
(/ 1.0 0))
- (pass-if-exception "(/ 1.0 0.0)"
- exception:numerical-overflow
- (/ 1.0 0.0))
+ (pass-if "(/ 1.0 0.0)"
+ (= +inf.0 (/ 1.0 0.0)))
(pass-if-exception "(/ +i 0)"
exception:numerical-overflow
(/ +i 0))
- (pass-if-exception "(/ +i 0.0)"
- exception:numerical-overflow
- (/ +i 0.0)))
+ (pass-if "(/ +i 0.0)"
+ (= +inf.0 (imag-part (/ +i 0.0)))))
(with-test-prefix "complex division"