Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20664/tests
"What doesn't kill you makes you stronger"
Characters with codes 128-255 are now defined to be Latin-1 (or,
equivalently, the character set currently supported consists of
the first 256 characters of Unicode). Mostly from Teemu Kalvas.
... include character data (in binary form, added with -kb);
... make (simple-array (unsigned-byte 8) (*)) literals dumpable
by the cross-compiler;
... define names for (character-set '((#xa0 . #xbf)));
... test for char-name/graphic-char-p consistency.
Note: ucd.lisp is not used anywhere; it's included for interest
and because the method of generating the character database for
the core might change.
RCS file: /cvsroot/sbcl/sbcl/tests/character.pure.lisp,v
retrieving revision 1.4
retrieving revision 188.8.131.52
diff -u -d -r1.4 -r184.108.40.206
--- character.pure.lisp 12 Dec 2002 11:47:37 -0000 1.4
+++ character.pure.lisp 13 Sep 2004 21:05:13 -0000 220.127.116.11
@@ -54,3 +54,10 @@
(digit-char 4 1)
(digit-char 4 37)))
(assert (raises-error? (apply (car form) (mapcar 'eval (cdr form))) type-error)))
+(dotimes (i 256)
+ (let* ((char (code-char i))
+ (graphicp (graphic-char-p char))
+ (name (char-name char)))
+ (unless graphicp
+ (assert name))))