From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 26 Nov 2018 02:52:31 +0000 (+0000)
Subject: Read/write invariance is broken for strings with `|'.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~174
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a486cc978f93c0e9b5e9521d851355be0ac5b1be;p=mit-scheme.git

Read/write invariance is broken for strings with `|'.
---

diff --git a/tests/runtime/test-readwrite.scm b/tests/runtime/test-readwrite.scm
index 792f74a62..5f60245a2 100644
--- a/tests/runtime/test-readwrite.scm
+++ b/tests/runtime/test-readwrite.scm
@@ -59,6 +59,9 @@ USA.
 (define assert-symbol
   (predicate-assertion symbol? "symbol"))
 
+(define assert-string
+  (predicate-assertion string? "string"))
+
 (define assert-exact-integer
   (predicate-assertion exact-integer? "exact integer"))
 
@@ -112,7 +115,10 @@ USA.
     ("-inf.0+inf.0i" ,assert-complex-nonreal)
     ("-inf.0-inf.0i" ,assert-complex-nonreal)
     ("+inf.0+nan.0i" ,assert-complex-nonreal)
-    ("+nan.0+inf.0i" ,assert-complex-nonreal))
+    ("+nan.0+inf.0i" ,assert-complex-nonreal)
+    ("\"|\"" ,assert-string xfail)
+    ("\"\\\"\"" ,assert-string)
+    ("\"\\\\\"" ,assert-string))
   (lambda (string #!optional assertion xfail?)
     (with-expected-failure xfail?
       (lambda ()