631 |
:test (complement #'equal)) |
:test (complement #'equal)) |
632 |
0) |
0) |
633 |
|
|
634 |
|
;;; Order of evaluation |
635 |
|
|
636 |
|
(deftest mismatch.order.1 |
637 |
|
(let ((i 0) a b) |
638 |
|
(values |
639 |
|
(mismatch (progn (setf a (incf i)) "abcd") |
640 |
|
(progn (setf b (incf i)) "abzd")) |
641 |
|
i a b)) |
642 |
|
2 2 1 2) |
643 |
|
|
644 |
|
(deftest mismatch.order.2 |
645 |
|
(let ((i 0) a b c d e f g h j) |
646 |
|
(values |
647 |
|
(mismatch (progn (setf a (incf i)) "abcdef") |
648 |
|
(progn (setf b (incf i)) "abcdef") |
649 |
|
:key (progn (setf c (incf i)) #'identity) |
650 |
|
:test (progn (setf d (incf i)) #'equal) |
651 |
|
:start1 (progn (setf e (incf i)) 1) |
652 |
|
:start2 (progn (setf f (incf i)) 1) |
653 |
|
:end1 (progn (setf g (incf i)) 4) |
654 |
|
:end2 (progn (setf h (incf i)) 4) |
655 |
|
:from-end (setf j (incf i))) |
656 |
|
i a b c d e f g h j)) |
657 |
|
nil 9 1 2 3 4 5 6 7 8 9) |
658 |
|
|
659 |
|
(deftest mismatch.order.3 |
660 |
|
(let ((i 0) a b c d e f g h j) |
661 |
|
(values |
662 |
|
(mismatch (progn (setf a (incf i)) "abcdef") |
663 |
|
(progn (setf b (incf i)) "abcdef") |
664 |
|
:from-end (setf c (incf i)) |
665 |
|
:end2 (progn (setf d (incf i)) 4) |
666 |
|
:end1 (progn (setf e (incf i)) 4) |
667 |
|
:start2 (progn (setf f (incf i)) 1) |
668 |
|
:start1 (progn (setf g (incf i)) 1) |
669 |
|
:test (progn (setf h (incf i)) #'equal) |
670 |
|
:key (progn (setf j (incf i)) #'identity)) |
671 |
|
i a b c d e f g h j)) |
672 |
|
nil 9 1 2 3 4 5 6 7 8 9) |
673 |
|
|
674 |
|
|
675 |
;;; Error cases |
;;; Error cases |
676 |
|
|
677 |
(deftest mismatch.error.1 |
(deftest mismatch.error.1 |