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

Less of:

Browse source 
(/): 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
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/tests/numbers.test
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"