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

Diff of /gcl/ansi-tests/position-if-not.lsp

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

revision 1.5 by pfdietz, Fri Jan 3 04:28:38 2003 UTC revision 1.6 by pfdietz, Mon Jan 13 14:11:51 2003 UTC
# Line 446  Line 446 
446    
447  ;;; Error tests  ;;; Error tests
448    
449  (deftest position-if-not-error.1  (deftest position-if-not.error.1
450    (classify-error (position-if-not #'identity 'b))    (classify-error (position-if-not #'identity 'b))
451    type-error)    type-error)
452    
453  (deftest position-if-not-error.2  (deftest position-if-not.error.2
454    (classify-error (position-if-not #'identity 10))    (classify-error (position-if-not #'identity 10))
455    type-error)    type-error)
456    
457  (deftest position-if-not-error.3  (deftest position-if-not.error.3
458    (classify-error (position-if-not 'null 1.4))    (classify-error (position-if-not 'null 1.4))
459    type-error)    type-error)
460    
461  (deftest position-if-not-error.4  (deftest position-if-not.error.4
462    (classify-error (position-if-not 'identity '(a b c . d)))    (classify-error (position-if-not 'identity '(a b c . d)))
463    type-error)    type-error)
464    
465    (deftest position-if-not.error.5
466      (classify-error (position-if-not))
467      program-error)
468    
469    (deftest position-if-not.error.6
470      (classify-error (position-if-not #'null))
471      program-error)
472    
473    (deftest position-if-not.error.7
474      (classify-error (position-if-not #'null nil :key))
475      program-error)
476    
477    (deftest position-if-not.error.8
478      (classify-error (position-if-not #'null nil 'bad t))
479      program-error)
480    
481    (deftest position-if-not.error.9
482      (classify-error (position-if-not #'null nil 'bad t :allow-other-keys nil))
483      program-error)
484    
485    (deftest position-if-not.error.10
486      (classify-error (position-if-not #'null nil 1 2))
487      program-error)
488    
489    
490    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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