From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 26 Nov 2018 03:01:53 +0000 (+0000)
Subject: Test escapes in symbol notation too.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~172
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b9b5e14c3b30bed75fb3ba730d6f2f077d3a2c7c;p=mit-scheme.git

Test escapes in symbol notation too.
---

diff --git a/tests/runtime/test-readwrite.scm b/tests/runtime/test-readwrite.scm
index 09918bb9a..1b098e133 100644
--- 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 ()