From e9187e18e45051af8c7841a07e0dab0b5bebcddc Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Fri, 30 Nov 2018 03:11:48 +0000 Subject: [PATCH] More sqrt edge cases, some working and some busted. --- tests/runtime/test-arith.scm | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm index d20f6a306..a3edece17 100644 --- a/tests/runtime/test-arith.scm +++ b/tests/runtime/test-arith.scm @@ -713,13 +713,19 @@ USA. (-0.i 0.-0.i) (-0.+0.i +0.+0.i) (-0.-0.i +0.-0.i) + (-4.+0.i 0.+2.i ,expect-failure) + (-4.-0.i 0.-2.i ,expect-failure) ;; 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-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.0i +inf.0-inf.0i) (+inf.0i +inf.0+inf.0i) (+0.-inf.0i +inf.0-inf.0i) @@ -729,7 +735,11 @@ USA. (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) + (-inf.0-inf.0i +inf.0-inf.0i)) (lambda (z r #!optional xfail) (with-expected-failure xfail (lambda () -- 2.25.1