Some more cases.

diff --git a/tests/runtime/test-numpar.scm b/tests/runtime/test-numpar.scm
index 93b567b796960f86378417ee8dcf159447fca230..c39fd73664d0f2dd2c300a865804d94c1a28c142 100644 (file)
--- a/tests/runtime/test-numpar.scm
+++ b/tests/runtime/test-numpar.scm
@@ -133,3 +133,14 @@ USA.
 (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 "2" (make-rectangular 2 0))
+(define-eqv-test "-2" (make-rectangular -2 0))
+(define-eqv-test "2+0i" (make-rectangular 2 0))
+(define-eqv-test "2-0i" (make-rectangular 2 0))
+(define-eqv-test "-2+0i" (make-rectangular -2 0))
+(define-eqv-test "-2-0i" (make-rectangular -2 0))
+(define-eqv-test "2+0.i" (make-rectangular 2 0.))
+(define-eqv-test "-2+0.i" (make-rectangular -2 0.))
+(define-eqv-test "2-0.i" (make-rectangular 2 -0.))
+(define-eqv-test "-2-0.i" (make-rectangular -2 -0.))