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

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

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

revision 1.8 by pfdietz, Sun Nov 3 20:18:59 2002 UTC revision 1.9 by pfdietz, Mon Jan 13 14:11:50 2003 UTC
# Line 163  Line 163 
163    (map 'cons #'identity '(a b c))    (map 'cons #'identity '(a b c))
164    (a b c))    (a b c))
165    
166  (deftest map-error.1  (deftest map.error.1
167    (handler-case (map 'symbol #'identity '(a b c))    (handler-case (map 'symbol #'identity '(a b c))
168                  (error () :caught))                  (error () :caught))
169    :caught)    :caught)
170    
171  (deftest map-error.2  (deftest map.error.2
172    (classify-error (map '(vector * 8) #'identity '(a b c)))    (classify-error (map '(vector * 8) #'identity '(a b c)))
173    type-error)    type-error)
174    
175  (deftest map-error.3  (deftest map.error.3
176    (classify-error (map 'list #'identity '(a b . c)))    (classify-error (map 'list #'identity '(a b . c)))
177    type-error)    type-error)
178    
179    (deftest map.error.4
180      (classify-error (map))
181      program-error)
182    
183    (deftest map.error.5
184      (classify-error (map 'list))
185      program-error)
186    
187    (deftest map.error.6
188      (classify-error (map 'list #'null))
189      program-error)
190    
191    
192  ;;; Test mapping on arrays with fill pointers  ;;; Test mapping on arrays with fill pointers
193    

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