From a486cc978f93c0e9b5e9521d851355be0ac5b1be Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 26 Nov 2018 02:52:31 +0000 Subject: [PATCH] Read/write invariance is broken for strings with `|'. --- tests/runtime/test-readwrite.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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 () -- 2.25.1