diff options
| author | Andy Wingo <wingo@pobox.com> | 2019-11-16 22:12:57 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2019-11-16 22:12:57 +0100 |
| commit | 609c386d8914cd8a561827a17e266a9b4fffb1bd (patch) | |
| tree | 765ab6f7852f47ac3be7cd146f027ec7d5d69b68 /test-suite/tests/r7rs.test | |
| parent | fcbf0d15b203ef63b0686968a7917836775b2fd4 (diff) | |
| download | guile-609c386d8914cd8a561827a17e266a9b4fffb1bd.tar.gz | |
Add R7RS xfails due to https://bugs.gnu.org/38237 (i/o exn types)
* test-suite/tests/r7rs.test ("https://bugs.gnu.org/38237"): Add more
expected failures.
Diffstat (limited to 'test-suite/tests/r7rs.test')
| -rw-r--r-- | test-suite/tests/r7rs.test | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/test-suite/tests/r7rs.test b/test-suite/tests/r7rs.test index 6c5cc7d0d..ec90977e8 100644 --- a/test-suite/tests/r7rs.test +++ b/test-suite/tests/r7rs.test @@ -1846,8 +1846,10 @@ (test #f (file-error? (guard (exn (else exn)) (error "BOOM!")))) -(test #t - (file-error? (guard (exn (else exn)) (open-input-file " no such file ")))) +(failing-test + "https://bugs.gnu.org/38237" + #t + (file-error? (guard (exn (else exn)) (open-input-file " no such file ")))) (test #f (read-error? (guard (exn (else exn)) (error "BOOM!")))) @@ -2553,9 +2555,11 @@ (test #t (file-exists? ".")) (test #f (file-exists? " no such file ")) -(test #t (file-error? - (guard (exn (else exn)) - (delete-file " no such file ")))) +(failing-test + "https://bugs.gnu.org/38237" + #t (file-error? + (guard (exn (else exn)) + (delete-file " no such file ")))) (test-end) |