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