From 9b8a2d7582c8f41a99e114920b0ae9e4fe86688b Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Fri, 30 Nov 2018 04:24:20 +0000 Subject: [PATCH] Sqrt shouldn't discard an inexact zero imaginary component. --- tests/runtime/test-arith.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm index ce4947c01..b4c0191b5 100644 --- a/tests/runtime/test-arith.scm +++ b/tests/runtime/test-arith.scm @@ -719,14 +719,14 @@ USA. ;; 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-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+0.i 0.+inf.0i ,expect-failure) + (+inf.0+0.i +inf.0+0.i ,expect-error) + (-inf.0+1.i 0.+inf.0i ,expect-failure) + (+inf.0+1.i +inf.0+0.i ,expect-error) + (-inf.0-0.i 0.-inf.0i ,expect-failure) + (+inf.0-0.i +inf.0-0.i ,expect-error) + (-inf.0-1.i 0.-inf.0i ,expect-failure) + (+inf.0-1.i +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) -- 2.25.1