From 00fbf10ab0d730bfaf610cf6f8057b9876d72b86 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Fri, 30 Nov 2018 04:13:51 +0000 Subject: [PATCH] Test sqrt along the negative real line with/without inexact imaginary part. --- tests/runtime/test-arith.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm index 7d8ae81d5..ce4947c01 100644 --- a/tests/runtime/test-arith.scm +++ b/tests/runtime/test-arith.scm @@ -740,7 +740,15 @@ USA. (+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 +inf.0-inf.0i) + ;; Square root of negative real should be purely imaginary, whether + ;; exact or inexact. + (-4 +2i) + (-4. +2.i) + ;; Square root of negative real with inexact zero imaginary part + ;; should be imaginary with inexact zero real part. + (-4.+0.i 0.+2.i ,expect-failure) + (-4.-0.i 0.-2.i ,expect-failure)) (lambda (z r #!optional xfail) (with-expected-failure xfail (lambda () -- 2.25.1