/[gcl]/gcl/ansi-tests/search-string.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/search-string.lsp

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

revision 1.7 by pfdietz, Tue Jun 17 12:43:11 2003 UTC revision 1.8 by pfdietz, Wed Sep 22 13:25:24 2004 UTC
# Line 175  Line 175 
175    (let ((pat "m")    (let ((pat "m")
176          (target '"adgmnpq"))          (target '"adgmnpq"))
177      (search pat target :test-not #'char>=))      (search pat target :test-not #'char>=))
   4)  
178      4)
179    
180    ;;; Specialized strings
181    
182    (deftest search-string.19
183      (do-special-strings
184       (s "a" nil)
185       (assert (eql (search s "xyza123apqr") 3))
186       (assert (eql (search s "xyza1a3apqr" :start2 4) 5))
187       (assert (eql (search s "xyza123apqr" :from-end t) 7)))
188      nil)
189    
190    (deftest search-string.20
191      (do-special-strings
192       (s "xababcdefabc123ababc18" nil)
193       (assert (eql (search "abc" s) 3))
194       (assert (eql (search "abc" s :start2 4) 9))
195       (assert (eql (search "abc" s :from-end t) 17)))
196      nil)
197    

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