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

Diff of /gcl/ansi-tests/notevery.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 notevery.15  (deftest notevery.15
75      (not (notevery 'null '(nil nil t nil)))
76      nil)
77    
78    (deftest notevery.16
79      (notevery 'null '(nil nil nil nil))
80      nil)
81    
82    ;;; Error cases
83    
84    (deftest notevery.error.1
85    (classify-error (notevery 1 '(a b c)))    (classify-error (notevery 1 '(a b c)))
86    type-error)    type-error)
87    
88  (deftest notevery.16  (deftest notevery.error.2
89    (classify-error (notevery #\a '(a b c)))    (classify-error (notevery #\a '(a b c)))
90    type-error)    type-error)
91    
92  (deftest notevery.17  (deftest notevery.error.3
93    (classify-error (notevery #() '(a b c)))    (classify-error (notevery #() '(a b c)))
94    type-error)    type-error)
95    
96  (deftest notevery.18  (deftest notevery.error.4
   (not (notevery 'null '(nil nil t nil)))  
   nil)  
   
 (deftest notevery.19  
   (notevery 'null '(nil nil nil nil))  
   nil)  
   
 (deftest notevery.20  
97    (classify-error (notevery #'null 'a))    (classify-error (notevery #'null 'a))
98    type-error)    type-error)
99    
100  (deftest notevery.21  (deftest notevery.error.5
101    (classify-error (notevery #'null 100))    (classify-error (notevery #'null 100))
102    type-error)    type-error)
103    
104  (deftest notevery.22  (deftest notevery.error.6
105    (classify-error (notevery #'null 'a))    (classify-error (notevery #'null 'a))
106    type-error)    type-error)
107    
108  (deftest notevery.23  (deftest notevery.error.7
109    (classify-error (notevery #'eq () 'a))    (classify-error (notevery #'eq () 'a))
110    type-error)    type-error)
111    
112    (deftest notevery.error.8
113      (classify-error (notevery))
114      program-error)
115    
116    (deftest notevery.error.9
117      (classify-error (notevery #'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