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

New tests for complex division.

Browse source
This commit is contained in:
Marius Vollmer 2002-03-11 19:10:28 +00:00
parent ba74ef4eae
commit 469b963c66
1 changed files with 24 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1421,7 +1421,30 @@
(pass-if-exception "(/ +i 0.0)"
exception:numerical-overflow
(/ +i 0.0))))
(/ +i 0.0)))
(with-test-prefix "complex division"
(pass-if "(/ 3+4i)"
(= (/ 3+4i) 0.12-0.16i))
(pass-if "(/ 4+3i)"
(= (/ 4+3i) 0.16-0.12i))
(pass-if "(/ 25+125i 3+4i)"
(= (/ 25+125i 3+4i) 23.0+11.0i))
(pass-if "(/ 25+125i 4+3i)"
(= (/ 25+125i 4+3i) 19.0+17.0i))
(pass-if "(/ 25 3+4i)"
(= (/ 25 3+4i) 3.0-4.0i))
(pass-if "(/ 25 4+3i)"
(= (/ 25 4+3i) 4.0-3.0i))
(pass-if "(/ 1e200+1e200i)"
(= (/ 1e200+1e200i) 5.0e-201-5.0e-201i))))
;;;
;;; truncate