From 25e46b8d3f3b008475ba266e0345b2305b8988be Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 1 Dec 2018 02:07:03 +0000
Subject: [PATCH] Sqrt is busted on sone mixed-infinite/exact cases.

---
 tests/runtime/test-arith.scm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

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)
-- 
2.25.1