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

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

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

revision 1.2 by pfdietz, Tue Nov 5 12:43:32 2002 UTC revision 1.3 by pfdietz, Mon Jan 13 14:11:50 2003 UTC
# Line 72  Line 72 
72    nil)    nil)
73    
74  (deftest notany.15  (deftest notany.15
75      (not (notany 'null '(1 2 3 4)))
76      nil)
77    
78    (deftest notany.16
79      (notany 'null '(1 2 3 nil 5))
80      nil)
81    
82    ;;; Error cases
83    
84    (deftest notany.error.1
85    (classify-error (notany 1 '(a b c)))    (classify-error (notany 1 '(a b c)))
86    type-error)    type-error)
87    
88  (deftest notany.16  (deftest notany.error.2
89    (classify-error (notany #\a '(a b c)))    (classify-error (notany #\a '(a b c)))
90    type-error)    type-error)
91    
92  (deftest notany.17  (deftest notany.error.3
93    (classify-error (notany #() '(a b c)))    (classify-error (notany #() '(a b c)))
94    type-error)    type-error)
95    
96  (deftest notany.18  (deftest notany.error.4
   (not (notany 'null '(1 2 3 4)))  
   nil)  
   
 (deftest notany.19  
   (notany 'null '(1 2 3 nil 5))  
   nil)  
   
 (deftest notany.20  
97    (classify-error (notany #'null 'a))    (classify-error (notany #'null 'a))
98    type-error)    type-error)
99    
100  (deftest notany.21  (deftest notany.error.5
101    (classify-error (notany #'null 100))    (classify-error (notany #'null 100))
102    type-error)    type-error)
103    
104  (deftest notany.22  (deftest notany.error.6
105    (classify-error (notany #'null 'a))    (classify-error (notany #'null 'a))
106    type-error)    type-error)
107    
108  (deftest notany.23  (deftest notany.error.7
109    (classify-error (notany #'eq () 'a))    (classify-error (notany #'eq () 'a))
110    type-error)    type-error)
111    
112    (deftest notany.error.8
113      (classify-error (notany))
114      program-error)
115    
116    (deftest notany.error.9
117      (classify-error (notany #'null))
118      program-error)

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

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