diff options
author | Marius Vollmer <mvo@zagadka.de> | 2002-05-07 18:10:59 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2002-05-07 18:10:59 +0000 |
commit | cdf52e3dcea4ea0f43a1aef71b7194738aa655b7 (patch) | |
tree | 9374d338bf44263bbc19e26d667745b048bee110 | |
parent | 002409fe6f0a049c548a1fcbfcbcbf078818ddd3 (diff) | |
download | guile-cdf52e3dcea4ea0f43a1aef71b7194738aa655b7.tar.gz |
(/): Expect divison by an inexact zero to yield +inf.0.
-rw-r--r-- | test-suite/tests/numbers.test | 25 |
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" |