More sqrt edge cases, some working and some busted.

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index d20f6a306b1f6c0270055317805b732adf4530a7..a3edece17bc6aec3e847b55934904434315d336b 100644 (file)
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -713,13 +713,19 @@ USA.
     (-0.i 0.-0.i)
     (-0.+0.i +0.+0.i)
     (-0.-0.i +0.-0.i)
+    (-4.+0.i 0.+2.i ,expect-failure)
+    (-4.-0.i 0.-2.i ,expect-failure)
     ;; Treat infinities carefully around branch cuts.
     (-inf.0 +inf.0i)
     (+inf.0 +inf.0)
+    (-inf.0+0.i +inf.0i ,expect-failure)
+    (+inf.0+0.i +inf.0i ,expect-error)
     (-inf.0+1.i +inf.0i ,expect-failure)
     (+inf.0+1.i +inf.0 ,expect-error)
-    (-inf.0-1.i +inf.0i ,expect-failure)
-    (+inf.0-1.i +inf.0 ,expect-error)
+    (-inf.0-0.i -inf.0i ,expect-failure)
+    (+inf.0-0.i -inf.0i ,expect-error)
+    (-inf.0-1.i -inf.0i ,expect-failure)
+    (+inf.0-1.i -inf.0 ,expect-error)
     (-inf.0i +inf.0-inf.0i)
     (+inf.0i +inf.0+inf.0i)
     (+0.-inf.0i +inf.0-inf.0i)
@@ -729,7 +735,11 @@ USA.
     (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)
+    (-inf.0-inf.0i +inf.0-inf.0i))
   (lambda (z r #!optional xfail)
     (with-expected-failure xfail
       (lambda ()