From 469b963c661fe72f218e7765adfa1ef37952c7f0 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Mon, 11 Mar 2002 19:10:28 +0000 Subject: [PATCH] New tests for complex division. --- test-suite/tests/numbers.test | 25 ++++++++++++++++++++++++- 1 file changed, 24 insertions(+), 1 deletion(-) diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test index 03998bd41..e0577a008 100644 --- a/test-suite/tests/numbers.test +++ b/test-suite/tests/numbers.test @@ -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