From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 7 Dec 2018 03:55:05 +0000 (+0000)
Subject: Confirm #i works with inf and nan.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~46
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=72ee7460b2a43f617cb8def9d99123c3ebf7da31;p=mit-scheme.git

Confirm #i works with inf and nan.
---

diff --git a/tests/runtime/test-readwrite.scm b/tests/runtime/test-readwrite.scm
index 17a41687d..2bad4a20f 100644
--- a/tests/runtime/test-readwrite.scm
+++ b/tests/runtime/test-readwrite.scm
@@ -174,7 +174,11 @@ USA.
 
 (define-enumerated-test 'read
   `(("+nan.0" ,assert-nan)
-    ("-nan.0" ,assert-nan))
+    ("-nan.0" ,assert-nan)
+    ("#i+nan.0" ,assert-nan)
+    ("#i-nan.0" ,assert-nan)
+    ("#i+inf.0" ,assert-inf+)
+    ("#i-inf.0" ,assert-inf-))
   (lambda (string assertion #!optional xfail)
     (with-expected-failure xfail
       (lambda ()