From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 1 Dec 2018 02:07:03 +0000 (+0000)
Subject: Sqrt is busted on sone mixed-infinite/exact cases.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~79
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=25e46b8d3f3b008475ba266e0345b2305b8988be;p=mit-scheme.git

Sqrt is busted on sone mixed-infinite/exact cases.
---

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index 9c02f2f71..025c5d4b6 100644
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -761,23 +761,39 @@ USA.
     (-inf.0 +inf.0i)
     (+inf.0 +inf.0)
     (-inf.0+0.i 0.+inf.0i)
+    (-inf.0+0i 0+inf.0i)
     (+inf.0+0.i +inf.0+0.i)
+    (+inf.0+0i +inf.0+0i)
     (-inf.0+1.i 0.+inf.0i)
+    (-inf.0+1i 0.+inf.0i ,expect-error)
     (+inf.0+1.i +inf.0+0.i)
+    (+inf.0+1i +inf.0+0.i ,expect-error)
     (-inf.0-0.i 0.-inf.0i)
+    (-inf.0-0i 0+inf.0i)                ;no exact signed zero
     (+inf.0-0.i +inf.0-0.i)
+    (+inf.0-0i +inf.0-0i)
     (-inf.0-1.i 0.-inf.0i)
+    (-inf.0-1i 0.-inf.0i ,expect-error)
     (+inf.0-1.i +inf.0-0.i)
+    (+inf.0-1i +inf.0-0.i ,expect-error)
     (-inf.0i +inf.0-inf.0i)
     (+inf.0i +inf.0+inf.0i)
     (+0.-inf.0i +inf.0-inf.0i)
+    (+0-inf.0i +inf.0-inf.0i)
     (+0.+inf.0i +inf.0+inf.0i)
+    (+0+inf.0i +inf.0+inf.0i)
     (-0.-inf.0i +inf.0-inf.0i)
+    (-0-inf.0i +inf.0-inf.0i)
     (-0.+inf.0i +inf.0+inf.0i)
+    (-0+inf.0i +inf.0+inf.0i)
     (1.-inf.0i +inf.0-inf.0i)
+    (1-inf.0i +inf.0-inf.0i)
     (1.+inf.0i +inf.0+inf.0i)
+    (1+inf.0i +inf.0+inf.0i)
     (-1.-inf.0i +inf.0-inf.0i)
+    (-1-inf.0i +inf.0-inf.0i)
     (-1.+inf.0i +inf.0+inf.0i)
+    (-1+inf.0i +inf.0+inf.0i)
     (+inf.0+inf.0i +inf.0+inf.0i)
     (+inf.0-inf.0i +inf.0-inf.0i)
     (-inf.0+inf.0i +inf.0+inf.0i)