From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 30 Nov 2018 03:04:11 +0000 (+0000)
Subject: Couple more sqrt edge cases.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~111
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b248750f3f9448e6b2eb9a1e0ed1166b606dd925;p=mit-scheme.git

Couple more sqrt edge cases.
---

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index 4c6c984d0..d20f6a306 100644
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -722,6 +722,10 @@ USA.
     (+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)
+    (+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)