/[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.6 by pfdietz, Mon Jan 13 14:11:50 2003 UTC revision 1.7 by pfdietz, Fri Jan 17 13:29:23 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    ;;; Keyword tests
601    
602    (deftest mismatch.allow-other-keys.1
603      (mismatch "1234" "1244" :allow-other-keys t :bad t)
604      2)
605    
606    (deftest mismatch.allow-other-keys.2
607      (mismatch "1234" "1244" :bad t :allow-other-keys t)
608      2)
609    
610    (deftest mismatch.allow-other-keys.3
611      (mismatch "1234" "1244" :bad t :allow-other-keys t :allow-other-keys nil)
612      2)
613    
614    (deftest mismatch.allow-other-keys.4
615      (mismatch "1234" "1244" :allow-other-keys t :bad t
616                :allow-other-keys nil)
617      2)
618    
619    (deftest mismatch.allow-other-keys.5
620      (mismatch "1234" "1244" :allow-other-keys t
621                :allow-other-keys nil
622                :bad t)
623      2)
624    
625    (deftest mismatch.keywords.6
626      (mismatch "1234" "1244" :test #'equal :test (complement #'equal))
627      2)
628    
629    (deftest mismatch.allow-other-keys.7
630      (mismatch "1234" "1244" :bad t :allow-other-keys t
631                :test (complement #'equal))
632      0)
633    
634  ;;; Error cases  ;;; Error cases
635    
636  (deftest mismatch.error.1  (deftest mismatch.error.1

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

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