From 8decc1174e17beb02a229f3239c320be4cf8c571 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 18 Nov 2018 03:56:31 +0000 Subject: [PATCH] Test some complex cases. We lose on signed zero (again). --- tests/runtime/test-numpar.scm | 9 +++++++++ 1 file changed, 9 insertions(+) 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) -- 2.25.1