[Guile-commits] 04/08: Add expected failure for R7RS test due to https://bugs.gnu.org/38235

[Andy Wingo]

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

commit ddc03c070e337afcdcf4b28b3d02496c319a88b0
Author: Andy Wingo <address@hidden>
Date:   Sat Nov 16 21:43:34 2019 +0100

    Add expected failure for R7RS test due to https://bugs.gnu.org/38235
    
    * test-suite/tests/r7rs.test (failing-test): New form.
      ("https://bugs.gnu.org/38235";): New failing test.
---
 test-suite/tests/r7rs.test | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/test-suite/tests/r7rs.test b/test-suite/tests/r7rs.test
index d93b813..85fdcc2 100644
--- a/test-suite/tests/r7rs.test
+++ b/test-suite/tests/r7rs.test
@@ -84,6 +84,10 @@
 (define-syntax-rule (test expected expr)
   (pass-if (%test-equal? expr expected)))
 
+;; This form is used for those R7RS tests that do not yet pass in Guile.
+(define-syntax-rule (failing-test url expected expr)
+  (expect-fail url (%test-equal? expr expected)))
+
 (define-syntax-rule (test-values expected expr)
   (pass-if-equal (call-with-values (lambda () expected) list)
       (call-with-values (lambda () expr) list)))
@@ -1444,7 +1448,9 @@
 (test "γλώσσα" (string-foldcase "ΓΛΏΣΣΑ"))
 (test "ΜΈΛΟΣ" (string-upcase "μέλος"))
 (test #t (and (member (string-downcase "ΜΈΛΟΣ") '("μέλος" "μέλοσ")) #t))
-(test "μέλοσ" (string-foldcase "ΜΈΛΟΣ"))
+
+(failing-test "https://bugs.gnu.org/38235";
+              "μέλοσ" (string-foldcase "ΜΈΛΟΣ"))
 (test #t (and (member (string-downcase "ΜΈΛΟΣ ΕΝΌΣ")
                       '("μέλος ενός" "μέλοσ ενόσ"))
               #t))