X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcharacters.lisp;h=aa8388eebd7631a804f33415c8e7f311f8b050c2;hb=858f7b088dcc3ba8c56927c8b201f704b3babf2c;hp=dc0cf68199711a69ea5e998f3333e1ad4f7ee17b;hpb=f8e5f4e8ae9b7bdc7efc7382a26aa6e28f6c4652;p=jscl.git

diff --git a/tests/characters.lisp b/tests/characters.lisp
index dc0cf68..aa8388e 100644
--- a/tests/characters.lisp
+++ b/tests/characters.lisp
@@ -37,8 +37,6 @@
 ;; (stable-sort (list #\b #\A #\B #\a #\c #\C) #'char-lessp) =>  (#\A #\a #\b #\B #\c #\C)
 ;; (stable-sort (list #\b #\A #\B #\a #\c #\C) #'char<) => implementation-dependent
 
-;; TODO: char/=, char<, etc.
-
 ;; CHARACTER
 (test (equal #\a (character #\a)))
 (test (equal #\a (character "a")))
@@ -114,7 +112,14 @@
 (test (char= (code-char 223) (char-downcase (code-char 223))))  ;; already lower case
 (test (char= (code-char 127744) (char-downcase (code-char 127744))))  ;; no lower case
 
-;; TODO: UPPER-CASE-P, LOWER-CASE-P, BOTH-CASE-P
+;; UPPER-CASE-P, LOWER-CASE-P, BOTH-CASE-P
+(test (upper-case-p #\A))
+(test (not (upper-case-p #\a)))
+(test (both-case-p #\a))
+(test (not (both-case-p #\5)))
+(test (not (lower-case-p #\5)))
+(test (not (upper-case-p #\5)))
+(test (not (upper-case-p (code-char 127744))))
 
 ;; CODE-CHAR, CHAR-CODE
 (test (char= #\A (code-char 65)))