From 21980b21aaca8db3e3847b51640d4ec094cc006a Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 7 May 2014 13:04:57 -0400 Subject: [PATCH] Final sigma handling is optional. --- tests/r7rs-tests.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/tests/r7rs-tests.scm b/tests/r7rs-tests.scm index 2057a173..0f5477dd 100644 --- a/tests/r7rs-tests.scm +++ b/tests/r7rs-tests.scm @@ -1193,9 +1193,11 @@ (test "γλώσσα" (string-downcase "ΓΛΏΣΣΑ")) (test "γλώσσα" (string-foldcase "ΓΛΏΣΣΑ")) (test "ΜΈΛΟΣ" (string-upcase "μέλος")) -(test "μέλος" (string-downcase "ΜΈΛΟΣ")) +(test #t (and (member (string-downcase "ΜΈΛΟΣ") '("μέλος" "μέλοσ")) #t)) (test "μέλοσ" (string-foldcase "ΜΈΛΟΣ")) -(test "μέλος ενός" (string-downcase "ΜΈΛΟΣ ΕΝΌΣ")) +(test #t (and (member (string-downcase "ΜΈΛΟΣ ΕΝΌΣ") + '("μέλος ενός" "μέλοσ ενόσ")) + #t)) (test "" (substring "" 0 0)) (test "" (substring "a" 0 0))