[Sbcl-commits] CVS: sbcl/tests character.pure.lisp,1.4,1.5

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18634/tests

Modified Files:
	character.pure.lisp 
Log Message:
0.8.16.15:
	Fix BUG #308
	... use ucd.dat to generate a database for characters with information
		about graphicness, caseness and the like;
	... use the database in the ANSI character operators;
	... (frob the compiler transforms to work with latin-1 characters)

	This patch was brought to you by character_branch


Index: character.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/character.pure.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- character.pure.lisp	12 Dec 2002 11:47:37 -0000	1.4
+++ character.pure.lisp	29 Oct 2004 13:56:58 -0000	1.5
@@ -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))))