/[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.13 by pfdietz, Sat Aug 28 20:52:38 2004 UTC revision 1.14 by pfdietz, Fri May 6 01:13:41 2005 UTC
# Line 279  Line 279 
279  ;;; Error cases  ;;; Error cases
280    
281  (deftest every.error.1  (deftest every.error.1
282    (signals-error (every 1 '(a b c)) type-error)    (check-type-error #'(lambda (x) (every x '(a b c)))
283    t)                      #'(lambda (x) (typep x '(or function symbol))))
284      nil)
285    
286  (deftest every.error.2  (deftest every.error.2
287    (signals-error (every #\a '(a b c)) type-error)    (check-type-error #'(lambda (x) (every #'null x))
288    t)                      #'(lambda (x) (typep x 'sequence)))
289      nil)
290    
291  (deftest every.error.3  (deftest every.error.3
292    (signals-error (every #() '(a b c)) type-error)    (check-type-error #'(lambda (x) (every #'eq () x))
293    t)                      #'(lambda (x) (typep x 'sequence)))
294      nil)
 (deftest every.error.4  
   (signals-error (every #'null 'a) type-error)  
   t)  
   
 (deftest every.error.5  
   (signals-error (every #'null 100) type-error)  
   t)  
   
 (deftest every.error.6  
   (signals-error (every #'null 'a) type-error)  
   t)  
   
 (deftest every.error.7  
   (signals-error (every #'eq () 'a) type-error)  
   t)  
295    
296  (deftest every.error.8  (deftest every.error.8
297    (signals-error (every) program-error)    (signals-error (every) program-error)

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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