1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
(/): New tests.

(this 1e200 was from the head, but that value is not exactly
representable and will be rounded, so don't worry that it doesn't come
out precise)
This commit is contained in:
Kevin Ryde 2005-04-29 23:35:47 +00:00
parent c5df3dcc7a
commit 059fed0e6f

View file

@ -1396,10 +1396,7 @@
(= (/ 3+4i) 0.12-0.16i))
(pass-if "(/ 4+3i)"
(= (/ 4+3i) 0.16-0.12i))
(pass-if "(/ 1e200+1e200i)"
(= (/ 1e200+1e200i) 5.0e-201-5.0e-201i)))
(= (/ 4+3i) 0.16-0.12i)))
(with-test-prefix "inum/complex"