[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 04/08: Add expected failure for R7RS test due to https:/
From: |
Andy Wingo |
Subject: |
[Guile-commits] 04/08: Add expected failure for R7RS test due to https://bugs.gnu.org/38235 |
Date: |
Sat, 16 Nov 2019 16:32:14 -0500 (EST) |
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))
- [Guile-commits] branch wip-r7rs updated (4d7e749 -> 72a2c74), Andy Wingo, 2019/11/16
- [Guile-commits] 02/08: Add install-r7rs!, like install-r6rs!, Andy Wingo, 2019/11/16
- [Guile-commits] 04/08: Add expected failure for R7RS test due to https://bugs.gnu.org/38235,
Andy Wingo <=
- [Guile-commits] 05/08: Add R7RS XFAILs due to https://bugs.gnu.org/38236 (datum labels), Andy Wingo, 2019/11/16
- [Guile-commits] 08/08: Add R7RS xfails due to a restriction in hungry-eol-escapes (#38239), Andy Wingo, 2019/11/16
- [Guile-commits] 07/08: Add R7RS xfails due to Guile's ( . 42) syntax extension, Andy Wingo, 2019/11/16
- [Guile-commits] 06/08: Add R7RS xfails due to https://bugs.gnu.org/38237 (i/o exn types), Andy Wingo, 2019/11/16
- [Guile-commits] 01/08: Add initial implementation of R7RS modules, Andy Wingo, 2019/11/16
- [Guile-commits] 03/08: Add r7rs test, Andy Wingo, 2019/11/16