From b1fc8ea5b44812950d763cf3706a95ff5a8f338a Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 18 Nov 2018 04:00:17 +0000 Subject: [PATCH] Some more cases. --- tests/runtime/test-numpar.scm | 11 +++++++++++ 1 file changed, 11 insertions(+) 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.)) -- 2.25.1