Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 21:47:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Final sigma handling is optional.

Browse source
This commit is contained in:
Alex Shinn 2014-05-07 13:04:57 -04:00
parent a1ab36c667
commit 21980b21aa
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/r7rs-tests.scm
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))