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

Diff of /gcl/ansi-tests/mismatch.lsp

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

revision 1.7 by pfdietz, Fri Jan 17 13:29:23 2003 UTC revision 1.8 by pfdietz, Fri Feb 14 05:10:36 2003 UTC
# Line 631  Line 631 
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

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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