projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Case-insensitive character inequalities.
[jscl.git]
/
tests
/
characters.lisp
diff --git
a/tests/characters.lisp
b/tests/characters.lisp
index
aa8388e
..
74679f6
100644
(file)
--- a/
tests/characters.lisp
+++ b/
tests/characters.lisp
@@
-88,7
+88,10
@@
(test (null (digit-char-p #\a)))
(test (= 10 (digit-char-p #\A 11)))
(test (= 10 (digit-char-p #\a 11)))
(test (null (digit-char-p #\a)))
(test (= 10 (digit-char-p #\A 11)))
(test (= 10 (digit-char-p #\a 11)))
-;; TODO: does the mapcar/lambda thing work here?
+;; (mapcar #'(lambda (radix)
+;; (map 'list #'(lambda (x) (digit-char-p x radix))
+;; "059AaFGZ"))
+;; '(2 8 10 16 36))
;; GRAPHIC-CHAR-P
(test (graphic-char-p #\G))
;; GRAPHIC-CHAR-P
(test (graphic-char-p #\G))
@@
-129,8
+132,7
@@
;; CHAR-INT
(test (= (char-int #\A) (char-int #\A))) ;; can be pretty much anything, as long as it's consistent
;; CHAR-INT
(test (= (char-int #\A) (char-int #\A))) ;; can be pretty much anything, as long as it's consistent
-;; CHAR-TO-STRING (not actually part of the characters dictionary)
-(test (= 1 (string-length (char-to-string (code-char 127744)))))
+(test (= 1 (length (string (code-char 127744)))))
;; CHAR-CODE-LIMIT
(test (< 95 char-code-limit 10000000))
;; CHAR-CODE-LIMIT
(test (< 95 char-code-limit 10000000))