More signed zero screw cases in complex numbers.

diff --git a/tests/runtime/test-readwrite.scm b/tests/runtime/test-readwrite.scm
index 46f5d5126cf0454728a451d70ad1cbe26c449f13..86575759ac2316b3175e0e4c8d18549a30be272b 100644 (file)
--- 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)