From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 17 Nov 2018 09:13:21 +0000 (+0000)
Subject: Add some complex infinite screw cases, xfail.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~59
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7ec793264aa8a34f67050be8f5e407dd6e65e57c;p=mit-scheme.git

Add some complex infinite screw cases, xfail.
---

diff --git a/tests/runtime/test-readwrite.scm b/tests/runtime/test-readwrite.scm
index 123db6c73..d070c785c 100644
--- a/tests/runtime/test-readwrite.scm
+++ b/tests/runtime/test-readwrite.scm
@@ -107,7 +107,13 @@ USA.
     ("#x1/34" ,assert-exact-rational)
     ("#x123+456i" ,assert-complex-nonreal)
     ("#x1.23p+4-1.ffp-8i" ,assert-complex-nonreal)
-    ("#x1.23p+0" ,assert-flonum))
+    ("#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))
   (lambda (string #!optional assertion xfail?)
     (with-expected-failure xfail?
       (lambda ()