[Guile-commits] 08/08: Add R7RS xfails due to a restriction in hungry-eol-escapes (#38239)

[Andy Wingo]

wingo pushed a commit to branch wip-r7rs
in repository guile.

commit 72a2c742f6675e870421c61e66c5aec134398a5a
Author: Andy Wingo <address@hidden>
Date:   Sat Nov 16 22:29:41 2019 +0100

    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.
---
 test-suite/tests/r7rs.test | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/test-suite/tests/r7rs.test b/test-suite/tests/r7rs.test
index 69781a5..0914f0c 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