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

Diff of /gcl/ansi-tests/count.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 488  Line 488 
488    
489  ;;; Error tests  ;;; Error tests
490    
491  (deftest count-error.1  (deftest count.error.1
492    (catch-type-error (count 'a 1))    (catch-type-error (count 'a 1))
493    type-error)    type-error)
494    
495  (deftest count-error.2  (deftest count.error.2
496    (catch-type-error (count 'a 'a))    (catch-type-error (count 'a 'a))
497    type-error)    type-error)
498    
499  (deftest count-error.3  (deftest count.error.3
500    (catch-type-error (count 'a #\a))    (catch-type-error (count 'a #\a))
501    type-error)    type-error)
502    
503    (deftest count.error.4
504      (classify-error (count))
505      program-error)
506    
507    (deftest count.error.5
508      (classify-error (count nil))
509      program-error)
510    
511    (deftest count.error.6
512      (classify-error (count nil nil :bad t))
513      program-error)
514    
515    (deftest count.error.7
516      (classify-error (count nil nil :bad t :allow-other-keys nil))
517      program-error)
518    
519    (deftest count.error.8
520      (classify-error (count nil nil :key))
521      program-error)
522    
523    (deftest count.error.9
524      (classify-error (count nil nil 3 3))
525      program-error)
526    

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