diff options
author | Andy Wingo <wingo@pobox.com> | 2019-11-16 22:29:41 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2019-11-16 22:29:41 +0100 |
commit | 72a2c742f6675e870421c61e66c5aec134398a5a (patch) | |
tree | 4ac5bde1ffe4d696a81255727edc7aca9eb1c087 | |
parent | 78ea5c51b55e1b59ea7947824255f20de01d890b (diff) | |
download | guile-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.test | 12 |
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 |