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

diff --git a/tests/runtime/test-readwrite.scm b/tests/runtime/test-readwrite.scm
index 792f74a62f0043bf8522d69da3ecd283ca135445..5f60245a26c5b108e043105597b8e3e4d4c25118 100644 (file)
--- 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 ()