summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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