/[gcl]/gcl/ansi-tests/character.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/character.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by pfdietz, Sat Jan 17 12:05:40 2004 UTC revision 1.11 by pfdietz, Mon Aug 30 11:16:36 2004 UTC
# Line 617  Line 617 
617  (deftest char-name.error.2  (deftest char-name.error.2
618    (signals-error (char-name #\a #\a) program-error)    (signals-error (char-name #\a #\a) program-error)
619    t)    t)
   
 ;;;  
   
 (deftest name-char.1  
   (name-char.1.body)  
   t)  
   
 (deftest name-char.2  
   (loop for s in '("RubOut" "PAGe" "BacKspace" "RetUrn" "Tab" "LineFeed"  
                    "SpaCE" "NewLine")  
         always  
         (let ((c1 (name-char (string-upcase s)))  
               (c2 (name-char (string-downcase s)))  
               (c3 (name-char (string-capitalize s)))  
               (c4 (name-char s)))  
           (and (eqlt c1 c2) (eqlt c2 c3) (eqlt c3 c4))))  
   t)  
   
 (deftest name-char.order.1  
   (let ((i 0))  
     (values  
      (name-char (progn (incf i) "Space"))  
      i))  
   #\Space 1)  
   
 (deftest name-char.error.1  
   (signals-error (name-char) program-error)  
   t)  
   
 (deftest name-char.error.2  
   (signals-error (name-char "space" "space") program-error)  
   t)  

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26