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

oops

Browse source
This commit is contained in:
Alex Shinn 2011-03-06 16:56:35 +09:00
parent 91914d6739
commit bab88c01b4
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
tests/unicode-tests.scm
View file

@ -11,25 +11,25 @@
(test 7 (string-length "Русский")) (test 7 (string-length "Русский"))
(test #\二 (string-ref "二本語" 0)) (test #\日 (string-ref "日本語" 0))
(test #\本 (string-ref "二本語" 1)) (test #\本 (string-ref "日本語" 1))
(test #\語 (string-ref "二本語" 2)) (test #\語 (string-ref "日本語" 2))
(test 3 (string-length "二本語")) (test 3 (string-length "日本語"))
(test '(#\二 #\本 #\語) (string->list "二本語")) (test '(#\日 #\本 #\語) (string->list "日本語"))
(test "二本語" (list->string '(#\二 #\本 #\語))) (test "日本語" (list->string '(#\日 #\本 #\語)))
(test "二本" (substring "二本語" 0 2)) (test "日本" (substring "日本語" 0 2))
(test "本語" (substring "二本語" 1 3)) (test "本語" (substring "日本語" 1 3))
(test "二-語" (test "日-語"
(let ((s (substring "二本語" 0 3))) (let ((s (substring "日本語" 0 3)))
(string-set! s 1 #\-) (string-set! s 1 #\-)
s)) s))
(test "二本人" (test "日本人"
(let ((s (substring "二本語" 0 3))) (let ((s (substring "日本語" 0 3)))
(string-set! s 2 #\人) (string-set! s 2 #\人)
s)) s))