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 e366aa8d311bb1fdafe82f962e7102bdc07af582..a819b51a65f0417b2d73b7d7873d7bff3e53accd 100644 (file)
--- 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)