Allow DO / DO* to take bare symbols as vars.

[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)))
-;; 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))
@@ -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-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))