From ddc03c070e337afcdcf4b28b3d02496c319a88b0 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sat, 16 Nov 2019 21:43:34 +0100 Subject: [PATCH] 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 d93b8131d..85fdcc2af 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))