/[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.5 by pfdietz, Thu Feb 20 23:57:54 2003 UTC revision 1.6 by pfdietz, Sat Jun 14 09:14:23 2003 UTC
# Line 161  Line 161 
161       (search pat a :from-end t)))       (search pat a :from-end t)))
162    0 4 0 0 nil nil)    0 4 0 0 nil nil)
163    
164    ;; Order of test, test-not
165    
166    (deftest search-string.17
167      (let ((pat "m")
168            (target '"adgmnpq"))
169        (search pat target :test #'char<))
170      4)
171    
172    (deftest search-string.18
173      (let ((pat "m")
174            (target '"adgmnpq"))
175        (search pat target :test-not #'char>=))
176      4)

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