mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

Add expected failure for R7RS test due to https://bugs.gnu.org/38235

Browse source 
* test-suite/tests/r7rs.test (failing-test): New form.
  ("https://bugs.gnu.org/38235"): New failing test.
This commit is contained in:
Andy Wingo 2019-11-16 21:43:34 +01:00
parent b494a7f793
commit ddc03c070e
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test-suite/tests/r7rs.test
View file

@ -84,6 +84,10 @@
(define-syntax-rule (test expected expr) (define-syntax-rule (test expected expr)
(pass-if (%test-equal? expr expected))) (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) (define-syntax-rule (test-values expected expr)
(pass-if-equal (call-with-values (lambda () expected) list) (pass-if-equal (call-with-values (lambda () expected) list)
(call-with-values (lambda () expr) list))) (call-with-values (lambda () expr) list)))
@ -1444,7 +1448,9 @@
(test "γλώσσα" (string-foldcase "ΓΛΏΣΣΑ")) (test "γλώσσα" (string-foldcase "ΓΛΏΣΣΑ"))
(test "ΜΈΛΟΣ" (string-upcase "μέλος")) (test "ΜΈΛΟΣ" (string-upcase "μέλος"))
(test #t (and (member (string-downcase "ΜΈΛΟΣ") '("μέλος" "μέλοσ")) #t)) (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 "ΜΈΛΟΣ ΕΝΌΣ") (test #t (and (member (string-downcase "ΜΈΛΟΣ ΕΝΌΣ")
'("μέλος ενός" "μέλοσ ενόσ")) '("μέλος ενός" "μέλοσ ενόσ"))
#t)) #t))