summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--test-suite/tests/r7rs.test13
1 files changed, 7 insertions, 6 deletions
diff --git a/test-suite/tests/r7rs.test b/test-suite/tests/r7rs.test
index ec90977e8..69781a501 100644
--- a/test-suite/tests/r7rs.test
+++ b/test-suite/tests/r7rs.test
@@ -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")))