/[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.12 by pfdietz, Sat Jan 17 20:04:52 2004 UTC revision 1.13 by pfdietz, Wed Sep 22 13:25:24 2004 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    (deftest mistmatch-string.25
601      (let ((s0 "12345")
602            (s1 "123A")
603            (s2 "245"))
604        (do-special-strings
605         (s s0 nil)
606         (assert (null (mismatch s s0)))
607         (assert (null (mismatch s0 s)))
608         (assert (null (mismatch s s0 :from-end t)))
609         (assert (null (mismatch s0 s :from-end t)))
610         (assert (eql (mismatch s s1) 3))
611         (assert (eql (mismatch s1 s) 3))
612         ))
613      nil)
614    
615  ;;; test and test-not tests  ;;; test and test-not tests
616    
617  (defharmless mismatch.test-and-test-not.1  (defharmless mismatch.test-and-test-not.1

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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