summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2019-11-16 22:29:41 +0100
committerAndy Wingo <wingo@pobox.com>2019-11-16 22:29:41 +0100
commit72a2c742f6675e870421c61e66c5aec134398a5a (patch)
tree4ac5bde1ffe4d696a81255727edc7aca9eb1c087
parent78ea5c51b55e1b59ea7947824255f20de01d890b (diff)
downloadguile-72a2c742f6675e870421c61e66c5aec134398a5a.tar.gz
Add R7RS xfails due to a restriction in hungry-eol-escapes (#38239)
* test-suite/tests/r7rs.test ("https://bugs.gnu.org/38239"): Add more xfails.
-rw-r--r--test-suite/tests/r7rs.test12
1 files changed, 9 insertions, 3 deletions
diff --git a/test-suite/tests/r7rs.test b/test-suite/tests/r7rs.test
index 69781a501..0914f0c5e 100644
--- a/test-suite/tests/r7rs.test
+++ b/test-suite/tests/r7rs.test
@@ -2295,10 +2295,16 @@
(test #x7C (char->integer (string-ref (read (open-input-string "\"\\|\"")) 0)))
(test "line 1\nline 2\n" (read (open-input-string "\"line 1\nline 2\n\"")))
(test "line 1continued\n" (read (open-input-string "\"line 1\\\ncontinued\n\"")))
-(test "line 1continued\n" (read (open-input-string "\"line 1\\ \ncontinued\n\"")))
+(failing-test-with-exception
+ "https://bugs.gnu.org/38239"
+ "line 1continued\n" (read (open-input-string "\"line 1\\ \ncontinued\n\"")))
(test "line 1continued\n" (read (open-input-string "\"line 1\\\n continued\n\"")))
-(test "line 1continued\n" (read (open-input-string "\"line 1\\ \t \n \t continued\n\"")))
-(test "line 1\n\nline 3\n" (read (open-input-string "\"line 1\\ \t \n \t \n\nline 3\n\"")))
+(failing-test-with-exception
+ "https://bugs.gnu.org/38239"
+ "line 1continued\n" (read (open-input-string "\"line 1\\ \t \n \t continued\n\"")))
+(failing-test-with-exception
+ "https://bugs.gnu.org/38239"
+ "line 1\n\nline 3\n" (read (open-input-string "\"line 1\\ \t \n \t \n\nline 3\n\"")))
(test #x03BB (char->integer (string-ref (read (open-input-string "\"\\x03BB;\"")) 0)))
(define-syntax test-write-syntax