From 28460d36640f67d3a2066923d5e296040efbcac4 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 11 Nov 2012 15:53:46 +0900 Subject: [PATCH] Adding additional unicode tests. --- tests/r7rs-tests.scm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/tests/r7rs-tests.scm b/tests/r7rs-tests.scm index 5abb6128..f80305c3 100644 --- a/tests/r7rs-tests.scm +++ b/tests/r7rs-tests.scm @@ -855,6 +855,16 @@ (test #f (char-lower-case? #\A)) (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 3 (digit-value #\3)) (test 9 (digit-value #\9)) @@ -955,6 +965,12 @@ (test #f (string-ci>=? "abc" "aBcD")) (test #t (string-ci>=? "ABCd" "aBc")) +(test #t (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-downcase "abc"))