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

Diff of /gcl/ansi-tests/merge.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:50 2003 UTC
# Line 485  Line 485 
485        
486  ;;; Tests of error situations  ;;; Tests of error situations
487    
488  (deftest merge-error.1  (deftest merge.error.1
489    (handler-case  (merge 'symbol (list 1 2 3) (list 4 5 6) #'<)    (handler-case  (merge 'symbol (list 1 2 3) (list 4 5 6) #'<)
490                   (error () :caught))                   (error () :caught))
491    :caught)    :caught)
492    
493  (deftest merge-error.2  (deftest merge.error.2
494    (classify-error (merge '(vector * 3) (list 1 2 3) (list 4 5 6) #'<))    (classify-error (merge '(vector * 3) (list 1 2 3) (list 4 5 6) #'<))
495    type-error)    type-error)
496    
497  (deftest merge-error.3  (deftest merge.error.3
498    (classify-error (merge '(bit-vector 3) (list 0 0 0) (list 1 1 1) #'<))    (classify-error (merge '(bit-vector 3) (list 0 0 0) (list 1 1 1) #'<))
499    type-error)    type-error)
500    
501  (deftest merge-error.4  (deftest merge.error.4
502    (classify-error (merge '(vector * 7) (list 1 2 3) (list 4 5 6) #'<))    (classify-error (merge '(vector * 7) (list 1 2 3) (list 4 5 6) #'<))
503    type-error)    type-error)
504    
505  (deftest merge-error.5  (deftest merge.error.5
506    (classify-error (merge '(bit-vector 7) (list 0 0 0) (list 1 1 1) #'<))    (classify-error (merge '(bit-vector 7) (list 0 0 0) (list 1 1 1) #'<))
507    type-error)    type-error)
508    
509  (deftest merge-error.6  (deftest merge.error.6
510    (classify-error (merge 'null (list 1 2 3) (list 4 5 6) #'<))    (classify-error (merge 'null (list 1 2 3) (list 4 5 6) #'<))
511    type-error)    type-error)
512    
513    (deftest merge.error.7
514      (classify-error (merge))
515      program-error)
516    
517    (deftest merge.error.8
518      (classify-error (merge 'list))
519      program-error)
520    
521    (deftest merge.error.9
522      (classify-error (merge 'list (list 2 4 6)))
523      program-error)
524    
525    (deftest merge.error.10
526      (classify-error (merge 'list (list 2 4 6) (list 1 3 5)))
527      program-error)
528    
529    (deftest merge.error.11
530      (classify-error (merge 'list (list 2 4 6) (list 1 3 5) #'< :bad t))
531      program-error)
532    
533    (deftest merge.error.12
534      (classify-error (merge 'list (list 2 4 6) (list 1 3 5) #'< :key))
535      program-error)
536    
537    (deftest merge.error.13
538      (classify-error (merge 'list (list 2 4 6) (list 1 3 5) #'< :bad t
539                             :allow-other-keys nil))
540      program-error)
541    
542    (deftest merge.error.14
543      (classify-error (merge 'list (list 2 4 6) (list 1 3 5) #'< 1 2))
544      program-error)
545    
     
     

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