Add some more nonfinite complex screw cases.

diff --git a/tests/runtime/test-readwrite.scm b/tests/runtime/test-readwrite.scm
index d070c785c3af374dd8d0e25c3900d729d543abb8..d6a8c1874995010b1465fd2dda51832bbb1e2cf7 100644 (file)
--- a/tests/runtime/test-readwrite.scm
+++ b/tests/runtime/test-readwrite.scm
@@ -90,7 +90,19 @@ USA.
     ("123" ,assert-exact-integer)
     ("1/34" ,assert-exact-rational)
     ("123+456i" ,assert-complex-nonreal)
-    ("1.23" ,assert-flonum))
+    ("1.23" ,assert-flonum)
+    ("+inf.0i" ,assert-complex-nonreal xfail)
+    ("-inf.0i" ,assert-complex-nonreal xfail)
+    ("1+inf.0i" ,assert-complex-nonreal xfail)
+    ("1-inf.0i" ,assert-complex-nonreal xfail)
+    ("+inf.0+1i" ,assert-complex-nonreal xfail)
+    ("-inf.0+1i" ,assert-complex-nonreal xfail)
+    ("+inf.0+inf.0i" ,assert-complex-nonreal xfail)
+    ("+inf.0-inf.0i" ,assert-complex-nonreal xfail)
+    ("-inf.0+inf.0i" ,assert-complex-nonreal xfail)
+    ("-inf.0-inf.0i" ,assert-complex-nonreal xfail)
+    ("+inf.0+nan.0i" ,assert-complex-nonreal xfail)
+    ("+nan.0+inf.0i" ,assert-complex-nonreal xfail))
   (lambda (string #!optional assertion xfail?)
     (with-expected-failure xfail?
       (lambda ()
@@ -108,12 +120,26 @@ USA.
     ("#x123+456i" ,assert-complex-nonreal)
     ("#x1.23p+4-1.ffp-8i" ,assert-complex-nonreal)
     ("#x1.23p+0" ,assert-flonum)
-    ("+inf.0i" ,assert-complex-nonreal xfail)
-    ("-inf.0i" ,assert-complex-nonreal xfail)
-    ("1+inf.0i" ,assert-complex-nonreal xfail)
-    ("1-inf.0i" ,assert-complex-nonreal xfail)
-    ("+inf.0+1i" ,assert-complex-nonreal xfail)
-    ("-inf.0+1i" ,assert-complex-nonreal xfail))
+    ("#x+inf.0i" ,assert-complex-nonreal xerror)
+    ("#x-inf.0i" ,assert-complex-nonreal xerror)
+    ("#x1+inf.0i" ,assert-complex-nonreal xerror)
+    ("#x1-inf.0i" ,assert-complex-nonreal xerror)
+    ("#x1p+1+inf.0i" ,assert-complex-nonreal xerror)
+    ("#x1p+1-inf.0i" ,assert-complex-nonreal xerror)
+    ("#x-1p+1+inf.0i" ,assert-complex-nonreal xerror)
+    ("#x-1p+1-inf.0i" ,assert-complex-nonreal xerror)
+    ("#x+inf.0+1p+1i" ,assert-complex-nonreal xerror)
+    ("#x-inf.0+1p+1i" ,assert-complex-nonreal xerror)
+    ("#x+inf.0-1p+1i" ,assert-complex-nonreal xerror)
+    ("#x-inf.0-1p+1i" ,assert-complex-nonreal xerror)
+    ("#x+inf.0+1i" ,assert-complex-nonreal xerror)
+    ("#x-inf.0+1i" ,assert-complex-nonreal xerror)
+    ("#x+inf.0+inf.0i" ,assert-complex-nonreal xerror)
+    ("#x+inf.0-inf.0i" ,assert-complex-nonreal xerror)
+    ("#x-inf.0+inf.0i" ,assert-complex-nonreal xerror)
+    ("#x-inf.0-inf.0i" ,assert-complex-nonreal xerror)
+    ("#x+inf.0+nan.0i" ,assert-complex-nonreal xerror)
+    ("#x+nan.0+inf.0i" ,assert-complex-nonreal xerror))
   (lambda (string #!optional assertion xfail?)
     (with-expected-failure xfail?
       (lambda ()