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

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

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

revision 1.1 by pfdietz, Sun Jan 2 01:22:13 2005 UTC revision 1.2 by pfdietz, Tue Jan 4 15:29:02 2005 UTC
# Line 6  Line 6 
6  (in-package :cl-test)  (in-package :cl-test)
7    
8  (deftest readtablep.1  (deftest readtablep.1
9    (notnot-mv (readtablep *readtable*))      (and (not (readtablep nil))
10             (not (readtablep 'a))
11             (not (readtablep 0))
12             (not (readtablep 1/2))
13             (not (readtablep 1.2))
14             (not (readtablep 1.2s2))
15             (not (readtablep 1.2f3))
16             (not (readtablep 1.2e2))
17             (not (readtablep 1.2d2))
18             (not (readtablep (list 'a)))
19             (not (readtablep "abcde"))
20             (not (readtablep t))
21             (not (readtablep '*readtable*))
22             (not (readtablep (make-array '(10))))
23             (not (readtablep (make-array '(10) :element-type 'fixnum)))
24             (not (readtablep (make-array '(10) :element-type 'float)))
25             (not (readtablep (make-array '(10) :element-type 'double-float)))
26             (not (readtablep (make-array '(10) :element-type 'string)))
27             (not (readtablep (make-array '(10) :element-type 'character)))
28             (not (readtablep (make-array '(10) :element-type 'bit)))
29             (not (readtablep (make-array '(10) :element-type 'boolean)))
30             (not (not (readtablep (copy-readtable))))
31             (not (readtablep #'car))
32             )
33    t)    t)
34    
35  (deftest readtablep.2  (deftest readtablep.2
36    (loop for x in *universe*    (loop for x in *universe*
37          unless (if (readtablep x) (typep x 'readtable)          unless (if (typep x 'readtable) (readtablep x)
38                   (not (typep x 'readtable)))                   (not (readtablep x)))
39          collect x)          collect x)
40    nil)    nil)
41    
42  (deftest readtablep.3  (deftest readtablep.3
43      (notnot-mv (readtablep *readtable*))
44      t)
45    
46    (deftest readtablep.4
47    (notnot-mv (readtablep (copy-readtable)))    (notnot-mv (readtablep (copy-readtable)))
48    t)    t)
49    
# Line 33  Line 60 
60  (deftest readtablep.error.3  (deftest readtablep.error.3
61    (signals-error (readtablep *readtable* nil t t t t) program-error)    (signals-error (readtablep *readtable* nil t t t t) program-error)
62    t)    t)
   
   
   

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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