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

Diff of /gcl/ansi-tests/count-if-not.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 420  Line 420 
420    
421  ;;; Error tests  ;;; Error tests
422    
423  (deftest count-if-not-error.1  (deftest count-if-not.error.1
424    (catch-type-error (count-if-not #'identity 1))    (catch-type-error (count-if-not #'identity 1))
425    type-error)    type-error)
426    
427  (deftest count-if-not-error.2  (deftest count-if-not.error.2
428    (catch-type-error (count-if-not #'identity 'a))    (catch-type-error (count-if-not #'identity 'a))
429    type-error)    type-error)
430    
431  (deftest count-if-not-error.3  (deftest count-if-not.error.3
432    (catch-type-error (count-if-not #'identity #\a))    (catch-type-error (count-if-not #'identity #\a))
433    type-error)    type-error)
434    
435    (deftest count-if-not.error.4
436      (classify-error (count-if-not))
437      program-error)
438    
439    (deftest count-if-not.error.5
440      (classify-error (count-if-not #'null))
441      program-error)
442    
443    (deftest count-if-not.error.6
444      (classify-error (count-if-not #'null nil :bad t))
445      program-error)
446    
447    (deftest count-if-not.error.7
448      (classify-error (count-if-not #'null nil :bad t :allow-other-keys nil))
449      program-error)
450    
451    (deftest count-if-not.error.8
452      (classify-error (count-if-not #'null nil :key))
453      program-error)
454    
455    (deftest count-if-not.error.9
456      (classify-error (count-if-not #'null nil 3 3))
457      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