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

Add R7RS xfails due to Guile's ( . 42) syntax extension

Browse source 
* test-suite/tests/r7rs.test ("https://bugs.gnu.org/38238"): Add new
  xfails.
This commit is contained in:
Andy Wingo 2019-11-16 22:19:30 +01:00
parent 609c386d89
commit 78ea5c51b5
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2261,12 +2261,13 @@
(read (open-input-string str))
#f)))
(test-read-error "(#;a . b)")
(test-read-error "(a . #;b)")
(test-read-error "(a #;. b)")
(test-read-error "(#;x #;y . z)")
(test-read-error "(#; #;x #;y . z)")
(test-read-error "(#; #;x . z)")
;; These should all use test-read-error instead.
(failing-test "https://bugs.gnu.org/38238" #f "(#;a . b)")
(failing-test "https://bugs.gnu.org/38238" #f "(a . #;b)")
(failing-test "https://bugs.gnu.org/38238" #f "(a #;. b)")
(failing-test "https://bugs.gnu.org/38238" #f "(#;x #;y . z)")
(failing-test "https://bugs.gnu.org/38238" #f "(#; #;x #;y . z)")
(failing-test "https://bugs.gnu.org/38238" #f "(#; #;x . z)")
(test #\a (read (open-input-string "#\\a")))
(test #\space (read (open-input-string "#\\space")))