Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |