Final sigma handling is optional.

This commit is contained in:
Alex Shinn 2014-05-07 13:04:57 -04:00
parent a1ab36c667
commit 21980b21aa

View file

@ -1193,9 +1193,11 @@
(test "γλώσσα" (string-downcase "ΓΛΏΣΣΑ")) (test "γλώσσα" (string-downcase "ΓΛΏΣΣΑ"))
(test "γλώσσα" (string-foldcase "ΓΛΏΣΣΑ")) (test "γλώσσα" (string-foldcase "ΓΛΏΣΣΑ"))
(test "ΜΈΛΟΣ" (string-upcase "μέλος")) (test "ΜΈΛΟΣ" (string-upcase "μέλος"))
(test "μέλος" (string-downcase "ΜΈΛΟΣ")) (test #t (and (member (string-downcase "ΜΈΛΟΣ") '("μέλος" "μέλοσ")) #t))
(test "μέλοσ" (string-foldcase "ΜΈΛΟΣ")) (test "μέλοσ" (string-foldcase "ΜΈΛΟΣ"))
(test "μέλος ενός" (string-downcase "ΜΈΛΟΣ ΕΝΌΣ")) (test #t (and (member (string-downcase "ΜΈΛΟΣ ΕΝΌΣ")
'("μέλος ενός" "μέλοσ ενόσ"))
#t))
(test "" (substring "" 0 0)) (test "" (substring "" 0 0))
(test "" (substring "a" 0 0)) (test "" (substring "a" 0 0))