/[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.10 by pfdietz, Sat Feb 22 01:15:59 2003 UTC revision 1.11 by pfdietz, Mon Jun 16 11:38:15 2003 UTC
# Line 597  Line 597 
597       (mismatch m a :from-end t)))       (mismatch m a :from-end t)))
598    (4 4 5 nil nil 6 5 6))    (4 4 5 nil nil 6 5 6))
599    
600    ;;; test and test-not tests
601    
602    (defharmless mismatch.test-and-test-not.1
603      (mismatch '(1 2 3) '(1 2 4) :test #'eql :test-not #'eql))
604    
605    (defharmless mismatch.test-and-test-not.2
606      (mismatch '(1 2 3) '(1 2 4) :test-not #'eql :test #'eql))
607    
608    (defharmless mismatch.test-and-test-not.3
609      (mismatch #(1 2 3) #(1 2 4) :test #'eql :test-not #'eql))
610    
611    (defharmless mismatch.test-and-test-not.4
612      (mismatch #(1 2 3) #(1 2 4) :test-not #'eql :test #'eql))
613    
614    (defharmless mismatch.test-and-test-not.5
615      (mismatch "abc" "abd" :test #'eql :test-not #'eql))
616    
617    (defharmless mismatch.test-and-test-not.6
618      (mismatch "abc" "abd" :test-not #'eql :test #'eql))
619    
620    (defharmless mismatch.test-and-test-not.7
621      (mismatch #*011 #*010 :test #'eql :test-not #'eql))
622    
623    (defharmless mismatch.test-and-test-not.8
624      (mismatch #*011 #*010 :test-not #'eql :test #'eql))
625    
626  ;;; Keyword tests  ;;; Keyword tests
627    
628  (deftest mismatch.allow-other-keys.1  (deftest mismatch.allow-other-keys.1

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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