Test escapes in symbol notation too.

diff --git a/tests/runtime/test-readwrite.scm b/tests/runtime/test-readwrite.scm
index 09918bb9a9b6c07a4eb494013446715736a382f9..1b098e133ca3faff602b025b6cd2d56177dd0d30 100644 (file)
--- a/tests/runtime/test-readwrite.scm
+++ b/tests/runtime/test-readwrite.scm
@@ -118,7 +118,10 @@ USA.
     ("+nan.0+inf.0i" ,assert-complex-nonreal)
     ("\"|\"" ,assert-string)
     ("\"\\\"\"" ,assert-string)
-    ("\"\\\\\"" ,assert-string))
+    ("\"\\\\\"" ,assert-string)
+    ("|\"|" ,assert-symbol)
+    ("|\\\||" ,assert-symbol)
+    ("|\\\\|" ,assert-symbol))
   (lambda (string #!optional assertion xfail?)
     (with-expected-failure xfail?
       (lambda ()