From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 18 Nov 2018 04:00:17 +0000 (+0000)
Subject: Some more cases.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~33
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b1fc8ea5b44812950d763cf3706a95ff5a8f338a;p=mit-scheme.git

Some more cases.
---

diff --git a/tests/runtime/test-numpar.scm b/tests/runtime/test-numpar.scm
index 93b567b79..c39fd7366 100644
--- 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.))