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

Adding additional unicode tests.

Browse source
This commit is contained in:
Alex Shinn 2012-11-11 15:53:46 +09:00
parent 61b9214644
commit 28460d3664
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
tests/r7rs-tests.scm
View file

@ -855,6 +855,16 @@
(test #f (char-lower-case? #\A)) (test #f (char-lower-case? #\A))
(test #f (char-lower-case? #\3)) (test #f (char-lower-case? #\3))
(test #t (char-alphabetic? #\Λ))
(test #f (char-alphabetic? #\x0E50))
(test #t (char-upper-case? #\Λ))
(test #f (char-upper-case? #\λ))
(test #f (char-lower-case? #\Λ))
(test #t (char-lower-case? #\λ))
(test #f (char-numeric? #\Λ))
(test #t (char-numeric? #\x0E50))
(test #t (char-whitespace? #\x1680))
(test 0 (digit-value #\0)) (test 0 (digit-value #\0))
(test 3 (digit-value #\3)) (test 3 (digit-value #\3))
(test 9 (digit-value #\9)) (test 9 (digit-value #\9))
@ -955,6 +965,12 @@
(test #f (string-ci>=? "abc" "aBcD")) (test #f (string-ci>=? "abc" "aBcD"))
(test #t (string-ci>=? "ABCd" "aBc")) (test #t (string-ci>=? "ABCd" "aBc"))
(test #t (string-ci=? "ΑΒΓ" "αβγ"))
(test #f (string-ci<? "ΑΒΓ" "αβγ"))
(test #f (string-ci>? "ΑΒΓ" "αβγ"))
(test #t (string-ci<=? "ΑΒΓ" "αβγ"))
(test #t (string-ci>=? "ΑΒΓ" "αβγ"))
(test "ABC" (string-upcase "abc")) (test "ABC" (string-upcase "abc"))
(test "ABC" (string-upcase "ABC")) (test "ABC" (string-upcase "ABC"))
(test "abc" (string-downcase "abc")) (test "abc" (string-downcase "abc"))