/[gcl]/gcl/ansi-tests/count-if.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/count-if.lsp

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

revision 1.4 by pfdietz, Fri Jan 3 04:28:38 2003 UTC revision 1.5 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 419  Line 419 
419                            
420  ;;; Error tests  ;;; Error tests
421    
422  (deftest count-if-error.1  (deftest count-if.error.1
423    (catch-type-error (count-if #'identity 1))    (catch-type-error (count-if #'identity 1))
424    type-error)    type-error)
425    
426  (deftest count-if-error.2  (deftest count-if.error.2
427    (catch-type-error (count-if #'identity 'a))    (catch-type-error (count-if #'identity 'a))
428    type-error)    type-error)
429    
430  (deftest count-if-error.3  (deftest count-if.error.3
431    (catch-type-error (count-if #'identity #\a))    (catch-type-error (count-if #'identity #\a))
432    type-error)    type-error)
433    
434    (deftest count-if.error.4
435      (classify-error (count-if))
436      program-error)
437    
438    (deftest count-if.error.5
439      (classify-error (count-if #'null))
440      program-error)
441    
442    (deftest count-if.error.6
443      (classify-error (count-if #'null nil :bad t))
444      program-error)
445    
446    (deftest count-if.error.7
447      (classify-error (count-if #'null nil :bad t :allow-other-keys nil))
448      program-error)
449    
450    (deftest count-if.error.8
451      (classify-error (count-if #'null nil :key))
452      program-error)
453    
454    (deftest count-if.error.9
455      (classify-error (count-if #'null nil 3 3))
456      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