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

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index 9c02f2f71fb3172a946776b957debbe4c085df82..025c5d4b67f2050a9727b6d0e4c16bc7020a25b6 100644 (file)
--- 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)