/[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.7 by pfdietz, Fri Jan 17 13:29:23 2003 UTC revision 1.8 by pfdietz, Wed Jan 29 02:11:54 2003 UTC
# Line 447  Line 447 
447  ;;; Error tests  ;;; Error tests
448    
449  (deftest count-if.error.1  (deftest count-if.error.1
450    (catch-type-error (count-if #'identity 1))    (classify-error (count-if #'identity 1))
451    type-error)    type-error)
452    
453  (deftest count-if.error.2  (deftest count-if.error.2
454    (catch-type-error (count-if #'identity 'a))    (classify-error (count-if #'identity 'a))
455    type-error)    type-error)
456    
457  (deftest count-if.error.3  (deftest count-if.error.3
458    (catch-type-error (count-if #'identity #\a))    (classify-error (count-if #'identity #\a))
459    type-error)    type-error)
460    
461  (deftest count-if.error.4  (deftest count-if.error.4
# Line 488  Line 488 
488                              :allow-other-keys nil                              :allow-other-keys nil
489                              :allow-other-keys t))                              :allow-other-keys t))
490    program-error)    program-error)
491    
492    (deftest count-if.error.11
493      (classify-error (locally (count-if #'identity 1) t))
494      type-error)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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