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 |
|
|
|
|
|
|
|
|