X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcharacter.pure.lisp;h=74619b4795d46bb1a8e36f609dd6a705eb4a869e;hb=96a139f451963981fc2419410f468bae1a5d25d2;hp=8546abcdc9077022afbc474489239793aa89d64a;hpb=0a535fd0f5db046624b05aa956395d3b502ec927;p=sbcl.git

diff --git a/tests/character.pure.lisp b/tests/character.pure.lisp
index 8546abc..74619b4 100644
--- a/tests/character.pure.lisp
+++ b/tests/character.pure.lisp
@@ -13,8 +13,6 @@
 
 (cl:in-package :cl-user)
 
-(load "assertoid.lisp")
-
 ;;; ANSI's specification of #'CHAR-NAME imposes these constraints.
 ;;;
 ;;; (Obviously, the numeric values in this test implicitly assume
@@ -56,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))))