/[gcl]/gcl/ansi-tests/reader-test.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/reader-test.lsp

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

revision 1.8 by pfdietz, Sat Jan 17 22:34:46 2004 UTC revision 1.9 by pfdietz, Tue Jan 4 15:29:02 2005 UTC
# Line 5  Line 5 
5    
6  (in-package :cl-test)  (in-package :cl-test)
7    
 (deftest readtable-valid (not (readtablep *readtable*)) nil)  
 (deftest readtablep.1  
     (and (not (readtablep nil))  
          (not (readtablep 'a))  
          (not (readtablep 0))  
          (not (readtablep 1/2))  
          (not (readtablep 1.2))  
          (not (readtablep 1.2s2))  
          (not (readtablep 1.2f3))  
          (not (readtablep 1.2e2))  
          (not (readtablep 1.2d2))  
          (not (readtablep (list 'a)))  
          (not (readtablep "abcde"))  
          (not (readtablep t))  
          (not (readtablep '*readtable*))  
          (not (readtablep (make-array '(10))))  
          (not (readtablep (make-array '(10) :element-type 'fixnum)))  
          (not (readtablep (make-array '(10) :element-type 'float)))  
          (not (readtablep (make-array '(10) :element-type 'double-float)))  
          (not (readtablep (make-array '(10) :element-type 'string)))  
          (not (readtablep (make-array '(10) :element-type 'character)))  
          (not (readtablep (make-array '(10) :element-type 'bit)))  
          (not (readtablep (make-array '(10) :element-type 'boolean)))  
          (not (not (readtablep (copy-readtable))))  
          (not (readtablep #'car))  
          )  
   t)  
   
 (deftest readtablep.2  
   (loop for x in *universe*  
         unless (if (typep x 'readtable) (readtablep x)  
                  (not (readtablep x)))  
         collect x)  
   nil)  
   
 (deftest readtablep.error.1  
   (signals-error (readtablep) program-error)  
   t)  
   
 (deftest readtablep.error.2  
   (signals-error (readtablep nil nil) program-error)  
   t)  
   
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
   
8  (deftest read-symbol.1  (deftest read-symbol.1
9      (let ((*package* (find-package "CL-TEST")))      (let ((*package* (find-package "CL-TEST")))
10        (ignore-errors (read-from-string "a")))        (ignore-errors (read-from-string "a")))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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