mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-08 21:47:33 +02:00
Final sigma handling is optional.
This commit is contained in:
parent
a1ab36c667
commit
21980b21aa
1 changed files with 4 additions and 2 deletions
|
@ -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))
|
||||||
|
|
Loading…
Add table
Reference in a new issue