From 059fed0e6f0a44b9be4923baffffa2756da58fa8 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Fri, 29 Apr 2005 23:35:47 +0000 Subject: [PATCH] Less of: (/): 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) --- test-suite/tests/numbers.test | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test index d56a4d883..17558cfc4 100644 --- a/test-suite/tests/numbers.test +++ b/test-suite/tests/numbers.test @@ -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"