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

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

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

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

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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