/[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.5 by pfdietz, Fri Jan 3 04:28:38 2003 UTC revision 1.6 by pfdietz, Mon Jan 13 14:11:50 2003 UTC
# Line 596  Line 596 
596       (mismatch m a)       (mismatch m a)
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    ;;; Error cases
601    
602    (deftest mismatch.error.1
603      (classify-error (mismatch))
604      program-error)
605    
606    (deftest mismatch.error.2
607      (classify-error (mismatch nil))
608      program-error)
609    
610    (deftest mismatch.error.3
611      (classify-error (mismatch nil nil :bad t))
612      program-error)
613    
614    (deftest mismatch.error.4
615      (classify-error (mismatch nil nil :bad t :allow-other-keys nil))
616      program-error)
617    
618    (deftest mismatch.error.5
619      (classify-error (mismatch nil nil :key))
620      program-error)
621    
622    (deftest mismatch.error.6
623      (classify-error (mismatch nil nil 1 2))
624      program-error)

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

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