From 25e46b8d3f3b008475ba266e0345b2305b8988be Mon Sep 17 00:00:00 2001 From: Taylor R Campbell 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