mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

Add R7RS xfails due to a restriction in hungry-eol-escapes (#38239)

Browse source 
* test-suite/tests/r7rs.test ("https://bugs.gnu.org/38239"): Add more
  xfails.
This commit is contained in:
Andy Wingo 2019-11-16 22:29:41 +01:00
parent 78ea5c51b5
commit 72a2c742f6
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test-suite/tests/r7rs.test
View file

@ -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