From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 18 Nov 2018 04:04:59 +0000 (+0000)
Subject: More signed zero screw cases in complex numbers.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~32
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f8b7144f483228a9ffe4cb1aa0b4bfe2a75a8d66;p=mit-scheme.git

More signed zero screw cases in complex numbers.
---

diff --git a/tests/runtime/test-readwrite.scm b/tests/runtime/test-readwrite.scm
index 46f5d5126..86575759a 100644
--- a/tests/runtime/test-readwrite.scm
+++ b/tests/runtime/test-readwrite.scm
@@ -65,6 +65,9 @@ USA.
 (define assert-exact-rational
   (predicate-assertion exact-rational? "exact rational"))
 
+(define assert-real
+  (predicate-assertion real? "real number"))
+
 (define (complex-nonreal? object)
   (and (complex? object)
        (not (real? object))))
@@ -90,6 +93,9 @@ USA.
     ("123" ,assert-exact-integer)
     ("1/34" ,assert-exact-rational)
     ("123+456i" ,assert-complex-nonreal)
+    ("-0.i" ,assert-real xfail)         ;real?
+    ("0.-0.i" ,assert-real xfail)       ;real?
+    ("-0.-0.i" ,assert-real xfail)      ;real?
     ("1.23" ,assert-flonum)
     ("+inf.0i" ,assert-complex-nonreal)
     ("-inf.0i" ,assert-complex-nonreal)