From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 18 Nov 2018 03:56:31 +0000 (+0000)
Subject: Test some complex cases.  We lose on signed zero (again).
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~35
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8decc1174e17beb02a229f3239c320be4cf8c571;p=mit-scheme.git

Test some complex cases.  We lose on signed zero (again).
---

diff --git a/tests/runtime/test-numpar.scm b/tests/runtime/test-numpar.scm
index e366aa8d3..a819b51a6 100644
--- a/tests/runtime/test-numpar.scm
+++ b/tests/runtime/test-numpar.scm
@@ -124,3 +124,12 @@ USA.
 (define-eqv-test "#x-0.-0.i" -0.-0.i)
 (define-eqv-test "#x-0.+10.i" -0.+16.i)
 (define-eqv-test "#x-0.-10.i" -0.-16.i)
+
+(define-eqv-test "+2i" (make-rectangular 0 2))
+(define-eqv-test "-2i" (make-rectangular 0 -2))
+(define-eqv-test "0+2i" (make-rectangular 0 2))
+(define-eqv-test "0-2i" (make-rectangular 0 -2))
+(define-eqv-test "0.+2i" (make-rectangular +0. 2))
+(define-eqv-test "0.-2i" (make-rectangular +0. -2))
+(define-eqv-test "-0.+2i" (make-rectangular -0. 2) 'xfail)
+(define-eqv-test "-0.-2i" (make-rectangular -0. -2) 'xfail)