mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 08:20:20 +02:00
Code Activity

(/): Expect divison by an inexact zero to yield +inf.0.

Browse source
This commit is contained in:
Marius Vollmer 2002-05-07 18:10:59 +00:00
parent 002409fe6f
commit cdf52e3dce
1 changed files with 10 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

25
test-suite/tests/numbers.test
View file

@ -1387,41 +1387,36 @@
exception:numerical-overflow exception:numerical-overflow
(/ 0)) (/ 0))
(pass-if-exception "(/ 0.0)" (pass-if "(/ 0.0)"
exception:numerical-overflow (= +inf.0 (/ 0.0)))
(/ 0.0))
(pass-if-exception "(/ 1 0)" (pass-if-exception "(/ 1 0)"
exception:numerical-overflow exception:numerical-overflow
(/ 1 0)) (/ 1 0))
(pass-if-exception "(/ 1 0.0)" (pass-if "(/ 1 0.0)"
exception:numerical-overflow (= +inf.0 (/ 1 0.0)))
(/ 1 0.0))
(pass-if-exception "(/ bignum 0)" (pass-if-exception "(/ bignum 0)"
exception:numerical-overflow exception:numerical-overflow
(/ (+ fixnum-max 1) 0)) (/ (+ fixnum-max 1) 0))
(pass-if-exception "(/ bignum 0.0)" (pass-if "(/ bignum 0.0)"
exception:numerical-overflow (= +inf.0 (/ (+ fixnum-max 1) 0.0)))
(/ (+ fixnum-max 1) 0.0))
(pass-if-exception "(/ 1.0 0)" (pass-if-exception "(/ 1.0 0)"
exception:numerical-overflow exception:numerical-overflow
(/ 1.0 0)) (/ 1.0 0))
(pass-if-exception "(/ 1.0 0.0)" (pass-if "(/ 1.0 0.0)"
exception:numerical-overflow (= +inf.0 (/ 1.0 0.0)))
(/ 1.0 0.0))
(pass-if-exception "(/ +i 0)" (pass-if-exception "(/ +i 0)"
exception:numerical-overflow exception:numerical-overflow
(/ +i 0)) (/ +i 0))
(pass-if-exception "(/ +i 0.0)" (pass-if "(/ +i 0.0)"
exception:numerical-overflow (= +inf.0 (imag-part (/ +i 0.0)))))
(/ +i 0.0)))
(with-test-prefix "complex division" (with-test-prefix "complex division"