[Guile-commits] 06/08: Add R7RS xfails due to https://bugs.gnu.org/38237 (i/o exn types)

[Andy Wingo]

wingo pushed a commit to branch wip-r7rs
in repository guile.

commit 609c386d8914cd8a561827a17e266a9b4fffb1bd
Author: Andy Wingo <address@hidden>
Date:   Sat Nov 16 22:12:57 2019 +0100

    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.
---
 test-suite/tests/r7rs.test | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/test-suite/tests/r7rs.test b/test-suite/tests/r7rs.test
index 6c5cc7d..ec90977 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)