From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 30 Nov 2018 04:13:51 +0000 (+0000)
Subject: Test sqrt along the negative real line with/without inexact imaginary part.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~108
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=00fbf10ab0d730bfaf610cf6f8057b9876d72b86;p=mit-scheme.git

Test sqrt along the negative real line with/without inexact imaginary part.
---

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 ()