|
1867
|
1 |
"{ Package: 'stx:goodies/regression' }"
|
|
1865
|
2 |
|
|
1866
|
3 |
"{ NameSpace: RegressionTests }"
|
|
1865
|
4 |
|
|
|
5 |
TestCase subclass:#RxTests
|
|
|
6 |
instanceVariableNames:''
|
|
|
7 |
classVariableNames:''
|
|
|
8 |
poolDictionaries:''
|
|
2042
|
9 |
category:'tests-Regression-Collections-Utilities'
|
|
1865
|
10 |
!
|
|
|
11 |
|
|
|
12 |
!RxTests class methodsFor:'documentation'!
|
|
|
13 |
|
|
|
14 |
documentation
|
|
|
15 |
"
|
|
2042
|
16 |
regex tests.
|
|
1865
|
17 |
"
|
|
|
18 |
! !
|
|
|
19 |
|
|
|
20 |
!RxTests methodsFor:'initialize / release'!
|
|
|
21 |
|
|
|
22 |
setUp
|
|
|
23 |
"common setup - invoked before testing."
|
|
|
24 |
|
|
|
25 |
super setUp
|
|
|
26 |
!
|
|
|
27 |
|
|
|
28 |
tearDown
|
|
|
29 |
"common cleanup - invoked after testing."
|
|
|
30 |
|
|
|
31 |
super tearDown
|
|
|
32 |
! !
|
|
|
33 |
|
|
|
34 |
!RxTests methodsFor:'profiling'!
|
|
|
35 |
|
|
|
36 |
bigHonkingStream
|
|
|
37 |
|
|
|
38 |
^'/home/vassili/VisualWorks/image/visualnc.sou' asFilename readStream "7 Megs"
|
|
|
39 |
!
|
|
|
40 |
|
|
|
41 |
frequentMatchProfile
|
|
1868
|
42 |
"
|
|
|
43 |
TimeProfiler profile: [self frequentMatchProfile]
|
|
|
44 |
Time millisecondsToRun: [self frequentMatchProfile]
|
|
|
45 |
"
|
|
|
46 |
|
|
|
47 |
| stream matcher count |
|
|
|
48 |
stream := self bigHonkingStream.
|
|
|
49 |
count := 0.
|
|
|
50 |
matcher := '\<\w+' asRegex.
|
|
|
51 |
[
|
|
|
52 |
[matcher searchStream: stream] whileTrue: [count := count + 1].
|
|
|
53 |
]
|
|
|
54 |
valueNowOrOnUnwindDo: [stream close].
|
|
|
55 |
^count
|
|
1865
|
56 |
!
|
|
|
57 |
|
|
|
58 |
rareMatchProfile
|
|
1868
|
59 |
" o:Regex::RxMatcher
|
|
1865
|
60 |
TimeProfiler profile: [self rareMatchProfile]
|
|
|
61 |
Time millisecondsToRun: [self rareMatchProfile]
|
|
|
62 |
"
|
|
|
63 |
|
|
|
64 |
| stream matcher count |
|
|
|
65 |
stream := self bigHonkingStream.
|
|
|
66 |
count := 0.
|
|
|
67 |
matcher := 'foo' asRegex.
|
|
|
68 |
[
|
|
|
69 |
[matcher searchStream: stream] whileTrue: [count := count + 1].
|
|
|
70 |
]
|
|
|
71 |
valueNowOrOnUnwindDo: [stream close].
|
|
|
72 |
^count
|
|
|
73 |
!
|
|
|
74 |
|
|
|
75 |
singleCharPrefixMatchProfile
|
|
|
76 |
"
|
|
|
77 |
TimeProfiler profile: [self singleCharPrefixMatchProfile]
|
|
|
78 |
Time millisecondsToRun: [self singleCharPrefixMatchProfile]
|
|
|
79 |
"
|
|
|
80 |
|
|
|
81 |
| stream matcher count |
|
|
|
82 |
stream := self bigHonkingStream.
|
|
|
83 |
count := 0.
|
|
|
84 |
matcher := 'm(e|a)th' asRegex.
|
|
|
85 |
[
|
|
|
86 |
[matcher searchStream: stream] whileTrue: [count := count + 1].
|
|
|
87 |
]
|
|
|
88 |
valueNowOrOnUnwindDo: [stream close].
|
|
|
89 |
^count
|
|
|
90 |
! !
|
|
|
91 |
|
|
|
92 |
!RxTests methodsFor:'test suite - new'!
|
|
|
93 |
|
|
|
94 |
test001
|
|
|
95 |
"patt. input match-expected matched-expression
|
|
|
96 |
abc abc y & abc
|
|
|
97 |
abc xbc n - -
|
|
|
98 |
abc axc n - -
|
|
|
99 |
abc abx n - -
|
|
|
100 |
abc xabcy y & abc
|
|
|
101 |
abc ababc y & abc
|
|
|
102 |
"
|
|
1868
|
103 |
|
|
1865
|
104 |
|matcher|
|
|
|
105 |
|
|
1868
|
106 |
self
|
|
|
107 |
should:[ (matcher := self compileRegex:'abc' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
108 |
self should:[ (matcher search:'abc') = true ].
|
|
|
109 |
self should:[ (matcher subexpression:1) = 'abc' ].
|
|
|
110 |
self should:[ (matcher search:'xbc') = false ].
|
|
|
111 |
self should:[ (matcher search:'axc') = false ].
|
|
|
112 |
self should:[ (matcher search:'abx') = false ].
|
|
|
113 |
self should:[ (matcher search:'xabcy') = true ].
|
|
|
114 |
self should:[ (matcher subexpression:1) = 'abc' ].
|
|
|
115 |
self should:[ (matcher search:'ababc') = true ].
|
|
|
116 |
self should:[ (matcher subexpression:1) = 'abc' ].
|
|
|
117 |
|
|
|
118 |
"
|
|
|
119 |
self new test01
|
|
|
120 |
"
|
|
|
121 |
!
|
|
|
122 |
|
|
|
123 |
test002
|
|
|
124 |
"patt. input match-expected matched-expression
|
|
|
125 |
ab*c abc y & abc
|
|
|
126 |
"
|
|
1868
|
127 |
|
|
1865
|
128 |
|matcher|
|
|
|
129 |
|
|
1868
|
130 |
self
|
|
|
131 |
should:[ (matcher := self compileRegex:'ab*c' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
132 |
self should:[ (matcher search:'abc') = true ].
|
|
|
133 |
self should:[ (matcher subexpression:1) = 'abc' ].
|
|
|
134 |
|
|
|
135 |
"
|
|
|
136 |
self new test02
|
|
|
137 |
"
|
|
|
138 |
!
|
|
|
139 |
|
|
|
140 |
test003
|
|
|
141 |
"patt. input match-expected matched-expression
|
|
|
142 |
ab*bc abc y & abc
|
|
|
143 |
ab*bc abbc y & abbc
|
|
|
144 |
ab*bc abbbbc y & abbbbc
|
|
|
145 |
"
|
|
1868
|
146 |
|
|
1865
|
147 |
|matcher|
|
|
|
148 |
|
|
1868
|
149 |
self
|
|
|
150 |
should:[ (matcher := self compileRegex:'ab*bc' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
151 |
self should:[ (matcher search:'abc') = true ].
|
|
|
152 |
self should:[ (matcher subexpression:1) = 'abc' ].
|
|
|
153 |
self should:[ (matcher search:'abbc') = true ].
|
|
|
154 |
self should:[ (matcher subexpression:1) = 'abbc' ].
|
|
|
155 |
self should:[ (matcher search:'abbbbc') = true ].
|
|
|
156 |
self should:[ (matcher subexpression:1) = 'abbbbc' ].
|
|
|
157 |
|
|
|
158 |
"
|
|
|
159 |
self new test02
|
|
|
160 |
"
|
|
|
161 |
!
|
|
|
162 |
|
|
|
163 |
test004
|
|
|
164 |
"patt. input match-expected matched-expression
|
|
|
165 |
ab+bc abbc y & abbc
|
|
|
166 |
ab+bc abc n - -
|
|
|
167 |
ab+bc abq n - -
|
|
|
168 |
ab+bc abbbbc y & abbbbc
|
|
|
169 |
"
|
|
1868
|
170 |
|
|
1865
|
171 |
|matcher|
|
|
|
172 |
|
|
1868
|
173 |
self
|
|
|
174 |
should:[ (matcher := self compileRegex:'ab+bc' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
175 |
self should:[ (matcher search:'abbc') = true ].
|
|
|
176 |
self should:[ (matcher subexpression:1) = 'abbc' ].
|
|
|
177 |
self should:[ (matcher search:'abc') = false ].
|
|
|
178 |
self should:[ (matcher search:'abq') = false ].
|
|
|
179 |
self should:[ (matcher search:'abbbbc') = true ].
|
|
|
180 |
self should:[ (matcher subexpression:1) = 'abbbbc' ].
|
|
|
181 |
|
|
|
182 |
"
|
|
|
183 |
self new test04
|
|
|
184 |
"
|
|
|
185 |
!
|
|
|
186 |
|
|
|
187 |
test005
|
|
|
188 |
"patt. input match-expected matched-expression
|
|
|
189 |
ab?bc abbc y & abbc
|
|
|
190 |
ab?bc abc y & abc
|
|
|
191 |
ab?bc abbbbc n - -
|
|
|
192 |
"
|
|
1868
|
193 |
|
|
1865
|
194 |
|matcher|
|
|
|
195 |
|
|
1868
|
196 |
self
|
|
|
197 |
should:[ (matcher := self compileRegex:'ab?bc' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
198 |
self should:[ (matcher search:'abbc') = true ].
|
|
|
199 |
self should:[ (matcher subexpression:1) = 'abbc' ].
|
|
|
200 |
self should:[ (matcher search:'abc') = true ].
|
|
|
201 |
self should:[ (matcher subexpression:1) = 'abc' ].
|
|
|
202 |
self should:[ (matcher search:'abbbbc') = false ].
|
|
|
203 |
|
|
|
204 |
"
|
|
|
205 |
self new test05
|
|
|
206 |
"
|
|
|
207 |
!
|
|
|
208 |
|
|
|
209 |
test005b
|
|
|
210 |
"patt. input match-expected matched-expression
|
|
|
211 |
ab?c abc y & abc
|
|
|
212 |
"
|
|
1868
|
213 |
|
|
1865
|
214 |
|matcher|
|
|
|
215 |
|
|
1868
|
216 |
self
|
|
|
217 |
should:[ (matcher := self compileRegex:'ab?c' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
218 |
self should:[ (matcher search:'abc') = true ].
|
|
|
219 |
self should:[ (matcher subexpression:1) = 'abc' ].
|
|
|
220 |
|
|
|
221 |
"
|
|
|
222 |
self new test05b
|
|
|
223 |
"
|
|
|
224 |
!
|
|
|
225 |
|
|
|
226 |
test006
|
|
|
227 |
"patt. input match-expected matched-expression
|
|
|
228 |
^abc$ abc y & abc
|
|
|
229 |
^abc$ abcc n - -
|
|
|
230 |
^abc$ aabc n - -
|
|
|
231 |
"
|
|
1868
|
232 |
|
|
1865
|
233 |
|matcher|
|
|
|
234 |
|
|
1868
|
235 |
self
|
|
|
236 |
should:[ (matcher := self compileRegex:'^abc$' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
237 |
self should:[ (matcher search:'abc') = true ].
|
|
|
238 |
self should:[ (matcher subexpression:1) = 'abc' ].
|
|
|
239 |
self should:[ (matcher search:'abcc') = false ].
|
|
|
240 |
self should:[ (matcher search:'aabc') = false ].
|
|
|
241 |
|
|
|
242 |
"
|
|
|
243 |
self new test06
|
|
|
244 |
"
|
|
|
245 |
!
|
|
|
246 |
|
|
|
247 |
test007
|
|
|
248 |
"patt. input match-expected matched-expression
|
|
|
249 |
^abc abcc y & abc
|
|
|
250 |
"
|
|
1868
|
251 |
|
|
1865
|
252 |
|matcher|
|
|
|
253 |
|
|
1868
|
254 |
self
|
|
|
255 |
should:[ (matcher := self compileRegex:'^abc' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
256 |
self should:[ (matcher search:'abcc') = true ].
|
|
|
257 |
self should:[ (matcher subexpression:1) = 'abc' ].
|
|
|
258 |
|
|
|
259 |
"
|
|
|
260 |
self new test07
|
|
|
261 |
"
|
|
|
262 |
!
|
|
|
263 |
|
|
|
264 |
test008
|
|
|
265 |
"patt. input match-expected matched-expression
|
|
|
266 |
abc$ aabc y & abc
|
|
|
267 |
"
|
|
1868
|
268 |
|
|
1865
|
269 |
|matcher|
|
|
|
270 |
|
|
1868
|
271 |
self
|
|
|
272 |
should:[ (matcher := self compileRegex:'abc$' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
273 |
self should:[ (matcher search:'aabc') = true ].
|
|
|
274 |
self should:[ (matcher subexpression:1) = 'abc' ].
|
|
|
275 |
|
|
|
276 |
"
|
|
|
277 |
self new test08
|
|
|
278 |
"
|
|
|
279 |
!
|
|
|
280 |
|
|
|
281 |
test009
|
|
|
282 |
"patt. input match-expected matched-expression
|
|
1868
|
283 |
^ abc y &
|
|
1865
|
284 |
"
|
|
1868
|
285 |
|
|
1865
|
286 |
|matcher|
|
|
|
287 |
|
|
1868
|
288 |
self should:[ (matcher := self compileRegex:'^' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
289 |
self should:[ (matcher search:'abc') = true ].
|
|
|
290 |
|
|
|
291 |
"
|
|
|
292 |
self new test09
|
|
|
293 |
"
|
|
|
294 |
!
|
|
|
295 |
|
|
|
296 |
test010
|
|
|
297 |
"patt. input match-expected matched-expression
|
|
1868
|
298 |
$ abc y &
|
|
1865
|
299 |
"
|
|
1868
|
300 |
|
|
1865
|
301 |
|matcher|
|
|
|
302 |
|
|
1868
|
303 |
self should:[ (matcher := self compileRegex:'$' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
304 |
self should:[ (matcher search:'abc') = true ].
|
|
|
305 |
|
|
|
306 |
"
|
|
|
307 |
self new test10
|
|
|
308 |
"
|
|
|
309 |
!
|
|
|
310 |
|
|
|
311 |
test011
|
|
|
312 |
|matcher|
|
|
|
313 |
|
|
1868
|
314 |
self
|
|
|
315 |
should:[ (matcher := self compileRegex:'a.c' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
316 |
self should:[ (matcher search:'abc') = true ].
|
|
|
317 |
self should:[ (matcher subexpression:1) = 'abc' ].
|
|
|
318 |
self should:[ (matcher search:'axc') = true ].
|
|
|
319 |
self should:[ (matcher subexpression:1) = 'axc' ].
|
|
|
320 |
!
|
|
|
321 |
|
|
|
322 |
test012
|
|
|
323 |
|matcher|
|
|
|
324 |
|
|
1868
|
325 |
self
|
|
|
326 |
should:[ (matcher := self compileRegex:'a.*c' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
327 |
self should:[ (matcher search:'axyzc') = true ].
|
|
|
328 |
self should:[ (matcher subexpression:1) = 'axyzc' ].
|
|
|
329 |
self should:[ (matcher search:'axy zc') = true ].
|
|
|
330 |
self should:[ (matcher subexpression:1) = 'axy zc' ].
|
|
1868
|
331 |
self
|
|
|
332 |
should:[
|
|
|
333 |
(matcher search:'axy
|
|
|
334 |
zc')
|
|
|
335 |
= false
|
|
|
336 |
].
|
|
1865
|
337 |
self should:[ (matcher search:'axyzd') = false ].
|
|
|
338 |
!
|
|
|
339 |
|
|
|
340 |
test013
|
|
|
341 |
|matcher|
|
|
|
342 |
|
|
1868
|
343 |
self
|
|
|
344 |
should:[ (matcher := self compileRegex:'.a.*' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
345 |
self should:[ (matcher search:'1234abc') = true ].
|
|
|
346 |
self should:[ (matcher subexpression:1) = '4abc' ].
|
|
|
347 |
self should:[ (matcher search:'abcd') = false ].
|
|
|
348 |
!
|
|
|
349 |
|
|
|
350 |
test014
|
|
|
351 |
|matcher|
|
|
|
352 |
|
|
1868
|
353 |
self
|
|
|
354 |
should:[ (matcher := self compileRegex:'a\w+c' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
355 |
self should:[ (matcher search:' abbbbc ') = true ].
|
|
|
356 |
self should:[ (matcher subexpression:1) = 'abbbbc' ].
|
|
|
357 |
self should:[ (matcher search:'abb bc') = false ].
|
|
|
358 |
!
|
|
|
359 |
|
|
|
360 |
test015
|
|
|
361 |
|matcher|
|
|
|
362 |
|
|
1868
|
363 |
self
|
|
|
364 |
should:[ (matcher := self compileRegex:'\w+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
365 |
self should:[ (matcher search:' foobar quux') = true ].
|
|
|
366 |
self should:[ (matcher subexpression:1) = 'foobar' ].
|
|
|
367 |
self should:[ (matcher search:' ~!!@#$%^&*()-+=\|/?.>,<') = false ].
|
|
|
368 |
!
|
|
|
369 |
|
|
|
370 |
test016
|
|
|
371 |
|matcher|
|
|
|
372 |
|
|
1868
|
373 |
self
|
|
|
374 |
should:[ (matcher := self compileRegex:'a\W+c' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
375 |
self should:[ (matcher search:'a c') = true ].
|
|
|
376 |
self should:[ (matcher subexpression:1) = 'a c' ].
|
|
|
377 |
self should:[ (matcher search:'a bc') = false ].
|
|
|
378 |
!
|
|
|
379 |
|
|
|
380 |
test017
|
|
|
381 |
|matcher|
|
|
|
382 |
|
|
1868
|
383 |
self
|
|
|
384 |
should:[ (matcher := self compileRegex:'\W+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
385 |
self should:[ (matcher search:'foo!!@#$bar') = true ].
|
|
|
386 |
self should:[ (matcher subexpression:1) = '!!@#$' ].
|
|
|
387 |
self should:[ (matcher search:'foobar') = false ].
|
|
|
388 |
!
|
|
|
389 |
|
|
|
390 |
test018
|
|
|
391 |
|matcher|
|
|
|
392 |
|
|
1868
|
393 |
self
|
|
|
394 |
should:[ (matcher := self compileRegex:'a\s*c' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
395 |
self should:[ (matcher search:'a c') = true ].
|
|
|
396 |
self should:[ (matcher subexpression:1) = 'a c' ].
|
|
|
397 |
self should:[ (matcher search:'a bc') = false ].
|
|
|
398 |
!
|
|
|
399 |
|
|
|
400 |
test019
|
|
|
401 |
|matcher|
|
|
|
402 |
|
|
1868
|
403 |
self
|
|
|
404 |
should:[ (matcher := self compileRegex:'\s+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
405 |
self should:[ (matcher search:'abc3457 sd') = true ].
|
|
|
406 |
self should:[ (matcher subexpression:1) = ' ' ].
|
|
|
407 |
self should:[ (matcher search:'1234$^*^&asdfb') = false ].
|
|
|
408 |
!
|
|
|
409 |
|
|
|
410 |
test020
|
|
|
411 |
|matcher|
|
|
|
412 |
|
|
1868
|
413 |
self
|
|
|
414 |
should:[ (matcher := self compileRegex:'a\S*c' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
415 |
self should:[ (matcher search:'aqwertyc') = true ].
|
|
|
416 |
self should:[ (matcher subexpression:1) = 'aqwertyc' ].
|
|
|
417 |
self should:[ (matcher search:'ab c') = false ].
|
|
|
418 |
!
|
|
|
419 |
|
|
|
420 |
test021
|
|
|
421 |
|matcher|
|
|
|
422 |
|
|
1868
|
423 |
self
|
|
|
424 |
should:[ (matcher := self compileRegex:'\S+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
425 |
self should:[ (matcher search:' asdf ') = true ].
|
|
|
426 |
self should:[ (matcher subexpression:1) = 'asdf' ].
|
|
1868
|
427 |
self
|
|
|
428 |
should:[ (matcher search:'
|
|
|
429 |
') = false ].
|
|
1865
|
430 |
!
|
|
|
431 |
|
|
|
432 |
test022
|
|
|
433 |
|matcher|
|
|
|
434 |
|
|
1868
|
435 |
self
|
|
|
436 |
should:[ (matcher := self compileRegex:'a\d+c' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
437 |
self should:[ (matcher search:'a0123456789c') = true ].
|
|
|
438 |
self should:[ (matcher subexpression:1) = 'a0123456789c' ].
|
|
|
439 |
self should:[ (matcher search:'a12b34c') = false ].
|
|
|
440 |
!
|
|
|
441 |
|
|
|
442 |
test023
|
|
|
443 |
|matcher|
|
|
|
444 |
|
|
1868
|
445 |
self
|
|
|
446 |
should:[ (matcher := self compileRegex:'\d+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
447 |
self should:[ (matcher search:'foo@#$%123ASD #$$%^&') = true ].
|
|
|
448 |
self should:[ (matcher subexpression:1) = '123' ].
|
|
|
449 |
self should:[ (matcher search:'foo!!@#$asdfl;') = false ].
|
|
|
450 |
!
|
|
|
451 |
|
|
|
452 |
test024
|
|
|
453 |
|matcher|
|
|
|
454 |
|
|
1868
|
455 |
self
|
|
|
456 |
should:[ (matcher := self compileRegex:'a\D+c' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
457 |
self should:[ (matcher search:'aqwertyc') = true ].
|
|
|
458 |
self should:[ (matcher subexpression:1) = 'aqwertyc' ].
|
|
|
459 |
self should:[ (matcher search:'aqw6ertc') = false ].
|
|
|
460 |
!
|
|
|
461 |
|
|
|
462 |
test025
|
|
|
463 |
|matcher|
|
|
|
464 |
|
|
1868
|
465 |
self
|
|
|
466 |
should:[ (matcher := self compileRegex:'\D+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
467 |
self should:[ (matcher search:'1234 abc 456') = true ].
|
|
|
468 |
self should:[ (matcher subexpression:1) = ' abc ' ].
|
|
|
469 |
self should:[ (matcher search:'1234567890') = false ].
|
|
|
470 |
!
|
|
|
471 |
|
|
|
472 |
test026
|
|
|
473 |
|matcher|
|
|
|
474 |
|
|
1868
|
475 |
self
|
|
|
476 |
should:[ (matcher := self compileRegex:'(f|o)+\b' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
477 |
self should:[ (matcher search:'foo') = true ].
|
|
|
478 |
self should:[ (matcher subexpression:1) = 'foo' ].
|
|
|
479 |
self should:[ (matcher search:' foo ') = true ].
|
|
|
480 |
self should:[ (matcher subexpression:1) = 'foo' ].
|
|
|
481 |
!
|
|
|
482 |
|
|
|
483 |
test027
|
|
|
484 |
|matcher|
|
|
|
485 |
|
|
1868
|
486 |
self
|
|
|
487 |
should:[ (matcher := self compileRegex:'\ba\w+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
488 |
self should:[ (matcher search:'land ancient') = true ].
|
|
|
489 |
self should:[ (matcher subexpression:1) = 'ancient' ].
|
|
|
490 |
self should:[ (matcher search:'antique vase') = true ].
|
|
|
491 |
self should:[ (matcher subexpression:1) = 'antique' ].
|
|
|
492 |
self should:[ (matcher search:'goofy foobar') = false ].
|
|
|
493 |
!
|
|
|
494 |
|
|
|
495 |
test028
|
|
|
496 |
|matcher|
|
|
|
497 |
|
|
1868
|
498 |
self
|
|
|
499 |
should:[ (matcher := self compileRegex:'(f|o)+\B' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
500 |
self should:[ (matcher search:'quuxfoobar') = true ].
|
|
|
501 |
self should:[ (matcher subexpression:1) = 'foo' ].
|
|
|
502 |
self should:[ (matcher search:'quuxfoo ') = true ].
|
|
|
503 |
self should:[ (matcher subexpression:1) = 'fo' ].
|
|
|
504 |
!
|
|
|
505 |
|
|
|
506 |
test029
|
|
|
507 |
|matcher|
|
|
|
508 |
|
|
1868
|
509 |
self
|
|
|
510 |
should:[ (matcher := self compileRegex:'\Ba\w+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
511 |
self should:[ (matcher search:'land ancient') = true ].
|
|
|
512 |
self should:[ (matcher subexpression:1) = 'and' ].
|
|
|
513 |
self should:[ (matcher search:'antique vase') = true ].
|
|
|
514 |
self should:[ (matcher subexpression:1) = 'ase' ].
|
|
|
515 |
self should:[ (matcher search:'smalltalk shall overcome') = true ].
|
|
|
516 |
self should:[ (matcher subexpression:1) = 'alltalk' ].
|
|
|
517 |
self should:[ (matcher search:'foonix is better') = false ].
|
|
|
518 |
!
|
|
|
519 |
|
|
|
520 |
test030
|
|
|
521 |
|matcher|
|
|
|
522 |
|
|
1868
|
523 |
self
|
|
|
524 |
should:[ (matcher := self compileRegex:'fooa\>.*' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
525 |
self should:[ (matcher search:'fooa ') = true ].
|
|
|
526 |
self should:[ (matcher search:'fooa123') = false ].
|
|
|
527 |
self should:[ (matcher search:'fooa bar') = true ].
|
|
|
528 |
self should:[ (matcher search:'fooa') = true ].
|
|
|
529 |
self should:[ (matcher search:'fooargh') = false ].
|
|
|
530 |
!
|
|
|
531 |
|
|
|
532 |
test031
|
|
|
533 |
|matcher|
|
|
|
534 |
|
|
1868
|
535 |
self
|
|
|
536 |
should:[ (matcher := self compileRegex:'\>.+abc' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
537 |
self should:[ (matcher search:' abcde fg') = false ].
|
|
|
538 |
self should:[ (matcher search:'foo abcde') = true ].
|
|
|
539 |
self should:[ (matcher subexpression:1) = ' abc' ].
|
|
|
540 |
self should:[ (matcher search:'abcde') = false ].
|
|
|
541 |
!
|
|
|
542 |
|
|
|
543 |
test032
|
|
|
544 |
|matcher|
|
|
|
545 |
|
|
1868
|
546 |
self
|
|
|
547 |
should:[ (matcher := self compileRegex:'\<foo.*' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
548 |
self should:[ (matcher search:'foo') = true ].
|
|
|
549 |
self should:[ (matcher search:'foobar') = true ].
|
|
|
550 |
self should:[ (matcher search:'qfoobarq foonix') = true ].
|
|
|
551 |
self should:[ (matcher subexpression:1) = 'foonix' ].
|
|
|
552 |
self should:[ (matcher search:' foo') = true ].
|
|
|
553 |
self should:[ (matcher search:' 12foo') = false ].
|
|
|
554 |
self should:[ (matcher search:'barfoo') = false ].
|
|
|
555 |
!
|
|
|
556 |
|
|
|
557 |
test033
|
|
|
558 |
|matcher|
|
|
|
559 |
|
|
1868
|
560 |
self
|
|
|
561 |
should:[ (matcher := self compileRegex:'.+\<foo' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
562 |
self should:[ (matcher search:'foo') = false ].
|
|
|
563 |
self should:[ (matcher search:'ab foo') = true ].
|
|
|
564 |
self should:[ (matcher subexpression:1) = 'ab foo' ].
|
|
|
565 |
self should:[ (matcher search:'abfoo') = false ].
|
|
|
566 |
!
|
|
|
567 |
|
|
|
568 |
test034
|
|
|
569 |
|matcher|
|
|
|
570 |
|
|
1868
|
571 |
self
|
|
|
572 |
should:[ (matcher := self compileRegex:'a[bc]d' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
573 |
self should:[ (matcher search:'abc') = false ].
|
|
|
574 |
self should:[ (matcher search:'abd') = true ].
|
|
|
575 |
self should:[ (matcher subexpression:1) = 'abd' ].
|
|
|
576 |
!
|
|
|
577 |
|
|
|
578 |
test035
|
|
|
579 |
|matcher|
|
|
|
580 |
|
|
1868
|
581 |
self
|
|
|
582 |
should:[ (matcher := self compileRegex:'a[b-d]e' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
583 |
self should:[ (matcher search:'abd') = false ].
|
|
|
584 |
self should:[ (matcher search:'ace') = true ].
|
|
|
585 |
self should:[ (matcher subexpression:1) = 'ace' ].
|
|
|
586 |
!
|
|
|
587 |
|
|
|
588 |
test036
|
|
|
589 |
|matcher|
|
|
|
590 |
|
|
1868
|
591 |
self
|
|
|
592 |
should:[ (matcher := self compileRegex:'a[b-d]' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
593 |
self should:[ (matcher search:'aac') = true ].
|
|
|
594 |
self should:[ (matcher subexpression:1) = 'ac' ].
|
|
|
595 |
!
|
|
|
596 |
|
|
|
597 |
test037
|
|
|
598 |
|matcher|
|
|
|
599 |
|
|
1868
|
600 |
self
|
|
|
601 |
should:[ (matcher := self compileRegex:'a[-b]' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
602 |
self should:[ (matcher search:'a-') = true ].
|
|
|
603 |
self should:[ (matcher subexpression:1) = 'a-' ].
|
|
|
604 |
!
|
|
|
605 |
|
|
|
606 |
test038
|
|
|
607 |
|matcher|
|
|
|
608 |
|
|
1868
|
609 |
self
|
|
|
610 |
should:[ (matcher := self compileRegex:'a[b-]' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
611 |
self should:[ (matcher search:'a-') = true ].
|
|
|
612 |
self should:[ (matcher subexpression:1) = 'a-' ].
|
|
|
613 |
!
|
|
|
614 |
|
|
|
615 |
test039
|
|
|
616 |
|matcher|
|
|
|
617 |
|
|
1868
|
618 |
self
|
|
|
619 |
should:[ (matcher := self compileRegex:'a[a-b-c]' into:Regex::RxMatcher) = nil ].
|
|
1865
|
620 |
!
|
|
|
621 |
|
|
|
622 |
test040
|
|
|
623 |
|matcher|
|
|
|
624 |
|
|
1868
|
625 |
self
|
|
|
626 |
should:[ (matcher := self compileRegex:'[k]' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
627 |
self should:[ (matcher search:'ab') = false ].
|
|
|
628 |
!
|
|
|
629 |
|
|
|
630 |
test041
|
|
|
631 |
|matcher|
|
|
|
632 |
|
|
1868
|
633 |
self
|
|
|
634 |
should:[ (matcher := self compileRegex:'a[b-a]' into:Regex::RxMatcher) = nil ].
|
|
1865
|
635 |
!
|
|
|
636 |
|
|
|
637 |
test042
|
|
|
638 |
|matcher|
|
|
|
639 |
|
|
1868
|
640 |
self
|
|
|
641 |
should:[ (matcher := self compileRegex:'a[]b' into:Regex::RxMatcher) = nil ].
|
|
1865
|
642 |
!
|
|
|
643 |
|
|
|
644 |
test043
|
|
|
645 |
|matcher|
|
|
|
646 |
|
|
1868
|
647 |
self should:[ (matcher := self compileRegex:'a[' into:Regex::RxMatcher) = nil ].
|
|
1865
|
648 |
!
|
|
|
649 |
|
|
|
650 |
test044
|
|
|
651 |
|matcher|
|
|
|
652 |
|
|
1868
|
653 |
self should:[ (matcher := self compileRegex:'a]' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
654 |
self should:[ (matcher search:'a]') = true ].
|
|
|
655 |
self should:[ (matcher subexpression:1) = 'a]' ].
|
|
|
656 |
!
|
|
|
657 |
|
|
|
658 |
test045
|
|
|
659 |
|matcher|
|
|
|
660 |
|
|
1868
|
661 |
self
|
|
|
662 |
should:[ (matcher := self compileRegex:'a[]]b' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
663 |
self should:[ (matcher search:'a]b') = true ].
|
|
|
664 |
self should:[ (matcher subexpression:1) = 'a]b' ].
|
|
|
665 |
!
|
|
|
666 |
|
|
|
667 |
test046
|
|
|
668 |
|matcher|
|
|
|
669 |
|
|
1868
|
670 |
self
|
|
|
671 |
should:[ (matcher := self compileRegex:'a[^bc]d' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
672 |
self should:[ (matcher search:'aed') = true ].
|
|
|
673 |
self should:[ (matcher subexpression:1) = 'aed' ].
|
|
|
674 |
self should:[ (matcher search:'abd') = false ].
|
|
|
675 |
!
|
|
|
676 |
|
|
|
677 |
test047
|
|
|
678 |
|matcher|
|
|
|
679 |
|
|
1868
|
680 |
self
|
|
|
681 |
should:[ (matcher := self compileRegex:'a[^-b]c' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
682 |
self should:[ (matcher search:'adc') = true ].
|
|
|
683 |
self should:[ (matcher subexpression:1) = 'adc' ].
|
|
|
684 |
self should:[ (matcher search:'a-c') = false ].
|
|
|
685 |
!
|
|
|
686 |
|
|
|
687 |
test048
|
|
|
688 |
|matcher|
|
|
|
689 |
|
|
1868
|
690 |
self
|
|
|
691 |
should:[ (matcher := self compileRegex:'a[^]b]c' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
692 |
self should:[ (matcher search:'a]c') = false ].
|
|
|
693 |
self should:[ (matcher search:'adc') = true ].
|
|
|
694 |
self should:[ (matcher subexpression:1) = 'adc' ].
|
|
|
695 |
!
|
|
|
696 |
|
|
|
697 |
test049
|
|
|
698 |
|matcher|
|
|
|
699 |
|
|
1868
|
700 |
self
|
|
|
701 |
should:[ (matcher := self compileRegex:'[\de]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
702 |
self should:[ (matcher search:'01234') = true ].
|
|
|
703 |
self should:[ (matcher subexpression:1) = '01234' ].
|
|
|
704 |
self should:[ (matcher search:'0123e456') = true ].
|
|
|
705 |
self should:[ (matcher subexpression:1) = '0123e456' ].
|
|
|
706 |
self should:[ (matcher search:'0123e45g78') = true ].
|
|
|
707 |
self should:[ (matcher subexpression:1) = '0123e45' ].
|
|
|
708 |
!
|
|
|
709 |
|
|
|
710 |
test050
|
|
|
711 |
|matcher|
|
|
|
712 |
|
|
1868
|
713 |
self
|
|
|
714 |
should:[ (matcher := self compileRegex:'[e\d]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
715 |
self should:[ (matcher search:'01234') = true ].
|
|
|
716 |
self should:[ (matcher subexpression:1) = '01234' ].
|
|
|
717 |
self should:[ (matcher search:'0123e456') = true ].
|
|
|
718 |
self should:[ (matcher subexpression:1) = '0123e456' ].
|
|
|
719 |
self should:[ (matcher search:'0123e45g78') = true ].
|
|
|
720 |
self should:[ (matcher subexpression:1) = '0123e45' ].
|
|
|
721 |
!
|
|
|
722 |
|
|
|
723 |
test051
|
|
|
724 |
|matcher|
|
|
|
725 |
|
|
1868
|
726 |
self
|
|
|
727 |
should:[ (matcher := self compileRegex:'[\D]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
728 |
self should:[ (matcher search:'123abc45def78') = true ].
|
|
|
729 |
self should:[ (matcher subexpression:1) = 'abc' ].
|
|
|
730 |
!
|
|
|
731 |
|
|
|
732 |
test052
|
|
|
733 |
|matcher|
|
|
|
734 |
|
|
1868
|
735 |
self
|
|
|
736 |
should:[ (matcher := self compileRegex:'[[:digit:]e]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
737 |
self should:[ (matcher search:'01234') = true ].
|
|
|
738 |
self should:[ (matcher subexpression:1) = '01234' ].
|
|
|
739 |
self should:[ (matcher search:'0123e456') = true ].
|
|
|
740 |
self should:[ (matcher subexpression:1) = '0123e456' ].
|
|
|
741 |
self should:[ (matcher search:'0123e45g78') = true ].
|
|
|
742 |
self should:[ (matcher subexpression:1) = '0123e45' ].
|
|
|
743 |
!
|
|
|
744 |
|
|
|
745 |
test053
|
|
|
746 |
|matcher|
|
|
|
747 |
|
|
1868
|
748 |
self
|
|
|
749 |
should:[ (matcher := self compileRegex:'[\s]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
750 |
self should:[ (matcher search:'2 spaces') = true ].
|
|
|
751 |
self should:[ (matcher subexpression:1) = ' ' ].
|
|
|
752 |
!
|
|
|
753 |
|
|
|
754 |
test054
|
|
|
755 |
|matcher|
|
|
|
756 |
|
|
1868
|
757 |
self
|
|
|
758 |
should:[ (matcher := self compileRegex:'[\S]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
759 |
self should:[ (matcher search:' word12!!@#$ ') = true ].
|
|
|
760 |
self should:[ (matcher subexpression:1) = 'word12!!@#$' ].
|
|
|
761 |
!
|
|
|
762 |
|
|
|
763 |
test055
|
|
|
764 |
|matcher|
|
|
|
765 |
|
|
1868
|
766 |
self
|
|
|
767 |
should:[ (matcher := self compileRegex:'[\w]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
768 |
self should:[ (matcher search:' foo123bar 45') = true ].
|
|
|
769 |
self should:[ (matcher subexpression:1) = 'foo123bar' ].
|
|
|
770 |
!
|
|
|
771 |
|
|
|
772 |
test056
|
|
|
773 |
|matcher|
|
|
|
774 |
|
|
1868
|
775 |
self
|
|
|
776 |
should:[ (matcher := self compileRegex:'[\W]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
777 |
self should:[ (matcher search:'fii234!!@#$34f') = true ].
|
|
|
778 |
self should:[ (matcher subexpression:1) = '!!@#$' ].
|
|
|
779 |
!
|
|
|
780 |
|
|
|
781 |
test057
|
|
|
782 |
|matcher|
|
|
|
783 |
|
|
1868
|
784 |
self
|
|
|
785 |
should:[ (matcher := self compileRegex:'[^[:alnum:]]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
786 |
self should:[ (matcher search:'fii234!!@#$34f') = true ].
|
|
|
787 |
self should:[ (matcher subexpression:1) = '!!@#$' ].
|
|
|
788 |
!
|
|
|
789 |
|
|
|
790 |
test058
|
|
|
791 |
|matcher|
|
|
|
792 |
|
|
1868
|
793 |
self
|
|
|
794 |
should:[
|
|
|
795 |
(matcher := self compileRegex:'[%&[:alnum:]]+' into:Regex::RxMatcher) ~= nil
|
|
|
796 |
].
|
|
1865
|
797 |
self should:[ (matcher search:'foo%3') = true ].
|
|
|
798 |
self should:[ (matcher subexpression:1) = 'foo%3' ].
|
|
|
799 |
self should:[ (matcher search:'foo34&rt4$57a') = true ].
|
|
|
800 |
self should:[ (matcher subexpression:1) = 'foo34&rt4' ].
|
|
|
801 |
self should:[ (matcher search:'!!@#$') = false ].
|
|
|
802 |
!
|
|
|
803 |
|
|
|
804 |
test059
|
|
|
805 |
|matcher|
|
|
|
806 |
|
|
1868
|
807 |
self
|
|
|
808 |
should:[ (matcher := self compileRegex:'[[:alpha:]]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
809 |
self should:[ (matcher search:' 123foo3 ') = true ].
|
|
|
810 |
self should:[ (matcher subexpression:1) = 'foo' ].
|
|
|
811 |
self should:[ (matcher search:'123foo') = true ].
|
|
|
812 |
self should:[ (matcher subexpression:1) = 'foo' ].
|
|
|
813 |
self should:[ (matcher search:'foo1b') = true ].
|
|
|
814 |
self should:[ (matcher subexpression:1) = 'foo' ].
|
|
|
815 |
!
|
|
|
816 |
|
|
|
817 |
test060
|
|
|
818 |
|matcher|
|
|
|
819 |
|
|
1868
|
820 |
self
|
|
|
821 |
should:[ (matcher := self compileRegex:'[[:cntrl:]]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
822 |
self should:[ (matcher search:' a 1234asdf') = false ].
|
|
|
823 |
!
|
|
|
824 |
|
|
|
825 |
test061
|
|
|
826 |
|matcher|
|
|
|
827 |
|
|
1868
|
828 |
self
|
|
|
829 |
should:[ (matcher := self compileRegex:'[[:lower:]]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
830 |
self should:[ (matcher search:'UPPERlower1234') = true ].
|
|
|
831 |
self should:[ (matcher subexpression:1) = 'lower' ].
|
|
|
832 |
self should:[ (matcher search:'lowerUPPER') = true ].
|
|
|
833 |
self should:[ (matcher subexpression:1) = 'lower' ].
|
|
|
834 |
!
|
|
|
835 |
|
|
|
836 |
test062
|
|
|
837 |
|matcher|
|
|
|
838 |
|
|
1868
|
839 |
self
|
|
|
840 |
should:[ (matcher := self compileRegex:'[[:upper:]]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
841 |
self should:[ (matcher search:'UPPERlower1234') = true ].
|
|
|
842 |
self should:[ (matcher subexpression:1) = 'UPPER' ].
|
|
|
843 |
self should:[ (matcher search:'lowerUPPER ') = true ].
|
|
|
844 |
self should:[ (matcher subexpression:1) = 'UPPER' ].
|
|
|
845 |
!
|
|
|
846 |
|
|
|
847 |
test063
|
|
|
848 |
|matcher|
|
|
|
849 |
|
|
1868
|
850 |
self
|
|
|
851 |
should:[ (matcher := self compileRegex:'[[:space:]]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
852 |
self should:[ (matcher search:'2 spaces') = true ].
|
|
|
853 |
self should:[ (matcher subexpression:1) = ' ' ].
|
|
|
854 |
!
|
|
|
855 |
|
|
|
856 |
test064
|
|
|
857 |
|matcher|
|
|
|
858 |
|
|
1868
|
859 |
self
|
|
|
860 |
should:[ (matcher := self compileRegex:'[^[:space:]]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
861 |
self should:[ (matcher search:' word12!!@#$ ') = true ].
|
|
|
862 |
self should:[ (matcher subexpression:1) = 'word12!!@#$' ].
|
|
|
863 |
!
|
|
|
864 |
|
|
|
865 |
test065
|
|
|
866 |
|matcher|
|
|
|
867 |
|
|
1868
|
868 |
self
|
|
|
869 |
should:[ (matcher := self compileRegex:'[[:graph:]]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
870 |
self should:[ (matcher search:'abc') = true ].
|
|
|
871 |
self should:[ (matcher subexpression:1) = 'abc' ].
|
|
|
872 |
!
|
|
|
873 |
|
|
|
874 |
test066
|
|
|
875 |
|matcher|
|
|
|
876 |
|
|
1868
|
877 |
self
|
|
|
878 |
should:[ (matcher := self compileRegex:'[[:print:]]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
879 |
self should:[ (matcher search:'abc') = true ].
|
|
|
880 |
self should:[ (matcher subexpression:1) = 'abc' ].
|
|
|
881 |
!
|
|
|
882 |
|
|
|
883 |
test067
|
|
|
884 |
|matcher|
|
|
|
885 |
|
|
1868
|
886 |
self
|
|
|
887 |
should:[ (matcher := self compileRegex:'[^[:punct:]]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
888 |
self should:[ (matcher search:'!!hello,world!!') = true ].
|
|
|
889 |
self should:[ (matcher subexpression:1) = 'hello' ].
|
|
|
890 |
!
|
|
|
891 |
|
|
|
892 |
test068
|
|
|
893 |
|matcher|
|
|
|
894 |
|
|
1868
|
895 |
self
|
|
|
896 |
should:[ (matcher := self compileRegex:'[[:xdigit:]]+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
897 |
self should:[ (matcher search:' x10FCD ') = true ].
|
|
|
898 |
self should:[ (matcher subexpression:1) = '10FCD' ].
|
|
|
899 |
self should:[ (matcher search:' hgfedcba0123456789ABCDEFGH ') = true ].
|
|
|
900 |
self should:[ (matcher subexpression:1) = 'fedcba0123456789ABCDEF' ].
|
|
|
901 |
!
|
|
|
902 |
|
|
|
903 |
test069
|
|
|
904 |
|matcher|
|
|
|
905 |
|
|
1868
|
906 |
self
|
|
|
907 |
should:[ (matcher := self compileRegex:'ab|cd' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
908 |
self should:[ (matcher search:'abc') = true ].
|
|
|
909 |
self should:[ (matcher subexpression:1) = 'ab' ].
|
|
|
910 |
self should:[ (matcher search:'abcd') = true ].
|
|
|
911 |
self should:[ (matcher subexpression:1) = 'ab' ].
|
|
|
912 |
!
|
|
|
913 |
|
|
|
914 |
test070
|
|
|
915 |
|matcher|
|
|
|
916 |
|
|
1868
|
917 |
self
|
|
|
918 |
should:[ (matcher := self compileRegex:'()ef' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
919 |
self should:[ (matcher search:'def') = true ].
|
|
|
920 |
self should:[ (matcher subexpression:1) = 'ef' ].
|
|
|
921 |
self should:[ (matcher subexpression:2) = '' ].
|
|
|
922 |
!
|
|
|
923 |
|
|
|
924 |
test071
|
|
|
925 |
|matcher|
|
|
|
926 |
|
|
1868
|
927 |
self should:[ (matcher := self compileRegex:'()*' into:Regex::RxMatcher) = nil ].
|
|
1865
|
928 |
!
|
|
|
929 |
|
|
|
930 |
test072
|
|
|
931 |
|matcher|
|
|
|
932 |
|
|
1868
|
933 |
self should:[ (matcher := self compileRegex:'*a' into:Regex::RxMatcher) = nil ].
|
|
1865
|
934 |
!
|
|
|
935 |
|
|
|
936 |
test073
|
|
|
937 |
|matcher|
|
|
|
938 |
|
|
1868
|
939 |
self should:[ (matcher := self compileRegex:'^*' into:Regex::RxMatcher) = nil ].
|
|
1865
|
940 |
!
|
|
|
941 |
|
|
|
942 |
test074
|
|
|
943 |
|matcher|
|
|
|
944 |
|
|
1868
|
945 |
self should:[ (matcher := self compileRegex:'$*' into:Regex::RxMatcher) = nil ].
|
|
1865
|
946 |
!
|
|
|
947 |
|
|
|
948 |
test075
|
|
|
949 |
|matcher|
|
|
|
950 |
|
|
1868
|
951 |
self
|
|
|
952 |
should:[ (matcher := self compileRegex:'(*)b' into:Regex::RxMatcher) = nil ].
|
|
1865
|
953 |
!
|
|
|
954 |
|
|
|
955 |
test076
|
|
|
956 |
|matcher|
|
|
|
957 |
|
|
1868
|
958 |
self should:[ (matcher := self compileRegex:'$b' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
959 |
self should:[ (matcher search:'b') = false ].
|
|
|
960 |
!
|
|
|
961 |
|
|
|
962 |
test077
|
|
|
963 |
|matcher|
|
|
|
964 |
|
|
1868
|
965 |
self should:[ (matcher := self compileRegex:'a\' into:Regex::RxMatcher) = nil ].
|
|
1865
|
966 |
!
|
|
|
967 |
|
|
|
968 |
test078
|
|
|
969 |
|matcher|
|
|
|
970 |
|
|
1868
|
971 |
self
|
|
|
972 |
should:[ (matcher := self compileRegex:'a\(b' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
973 |
self should:[ (matcher search:'a(b') = true ].
|
|
|
974 |
self should:[ (matcher subexpression:1) = 'a(b' ].
|
|
|
975 |
!
|
|
|
976 |
|
|
|
977 |
test079
|
|
|
978 |
|matcher|
|
|
|
979 |
|
|
1868
|
980 |
self
|
|
|
981 |
should:[ (matcher := self compileRegex:'a\(*b' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
982 |
self should:[ (matcher search:'ab') = true ].
|
|
|
983 |
self should:[ (matcher subexpression:1) = 'ab' ].
|
|
|
984 |
self should:[ (matcher search:'a((b') = true ].
|
|
|
985 |
self should:[ (matcher subexpression:1) = 'a((b' ].
|
|
|
986 |
!
|
|
|
987 |
|
|
|
988 |
test080
|
|
|
989 |
|matcher|
|
|
|
990 |
|
|
1868
|
991 |
self
|
|
|
992 |
should:[ (matcher := self compileRegex:'a\\b' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
993 |
self should:[ (matcher search:'a\b') = true ].
|
|
|
994 |
self should:[ (matcher subexpression:1) = 'a\b' ].
|
|
|
995 |
!
|
|
|
996 |
|
|
|
997 |
test081
|
|
|
998 |
|matcher|
|
|
|
999 |
|
|
1868
|
1000 |
self
|
|
|
1001 |
should:[ (matcher := self compileRegex:'abc)' into:Regex::RxMatcher) = nil ].
|
|
1865
|
1002 |
!
|
|
|
1003 |
|
|
|
1004 |
test082
|
|
|
1005 |
|matcher|
|
|
|
1006 |
|
|
1868
|
1007 |
self
|
|
|
1008 |
should:[ (matcher := self compileRegex:'(abc' into:Regex::RxMatcher) = nil ].
|
|
1865
|
1009 |
!
|
|
|
1010 |
|
|
|
1011 |
test083
|
|
|
1012 |
|matcher|
|
|
|
1013 |
|
|
1868
|
1014 |
self
|
|
|
1015 |
should:[ (matcher := self compileRegex:'((a))' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
1016 |
self should:[ (matcher search:'abc') = true ].
|
|
|
1017 |
self should:[ (matcher subexpression:1) = 'a' ].
|
|
|
1018 |
self should:[ (matcher subexpression:2) = 'a' ].
|
|
|
1019 |
self should:[ (matcher subexpression:3) = 'a' ].
|
|
|
1020 |
!
|
|
|
1021 |
|
|
|
1022 |
test084
|
|
|
1023 |
|matcher|
|
|
|
1024 |
|
|
1868
|
1025 |
self
|
|
|
1026 |
should:[ (matcher := self compileRegex:'(a)b(c)' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
1027 |
self should:[ (matcher search:'abc') = true ].
|
|
|
1028 |
self should:[ (matcher subexpression:1) = 'abc' ].
|
|
|
1029 |
self should:[ (matcher subexpression:2) = 'a' ].
|
|
|
1030 |
self should:[ (matcher subexpression:3) = 'c' ].
|
|
|
1031 |
!
|
|
|
1032 |
|
|
|
1033 |
test085
|
|
|
1034 |
|matcher|
|
|
|
1035 |
|
|
1868
|
1036 |
self
|
|
|
1037 |
should:[ (matcher := self compileRegex:'a+b+c' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
1038 |
self should:[ (matcher search:'aabbabc') = true ].
|
|
|
1039 |
self should:[ (matcher subexpression:1) = 'abc' ].
|
|
|
1040 |
!
|
|
|
1041 |
|
|
|
1042 |
test086
|
|
|
1043 |
|matcher|
|
|
|
1044 |
|
|
1868
|
1045 |
self should:[ (matcher := self compileRegex:'a**' into:Regex::RxMatcher) = nil ].
|
|
1865
|
1046 |
!
|
|
|
1047 |
|
|
|
1048 |
test087
|
|
|
1049 |
|matcher|
|
|
|
1050 |
|
|
1868
|
1051 |
self should:[ (matcher := self compileRegex:'a*?' into:Regex::RxMatcher) = nil ].
|
|
1865
|
1052 |
!
|
|
|
1053 |
|
|
|
1054 |
test088
|
|
|
1055 |
|matcher|
|
|
|
1056 |
|
|
1868
|
1057 |
self
|
|
|
1058 |
should:[ (matcher := self compileRegex:'(a*)*' into:Regex::RxMatcher) = nil ].
|
|
1865
|
1059 |
!
|
|
|
1060 |
|
|
|
1061 |
test089
|
|
|
1062 |
|matcher|
|
|
|
1063 |
|
|
1868
|
1064 |
self
|
|
|
1065 |
should:[ (matcher := self compileRegex:'(a*)+' into:Regex::RxMatcher) = nil ].
|
|
1865
|
1066 |
!
|
|
|
1067 |
|
|
|
1068 |
test090
|
|
|
1069 |
|matcher|
|
|
|
1070 |
|
|
1868
|
1071 |
self
|
|
|
1072 |
should:[ (matcher := self compileRegex:'(a|)*' into:Regex::RxMatcher) = nil ].
|
|
1865
|
1073 |
!
|
|
|
1074 |
|
|
|
1075 |
test091
|
|
|
1076 |
|matcher|
|
|
|
1077 |
|
|
1868
|
1078 |
self
|
|
|
1079 |
should:[ (matcher := self compileRegex:'(a*|b)*' into:Regex::RxMatcher) = nil ].
|
|
1865
|
1080 |
!
|
|
|
1081 |
|
|
|
1082 |
test092
|
|
|
1083 |
|matcher|
|
|
|
1084 |
|
|
1868
|
1085 |
self
|
|
|
1086 |
should:[ (matcher := self compileRegex:'(a+|b)*' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
1087 |
self should:[ (matcher search:'ab') = true ].
|
|
|
1088 |
self should:[ (matcher subexpression:1) = 'ab' ].
|
|
|
1089 |
self should:[ (matcher subexpression:2) = 'b' ].
|
|
|
1090 |
!
|
|
|
1091 |
|
|
|
1092 |
test093
|
|
|
1093 |
|matcher|
|
|
|
1094 |
|
|
1868
|
1095 |
self
|
|
|
1096 |
should:[ (matcher := self compileRegex:'(a+|b)+' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
1097 |
self should:[ (matcher search:'ab') = true ].
|
|
|
1098 |
self should:[ (matcher subexpression:1) = 'ab' ].
|
|
|
1099 |
self should:[ (matcher subexpression:2) = 'b' ].
|
|
|
1100 |
!
|
|
|
1101 |
|
|
|
1102 |
test094
|
|
|
1103 |
|matcher|
|
|
|
1104 |
|
|
1868
|
1105 |
self
|
|
|
1106 |
should:[ (matcher := self compileRegex:'(a+|b)?' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
1107 |
self should:[ (matcher search:'ab') = true ].
|
|
|
1108 |
self should:[ (matcher subexpression:1) = 'a' ].
|
|
|
1109 |
self should:[ (matcher subexpression:2) = 'a' ].
|
|
|
1110 |
!
|
|
|
1111 |
|
|
|
1112 |
test095
|
|
|
1113 |
|matcher|
|
|
|
1114 |
|
|
1868
|
1115 |
self
|
|
|
1116 |
should:[ (matcher := self compileRegex:'[^ab]*' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
1117 |
self should:[ (matcher search:'cde') = true ].
|
|
|
1118 |
self should:[ (matcher subexpression:1) = 'cde' ].
|
|
|
1119 |
!
|
|
|
1120 |
|
|
|
1121 |
test096
|
|
|
1122 |
|matcher|
|
|
|
1123 |
|
|
1868
|
1124 |
self
|
|
|
1125 |
should:[ (matcher := self compileRegex:'(^)*' into:Regex::RxMatcher) = nil ].
|
|
1865
|
1126 |
!
|
|
|
1127 |
|
|
|
1128 |
test097
|
|
|
1129 |
|matcher|
|
|
|
1130 |
|
|
1868
|
1131 |
self
|
|
|
1132 |
should:[ (matcher := self compileRegex:'(ab|)*' into:Regex::RxMatcher) = nil ].
|
|
1865
|
1133 |
!
|
|
|
1134 |
|
|
|
1135 |
test098
|
|
|
1136 |
|matcher|
|
|
|
1137 |
|
|
1868
|
1138 |
self should:[ (matcher := self compileRegex:')(' into:Regex::RxMatcher) = nil ].
|
|
1865
|
1139 |
!
|
|
|
1140 |
|
|
|
1141 |
test099
|
|
|
1142 |
|matcher|
|
|
|
1143 |
|
|
1868
|
1144 |
self should:[ (matcher := self compileRegex:'' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
1145 |
self should:[ (matcher search:'abc') = true ].
|
|
|
1146 |
self should:[ (matcher subexpression:1) = '' ].
|
|
|
1147 |
!
|
|
|
1148 |
|
|
|
1149 |
test100
|
|
|
1150 |
| matcher |
|
|
|
1151 |
|
|
1868
|
1152 |
self should: [ (matcher := self compileRegex: 'abc' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
1153 |
self should: [ (matcher search: '') = false ].
|
|
|
1154 |
|
|
|
1155 |
"
|
|
|
1156 |
self new test100
|
|
|
1157 |
"
|
|
|
1158 |
!
|
|
|
1159 |
|
|
|
1160 |
test101
|
|
|
1161 |
| matcher |
|
|
|
1162 |
|
|
1868
|
1163 |
self should: [ (matcher := self compileRegex: 'a*' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
1164 |
self should: [ (matcher search: '') = true ].
|
|
|
1165 |
|
|
|
1166 |
"
|
|
|
1167 |
self new test101
|
|
|
1168 |
"
|
|
|
1169 |
!
|
|
|
1170 |
|
|
|
1171 |
test102
|
|
|
1172 |
| matcher |
|
|
|
1173 |
|
|
1868
|
1174 |
self should: [ (matcher := self compileRegex: 'abcd' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
1175 |
self should: [ (matcher search: 'abcd') = true ].
|
|
|
1176 |
self should: [ (matcher subexpression: 1) = 'abcd' ].
|
|
|
1177 |
|
|
|
1178 |
"
|
|
|
1179 |
self new test102
|
|
|
1180 |
"
|
|
|
1181 |
!
|
|
|
1182 |
|
|
|
1183 |
test103
|
|
|
1184 |
| matcher |
|
|
|
1185 |
|
|
1868
|
1186 |
self should: [ (matcher := self compileRegex: 'a(bc)d' into:Regex::RxMatcher) ~= nil ].
|
|
1865
|
1187 |
self should: [ (matcher search: 'abcd') = true ].
|
|
|
1188 |
self should: [ (matcher subexpression: 1) = 'abcd' ].
|
|
|
1189 |
self should: [ (matcher subexpression: 2) = 'bc' ].
|
|
|
1190 |
|
|
|
1191 |
"
|
|
|
1192 |
self new test103
|
|
|
1193 |
"
|
|
|
1194 |
!
|
|
|
1195 |
|
|
|
1196 |
test104
|
|
1868
|
1197 |
| matcher |
|
|
|
1198 |
|
|
|
1199 |
|
|
|
1200 |
self should: [ (matcher := self compileRegex: '([abc])*d' into:Regex::RxMatcher) ~= nil ].
|
|
|
1201 |
self should: [ (matcher search: 'abbbcd') = true ].
|
|
|
1202 |
self should: [ (matcher subexpression: 1) = 'abbbcd' ].
|
|
|
1203 |
self should: [ (matcher subexpression: 2) = 'c' ].
|
|
1865
|
1204 |
!
|
|
|
1205 |
|
|
|
1206 |
test105
|
|
1868
|
1207 |
| matcher |
|
|
|
1208 |
|
|
|
1209 |
|
|
|
1210 |
self should: [ (matcher := self compileRegex: '([abc])*bcd' into:Regex::RxMatcher) ~= nil ].
|
|
|
1211 |
self should: [ (matcher search: 'abcd') = true ].
|
|
|
1212 |
self should: [ (matcher subexpression: 1) = 'abcd' ].
|
|
|
1213 |
self should: [ (matcher subexpression: 2) = 'a' ].
|
|
1865
|
1214 |
!
|
|
|
1215 |
|
|
|
1216 |
test106
|
|
1868
|
1217 |
| matcher |
|
|
|
1218 |
|
|
|
1219 |
|
|
|
1220 |
self should: [ (matcher := self compileRegex: 'a|b|c|d|e' into:Regex::RxMatcher) ~= nil ].
|
|
|
1221 |
self should: [ (matcher search: 'e') = true ].
|
|
|
1222 |
self should: [ (matcher subexpression: 1) = 'e' ].
|
|
1865
|
1223 |
!
|
|
|
1224 |
|
|
|
1225 |
test107
|
|
1868
|
1226 |
| matcher |
|
|
|
1227 |
|
|
|
1228 |
|
|
|
1229 |
self should: [ (matcher := self compileRegex: '(a|b|c|d|e)f' into:Regex::RxMatcher) ~= nil ].
|
|
|
1230 |
self should: [ (matcher search: 'ef') = true ].
|
|
|
1231 |
self should: [ (matcher subexpression: 1) = 'ef' ].
|
|
|
1232 |
self should: [ (matcher subexpression: 2) = 'e' ].
|
|
1865
|
1233 |
!
|
|
|
1234 |
|
|
|
1235 |
test108
|
|
1868
|
1236 |
| matcher |
|
|
|
1237 |
|
|
|
1238 |
|
|
|
1239 |
self should: [ (matcher := self compileRegex: 'abcd*efg' into:Regex::RxMatcher) ~= nil ].
|
|
|
1240 |
self should: [ (matcher search: 'abcdefg') = true ].
|
|
|
1241 |
self should: [ (matcher subexpression: 1) = 'abcdefg' ].
|
|
1865
|
1242 |
!
|
|
|
1243 |
|
|
|
1244 |
test109
|
|
1868
|
1245 |
| matcher |
|
|
|
1246 |
|
|
|
1247 |
|
|
|
1248 |
self should: [ (matcher := self compileRegex: 'ab*' into:Regex::RxMatcher) ~= nil ].
|
|
|
1249 |
self should: [ (matcher search: 'xabyabbbz') = true ].
|
|
|
1250 |
self should: [ (matcher subexpression: 1) = 'ab' ].
|
|
|
1251 |
self should: [ (matcher search: 'xayabbbz') = true ].
|
|
|
1252 |
self should: [ (matcher subexpression: 1) = 'a' ].
|
|
1865
|
1253 |
!
|
|
|
1254 |
|
|
|
1255 |
test110
|
|
1868
|
1256 |
| matcher |
|
|
|
1257 |
|
|
|
1258 |
|
|
|
1259 |
self should: [ (matcher := self compileRegex: '(ab|cd)e' into:Regex::RxMatcher) ~= nil ].
|
|
|
1260 |
self should: [ (matcher search: 'abcde') = true ].
|
|
|
1261 |
self should: [ (matcher subexpression: 1) = 'cde' ].
|
|
|
1262 |
self should: [ (matcher subexpression: 2) = 'cd' ].
|
|
1865
|
1263 |
!
|
|
|
1264 |
|
|
|
1265 |
test111
|
|
1868
|
1266 |
| matcher |
|
|
|
1267 |
|
|
|
1268 |
|
|
|
1269 |
self should: [ (matcher := self compileRegex: '[abhgefdc]ij' into:Regex::RxMatcher) ~= nil ].
|
|
|
1270 |
self should: [ (matcher search: 'hij') = true ].
|
|
|
1271 |
self should: [ (matcher subexpression: 1) = 'hij' ].
|
|
1865
|
1272 |
!
|
|
|
1273 |
|
|
|
1274 |
test112
|
|
1868
|
1275 |
| matcher |
|
|
|
1276 |
|
|
|
1277 |
|
|
|
1278 |
self should: [ (matcher := self compileRegex: '^(ab|cd)e' into:Regex::RxMatcher) ~= nil ].
|
|
|
1279 |
self should: [ (matcher search: 'abcde') = false ].
|
|
1865
|
1280 |
!
|
|
|
1281 |
|
|
|
1282 |
test113
|
|
1868
|
1283 |
| matcher |
|
|
|
1284 |
|
|
|
1285 |
|
|
|
1286 |
self should: [ (matcher := self compileRegex: '(abc|)def' into:Regex::RxMatcher) ~= nil ].
|
|
|
1287 |
self should: [ (matcher search: 'abcdef') = true ].
|
|
1865
|
1288 |
!
|
|
|
1289 |
|
|
|
1290 |
test114
|
|
1868
|
1291 |
| matcher |
|
|
|
1292 |
|
|
|
1293 |
|
|
|
1294 |
self should: [ (matcher := self compileRegex: '(a|b)c*d' into:Regex::RxMatcher) ~= nil ].
|
|
|
1295 |
self should: [ (matcher search: 'abcd') = true ].
|
|
|
1296 |
self should: [ (matcher subexpression: 1) = 'bcd' ].
|
|
|
1297 |
self should: [ (matcher subexpression: 2) = 'b' ].
|
|
1865
|
1298 |
!
|
|
|
1299 |
|
|
|
1300 |
test115
|
|
1868
|
1301 |
| matcher |
|
|
|
1302 |
|
|
|
1303 |
|
|
|
1304 |
self should: [ (matcher := self compileRegex: '(ab|ab*)bc' into:Regex::RxMatcher) ~= nil ].
|
|
|
1305 |
self should: [ (matcher search: 'abc') = true ].
|
|
|
1306 |
self should: [ (matcher subexpression: 1) = 'abc' ].
|
|
|
1307 |
self should: [ (matcher subexpression: 2) = 'a' ].
|
|
1865
|
1308 |
!
|
|
|
1309 |
|
|
|
1310 |
test116
|
|
1868
|
1311 |
| matcher |
|
|
|
1312 |
|
|
|
1313 |
|
|
|
1314 |
self should: [ (matcher := self compileRegex: 'a([bc]*)c*' into:Regex::RxMatcher) ~= nil ].
|
|
|
1315 |
self should: [ (matcher search: 'abc') = true ].
|
|
|
1316 |
self should: [ (matcher subexpression: 1) = 'abc' ].
|
|
|
1317 |
self should: [ (matcher subexpression: 2) = 'bc' ].
|
|
1865
|
1318 |
!
|
|
|
1319 |
|
|
|
1320 |
test117
|
|
1868
|
1321 |
| matcher |
|
|
|
1322 |
|
|
|
1323 |
|
|
|
1324 |
self should: [ (matcher := self compileRegex: 'a([bc]*)(c*d)' into:Regex::RxMatcher) ~= nil ].
|
|
|
1325 |
self should: [ (matcher search: 'abcd') = true ].
|
|
|
1326 |
self should: [ (matcher subexpression: 1) = 'abcd' ].
|
|
|
1327 |
self should: [ (matcher subexpression: 2) = 'bc' ].
|
|
|
1328 |
self should: [ (matcher subexpression: 3) = 'd' ].
|
|
1865
|
1329 |
!
|
|
|
1330 |
|
|
|
1331 |
test118
|
|
1868
|
1332 |
| matcher |
|
|
|
1333 |
|
|
|
1334 |
|
|
|
1335 |
self should: [ (matcher := self compileRegex: 'a([bc]+)(c*d)' into:Regex::RxMatcher) ~= nil ].
|
|
|
1336 |
self should: [ (matcher search: 'abcd') = true ].
|
|
|
1337 |
self should: [ (matcher subexpression: 1) = 'abcd' ].
|
|
|
1338 |
self should: [ (matcher subexpression: 2) = 'bc' ].
|
|
|
1339 |
self should: [ (matcher subexpression: 3) = 'd' ].
|
|
1865
|
1340 |
!
|
|
|
1341 |
|
|
|
1342 |
test119
|
|
1868
|
1343 |
| matcher |
|
|
|
1344 |
|
|
|
1345 |
|
|
|
1346 |
self should: [ (matcher := self compileRegex: 'a([bc]*)(c+d)' into:Regex::RxMatcher) ~= nil ].
|
|
|
1347 |
self should: [ (matcher search: 'abcd') = true ].
|
|
|
1348 |
self should: [ (matcher subexpression: 1) = 'abcd' ].
|
|
|
1349 |
self should: [ (matcher subexpression: 2) = 'b' ].
|
|
|
1350 |
self should: [ (matcher subexpression: 3) = 'cd' ].
|
|
1865
|
1351 |
!
|
|
|
1352 |
|
|
|
1353 |
test120
|
|
1868
|
1354 |
| matcher |
|
|
|
1355 |
|
|
|
1356 |
|
|
|
1357 |
self should: [ (matcher := self compileRegex: 'a[bcd]*dcdcde' into:Regex::RxMatcher) ~= nil ].
|
|
|
1358 |
self should: [ (matcher search: 'adcdcde') = true ].
|
|
|
1359 |
self should: [ (matcher subexpression: 1) = 'adcdcde' ].
|
|
1865
|
1360 |
!
|
|
|
1361 |
|
|
|
1362 |
test121
|
|
1868
|
1363 |
| matcher |
|
|
|
1364 |
|
|
|
1365 |
|
|
|
1366 |
self should: [ (matcher := self compileRegex: 'a[bcd]+dcdcde' into:Regex::RxMatcher) ~= nil ].
|
|
|
1367 |
self should: [ (matcher search: 'adcdcde') = false ].
|
|
1865
|
1368 |
!
|
|
|
1369 |
|
|
|
1370 |
test122
|
|
1868
|
1371 |
| matcher |
|
|
|
1372 |
|
|
|
1373 |
|
|
|
1374 |
self should: [ (matcher := self compileRegex: '(ab|a)b*c' into:Regex::RxMatcher) ~= nil ].
|
|
|
1375 |
self should: [ (matcher search: 'abc') = true ].
|
|
|
1376 |
self should: [ (matcher subexpression: 1) = 'abc' ].
|
|
1865
|
1377 |
!
|
|
|
1378 |
|
|
|
1379 |
test123
|
|
1868
|
1380 |
| matcher |
|
|
|
1381 |
|
|
|
1382 |
|
|
|
1383 |
self should: [ (matcher := self compileRegex: '((a)(b)c)(d)' into:Regex::RxMatcher) ~= nil ].
|
|
|
1384 |
self should: [ (matcher search: 'abcd') = true ].
|
|
|
1385 |
self should: [ (matcher subexpression: 1) = 'abcd' ].
|
|
|
1386 |
self should: [ (matcher subexpression: 3) = 'a' ].
|
|
|
1387 |
self should: [ (matcher subexpression: 4) = 'b' ].
|
|
|
1388 |
self should: [ (matcher subexpression: 5) = 'd' ].
|
|
1865
|
1389 |
!
|
|
|
1390 |
|
|
|
1391 |
test124
|
|
1868
|
1392 |
| matcher |
|
|
|
1393 |
|
|
|
1394 |
|
|
|
1395 |
self should: [ (matcher := self compileRegex: '[ -~]*' into:Regex::RxMatcher) ~= nil ].
|
|
|
1396 |
self should: [ (matcher search: 'abc') = true ].
|
|
|
1397 |
self should: [ (matcher subexpression: 1) = 'abc' ].
|
|
1865
|
1398 |
!
|
|
|
1399 |
|
|
|
1400 |
test125
|
|
1868
|
1401 |
| matcher |
|
|
|
1402 |
|
|
|
1403 |
|
|
|
1404 |
self should: [ (matcher := self compileRegex: '[ -~ -~]*' into:Regex::RxMatcher) ~= nil ].
|
|
|
1405 |
self should: [ (matcher search: 'abc') = true ].
|
|
|
1406 |
self should: [ (matcher subexpression: 1) = 'abc' ].
|
|
1865
|
1407 |
!
|
|
|
1408 |
|
|
|
1409 |
test126
|
|
1868
|
1410 |
| matcher |
|
|
|
1411 |
|
|
|
1412 |
|
|
|
1413 |
self should: [ (matcher := self compileRegex: '[ -~ -~ -~]*' into:Regex::RxMatcher) ~= nil ].
|
|
|
1414 |
self should: [ (matcher search: 'abc') = true ].
|
|
|
1415 |
self should: [ (matcher subexpression: 1) = 'abc' ].
|
|
1865
|
1416 |
!
|
|
|
1417 |
|
|
|
1418 |
test127
|
|
1868
|
1419 |
| matcher |
|
|
|
1420 |
|
|
|
1421 |
|
|
|
1422 |
self should: [ (matcher := self compileRegex: '[ -~ -~ -~ -~]*' into:Regex::RxMatcher) ~= nil ].
|
|
|
1423 |
self should: [ (matcher search: 'abc') = true ].
|
|
|
1424 |
self should: [ (matcher subexpression: 1) = 'abc' ].
|
|
1865
|
1425 |
!
|
|
|
1426 |
|
|
|
1427 |
test128
|
|
1868
|
1428 |
| matcher |
|
|
|
1429 |
|
|
|
1430 |
|
|
|
1431 |
self should: [ (matcher := self compileRegex: '[ -~ -~ -~ -~ -~]*' into:Regex::RxMatcher) ~= nil ].
|
|
|
1432 |
self should: [ (matcher search: 'abc') = true ].
|
|
|
1433 |
self should: [ (matcher subexpression: 1) = 'abc' ].
|
|
1865
|
1434 |
!
|
|
|
1435 |
|
|
|
1436 |
test129
|
|
1868
|
1437 |
| matcher |
|
|
|
1438 |
|
|
|
1439 |
|
|
|
1440 |
self should: [ (matcher := self compileRegex: '[ -~ -~ -~ -~ -~ -~]*' into:Regex::RxMatcher) ~= nil ].
|
|
|
1441 |
self should: [ (matcher search: 'abc') = true ].
|
|
|
1442 |
self should: [ (matcher subexpression: 1) = 'abc' ].
|
|
1865
|
1443 |
!
|
|
|
1444 |
|
|
|
1445 |
test130
|
|
1868
|
1446 |
| matcher |
|
|
|
1447 |
|
|
|
1448 |
|
|
|
1449 |
self should: [ (matcher := self compileRegex: '[ -~ -~ -~ -~ -~ -~ -~]*' into:Regex::RxMatcher) ~= nil ].
|
|
|
1450 |
self should: [ (matcher search: 'abc') = true ].
|
|
|
1451 |
self should: [ (matcher subexpression: 1) = 'abc' ].
|
|
1865
|
1452 |
!
|
|
|
1453 |
|
|
|
1454 |
test131
|
|
1868
|
1455 |
| matcher |
|
|
|
1456 |
|
|
|
1457 |
|
|
|
1458 |
self should: [ (matcher := self compileRegex: '[a-zA-Z_][a-zA-Z0-9_]*' into:Regex::RxMatcher) ~= nil ].
|
|
|
1459 |
self should: [ (matcher search: 'alpha') = true ].
|
|
|
1460 |
self should: [ (matcher subexpression: 1) = 'alpha' ].
|
|
1865
|
1461 |
!
|
|
|
1462 |
|
|
|
1463 |
test132
|
|
1868
|
1464 |
| matcher |
|
|
|
1465 |
|
|
|
1466 |
self should: [ (matcher := self compileRegex: '^a(bc+|b[eh])g|.h$' into:Regex::RxMatcher) ~= nil ].
|
|
|
1467 |
self should: [ (matcher search: 'abh') = true ].
|
|
|
1468 |
self should: [ (matcher subexpression: 1) = 'bh' ].
|
|
|
1469 |
self should: [ (matcher subexpression: 2) = '' ].
|
|
1865
|
1470 |
!
|
|
|
1471 |
|
|
|
1472 |
test133
|
|
1868
|
1473 |
| matcher |
|
|
|
1474 |
|
|
|
1475 |
self should: [ (matcher := self compileRegex: '(bc+d$|ef*g.|h?i(j|k))' into:Regex::RxMatcher) ~= nil ].
|
|
|
1476 |
self should: [ (matcher search: 'effgz') = true ].
|
|
|
1477 |
self should: [ (matcher subexpression: 1) = 'effgz' ].
|
|
|
1478 |
self should: [ (matcher subexpression: 2) = 'effgz' ].
|
|
|
1479 |
self should: [ (matcher subexpression: 3) = '' ].
|
|
|
1480 |
self should: [ (matcher search: 'ij') = true ].
|
|
|
1481 |
self should: [ (matcher subexpression: 1) = 'ij' ].
|
|
|
1482 |
self should: [ (matcher subexpression: 2) = 'ij' ].
|
|
|
1483 |
self should: [ (matcher subexpression: 3) = 'j' ].
|
|
|
1484 |
self should: [ (matcher search: 'effg') = false ].
|
|
|
1485 |
self should: [ (matcher search: 'bcdd') = false ].
|
|
|
1486 |
self should: [ (matcher search: 'reffgz') = true ].
|
|
|
1487 |
self should: [ (matcher subexpression: 1) = 'effgz' ].
|
|
|
1488 |
self should: [ (matcher subexpression: 2) = 'effgz' ].
|
|
|
1489 |
self should: [ (matcher subexpression: 3) = '' ].
|
|
1865
|
1490 |
!
|
|
|
1491 |
|
|
|
1492 |
test134
|
|
1868
|
1493 |
| matcher |
|
|
|
1494 |
|
|
|
1495 |
self should: [ (matcher := self compileRegex: '(((((((((a)))))))))' into:Regex::RxMatcher) ~= nil ].
|
|
|
1496 |
self should: [ (matcher search: 'a') = true ].
|
|
|
1497 |
self should: [ (matcher subexpression: 1) = 'a' ].
|
|
1865
|
1498 |
!
|
|
|
1499 |
|
|
|
1500 |
test135
|
|
1868
|
1501 |
| matcher |
|
|
|
1502 |
|
|
|
1503 |
self should: [ (matcher := self compileRegex: 'multiple words of text' into:Regex::RxMatcher) ~= nil ].
|
|
|
1504 |
self should: [ (matcher search: 'uh-uh') = false ].
|
|
|
1505 |
self should: [ (matcher search: 'multiple words of text, yeah') = true ].
|
|
|
1506 |
self should: [ (matcher subexpression: 1) = 'multiple words of text' ].
|
|
1865
|
1507 |
!
|
|
|
1508 |
|
|
|
1509 |
test136
|
|
1868
|
1510 |
| matcher |
|
|
|
1511 |
|
|
|
1512 |
self should: [ (matcher := self compileRegex: '(.*)c(.*)' into:Regex::RxMatcher) ~= nil ].
|
|
|
1513 |
self should: [ (matcher search: 'abcde') = true ].
|
|
|
1514 |
self should: [ (matcher subexpression: 1) = 'abcde' ].
|
|
|
1515 |
self should: [ (matcher subexpression: 2) = 'ab' ].
|
|
|
1516 |
self should: [ (matcher subexpression: 3) = 'de' ].
|
|
1865
|
1517 |
!
|
|
|
1518 |
|
|
|
1519 |
test137
|
|
1868
|
1520 |
| matcher |
|
|
|
1521 |
|
|
|
1522 |
self should: [ (matcher := self compileRegex: '\((.*), (.*)\)' into:Regex::RxMatcher) ~= nil ].
|
|
|
1523 |
self should: [ (matcher search: '(a, b)') = true ].
|
|
|
1524 |
self should: [ (matcher subexpression: 2) = 'a' ].
|
|
|
1525 |
self should: [ (matcher subexpression: 3) = 'b' ].
|
|
1865
|
1526 |
!
|
|
|
1527 |
|
|
|
1528 |
test199
|
|
|
1529 |
|matcher|
|
|
|
1530 |
|
|
1868
|
1531 |
self
|
|
|
1532 |
should:[ (matcher := self compileRegex:'a{}b' into:Regex::RxMatcher) = nil ].
|
|
1865
|
1533 |
!
|
|
|
1534 |
|
|
|
1535 |
test200
|
|
1868
|
1536 |
| matcher |
|
|
|
1537 |
|
|
|
1538 |
self should: [ (matcher := self compileRegex: '\d{2,5}' into:Regex::RxMatcher) ~= nil ].
|
|
|
1539 |
self should: [ (matcher search: '1') = false ].
|
|
|
1540 |
self should: [ (matcher search: '12') = true ].
|
|
|
1541 |
self should: [ (matcher search: '123') = true ].
|
|
|
1542 |
self should: [ (matcher search: '1234') = true ].
|
|
|
1543 |
self should: [ (matcher search: '12356') = true ].
|
|
|
1544 |
self should: [ (matcher search: '123456') = true ].
|
|
|
1545 |
self should: [ (matcher subexpression: 1) = '12345' ].
|
|
1865
|
1546 |
!
|
|
|
1547 |
|
|
|
1548 |
test201
|
|
1868
|
1549 |
| matcher |
|
|
|
1550 |
|
|
|
1551 |
self should: [ (matcher := self compileRegex: '[0-9]{2,5}' into:Regex::RxMatcher) ~= nil ].
|
|
|
1552 |
self should: [ (matcher search: '1') = false ].
|
|
|
1553 |
self should: [ (matcher search: '12') = true ].
|
|
|
1554 |
self should: [ (matcher search: '123') = true ].
|
|
|
1555 |
self should: [ (matcher search: '1234') = true ].
|
|
|
1556 |
self should: [ (matcher search: '12356') = true ].
|
|
|
1557 |
self should: [ (matcher search: '123456') = true ].
|
|
|
1558 |
self should: [ (matcher subexpression: 1) = '12345' ].
|
|
1865
|
1559 |
!
|
|
|
1560 |
|
|
|
1561 |
test202
|
|
1868
|
1562 |
| matcher |
|
|
|
1563 |
|
|
|
1564 |
self assert: ( (matcher := self compileRegex: '([0-9]{2,4}\s){2}' into:Regex::RxMatcher) ~= nil ).
|
|
|
1565 |
self deny: ( matcher matches: '1 1 ').
|
|
|
1566 |
self assert: ( matcher matches: '12 12 ' ).
|
|
|
1567 |
self assert: ( matcher matches: '12 123 ' ).
|
|
|
1568 |
self assert: ( matcher matches: '123 12 ' ).
|
|
|
1569 |
self assert: ( matcher matches: '123 123 ' ).
|
|
|
1570 |
self assert: ( matcher matches: '1234 12 ' ).
|
|
|
1571 |
self deny: ( matcher matches: '123456 12 ' ).
|
|
|
1572 |
self deny: ( matcher matches: '12356 12 ' ).
|
|
1865
|
1573 |
!
|
|
|
1574 |
|
|
|
1575 |
testProtocol
|
|
1869
|
1576 |
| matcher |
|
|
|
1577 |
|
|
|
1578 |
self should: [ (matcher := Regex::RxMatcher forString: '\w+') ~= nil ].
|
|
|
1579 |
self should: [ (matcher matchesIn: 'now is the time') asArray = #('now' 'is' 'the' 'time') ].
|
|
|
1580 |
self should: [ (matcher copy: 'now is the time ' translatingMatchesUsing: [:s | s reverse]) = 'won si eht emit ' ].
|
|
|
1581 |
|
|
|
1582 |
"See that the match context is preserved while copying stuff between matches:"
|
|
|
1583 |
|
|
|
1584 |
self should: [ ((Regex::RxMatcher forString: '\<\d\D+')
|
|
|
1585 |
copy: '9aaa1bbb 8ccc'
|
|
|
1586 |
replacingMatchesWith: 'foo') = 'foo1bbb foo' ].
|
|
1865
|
1587 |
!
|
|
|
1588 |
|
|
|
1589 |
testTermination001
|
|
|
1590 |
self assert:(('' allRegexMatches:'\S*') asArray = #('')).
|
|
|
1591 |
self assert:(('t' allRegexMatches:'\S*') asArray = #('t')).
|
|
|
1592 |
self assert:(('the' allRegexMatches:'\S*') asArray = #('the')).
|
|
|
1593 |
self assert:(('the time' allRegexMatches:'\S*') asArray = #('the' 'time')).
|
|
|
1594 |
|
|
|
1595 |
self assert:(('the time' allRegexMatches:'\S*') size >= 2).
|
|
|
1596 |
|
|
|
1597 |
"Created: / 04-05-2017 / 19:45:04 / mawalch"
|
|
|
1598 |
"Modified (format): / 07-06-2017 / 10:06:59 / mawalch"
|
|
|
1599 |
! !
|
|
|
1600 |
|
|
|
1601 |
!RxTests methodsFor:'test suite - old'!
|
|
|
1602 |
|
|
|
1603 |
compileRegex: regexSource into: matcherClass
|
|
1868
|
1604 |
"Compile the regex and answer the matcher, or answer nil if compilation fails."
|
|
|
1605 |
|
|
|
1606 |
| syntaxTree |
|
|
|
1607 |
syntaxTree := Regex::RxParser safelyParse: regexSource.
|
|
|
1608 |
syntaxTree == nil ifTrue: [^nil].
|
|
|
1609 |
^matcherClass for: syntaxTree
|
|
1865
|
1610 |
!
|
|
|
1611 |
|
|
|
1612 |
runProtocolTestsForMatcher: matcherClass
|
|
|
1613 |
|
|
|
1614 |
| matcher |
|
|
|
1615 |
Transcript show: 'Testing matcher protocol...'.
|
|
|
1616 |
matcher := matcherClass forString: '\w+'.
|
|
|
1617 |
(matcher matchesIn: 'now is the time') asArray = #('now' 'is' 'the' 'time')
|
|
|
1618 |
ifFalse: [self error: 'matchesIn: test failed'].
|
|
|
1619 |
(matcher copy: 'now is the time ' translatingMatchesUsing: [:s | s reverse])
|
|
|
1620 |
= 'won si eht emit '
|
|
|
1621 |
ifFalse: [self error: 'copy:translatingMatchesWith: test failed'].
|
|
|
1622 |
"See that the match context is preserved while copying stuff between matches:"
|
|
1868
|
1623 |
((matcherClass forString: '\<\d\D+')
|
|
1865
|
1624 |
copy: '9aaa1bbb 8ccc'
|
|
|
1625 |
replacingMatchesWith: 'foo') = 'foo1bbb foo'
|
|
|
1626 |
ifFalse: [self error: 'test failed'].
|
|
|
1627 |
Transcript show: 'OK'; cr
|
|
|
1628 |
!
|
|
|
1629 |
|
|
|
1630 |
runRegexTestsForMatcher: matcherClass
|
|
1868
|
1631 |
"Run the whole suite of tests for the given matcher class. May blow up
|
|
|
1632 |
if anything goes wrong with the matcher or parser. Since this is a
|
|
|
1633 |
developer's tool, who cares?"
|
|
|
1634 |
"self runRegexTestsForMatcher: Regex::RxMatcher"
|
|
|
1635 |
|
|
|
1636 |
| failures |
|
|
|
1637 |
failures := 0.
|
|
|
1638 |
Transcript cr.
|
|
|
1639 |
self xtestSuite do: [:clause |
|
|
|
1640 |
| rxSource matcher isOK |
|
|
|
1641 |
rxSource := clause first.
|
|
|
1642 |
Transcript show: 'Testing regex: '; show: rxSource printString; cr.
|
|
|
1643 |
matcher := self compileRegex: rxSource into: matcherClass.
|
|
|
1644 |
matcher == nil
|
|
|
1645 |
ifTrue:
|
|
|
1646 |
[(clause at: 2) isNil
|
|
|
1647 |
ifTrue:
|
|
|
1648 |
[Transcript tab; show: 'Compilation error as expected (ok)'; cr]
|
|
|
1649 |
ifFalse:
|
|
|
1650 |
[Transcript tab;
|
|
|
1651 |
show: 'Compilation error, UNEXPECTED -- FAILED'; cr.
|
|
|
1652 |
failures := failures + 1]]
|
|
|
1653 |
ifFalse:
|
|
|
1654 |
[(clause at: 2) == nil
|
|
|
1655 |
ifTrue:
|
|
|
1656 |
[Transcript tab;
|
|
|
1657 |
show: 'Compilation succeeded, should have failed -- FAILED!!';
|
|
|
1658 |
cr.
|
|
|
1659 |
failures := failures + 1]
|
|
|
1660 |
ifFalse:
|
|
|
1661 |
[2 to: clause size by: 3 do:
|
|
|
1662 |
[:i |
|
|
|
1663 |
isOK := self
|
|
|
1664 |
xtest: matcher
|
|
|
1665 |
with: (clause at: i)
|
|
|
1666 |
expect: (clause at: i + 1)
|
|
|
1667 |
withSubexpressions: (clause at: i + 2).
|
|
|
1668 |
isOK ifFalse: [failures := failures + 1].
|
|
|
1669 |
Transcript
|
|
|
1670 |
show: (isOK ifTrue: [' (ok).'] ifFalse: [' -- FAILED!!']);
|
|
|
1671 |
cr]]]].
|
|
|
1672 |
failures = 0
|
|
|
1673 |
ifTrue: [Transcript show: 'PASSED ALL TESTS.'; cr]
|
|
|
1674 |
ifFalse: [Transcript show: failures printString, ' TESTS FAILED!!'; cr]
|
|
1865
|
1675 |
!
|
|
|
1676 |
|
|
|
1677 |
runTestsForMatcher: matcherClass
|
|
|
1678 |
"Run the whole suite of tests for the given matcher class. May blow up
|
|
1868
|
1679 |
if something goes wrong with the matcher or the parser. Since this is a
|
|
1865
|
1680 |
developer's tool, who cares?"
|
|
1868
|
1681 |
"self runTestsForMatcher: Regex::RxMatcher"
|
|
1865
|
1682 |
|
|
|
1683 |
self
|
|
|
1684 |
runRegexTestsForMatcher: matcherClass;
|
|
|
1685 |
runProtocolTestsForMatcher: matcherClass
|
|
|
1686 |
!
|
|
|
1687 |
|
|
|
1688 |
testCadrMatching
|
|
|
1689 |
"self debug: #testCadrMatching"
|
|
|
1690 |
|
|
|
1691 |
"A bit more complex example is the following expression, matching the
|
|
|
1692 |
name of any of the Lisp-style `car', `cdr', `caar', `cadr',
|
|
|
1693 |
... functions:"
|
|
|
1694 |
|
|
|
1695 |
self assert: ( 'car' matchesRegex: 'c(a|d)+r').
|
|
|
1696 |
self assert: ( 'cdr' matchesRegex: 'c(a|d)+r').
|
|
|
1697 |
self assert: ( 'caar' matchesRegex: 'c(a|d)+r').
|
|
|
1698 |
self assert: ( 'cadr' matchesRegex: 'c(a|d)+r').
|
|
|
1699 |
self assert: ( 'caddar' matchesRegex: 'c(a|d)+r').
|
|
|
1700 |
!
|
|
|
1701 |
|
|
|
1702 |
testCharacterSet
|
|
|
1703 |
"self debug: #testCharacterSet"
|
|
1868
|
1704 |
|
|
1865
|
1705 |
"So far, we have used only characters as the 'smallest' components of
|
|
|
1706 |
regular expressions. There are other, more `interesting', components.
|
|
|
1707 |
A character set is a string of characters enclosed in square
|
|
|
1708 |
brackets. It matches any single character if it appears between the
|
|
|
1709 |
brackets. For example, `[01]' matches either `0' or `1':"
|
|
|
1710 |
|
|
1868
|
1711 |
self assert: ('0' matchesRegex: '[01]').
|
|
|
1712 |
self deny: ('3' matchesRegex: '[01]').
|
|
1865
|
1713 |
self deny: ('11' matchesRegex: '[01]'). "-- false: a set matches only one character"
|
|
|
1714 |
self deny: ('01' matchesRegex: '[01]').
|
|
|
1715 |
!
|
|
|
1716 |
|
|
|
1717 |
testCharacterSetBinaryNumber
|
|
|
1718 |
"self debug: #testCharacterSetBinaryNumber"
|
|
1868
|
1719 |
|
|
1865
|
1720 |
"Using plus operator, we can build the following binary number
|
|
|
1721 |
recognizer:"
|
|
1868
|
1722 |
self assert: ('10010100' matchesRegex: '[01]+').
|
|
|
1723 |
self deny: ('10001210' matchesRegex: '[01]+')
|
|
1865
|
1724 |
!
|
|
|
1725 |
|
|
|
1726 |
testCharacterSetInversion
|
|
|
1727 |
"self debug: #testCharacterSetInversion"
|
|
1868
|
1728 |
|
|
1865
|
1729 |
"If the first character after the opening bracket is `^', the set is
|
|
|
1730 |
inverted: it matches any single character *not* appearing between the
|
|
|
1731 |
brackets:"
|
|
1868
|
1732 |
|
|
|
1733 |
self deny: ('0' matchesRegex: '[^01]').
|
|
1865
|
1734 |
"0 appears in 01 so there is no match"
|
|
1868
|
1735 |
|
|
1865
|
1736 |
self assert: ('3' matchesRegex: '[^01]').
|
|
|
1737 |
"3 is not in 01 so it matches"
|
|
1868
|
1738 |
|
|
|
1739 |
|
|
|
1740 |
self deny: ('30' matchesRegex: '[^01]').
|
|
|
1741 |
self deny: ('33333333333333333333333330' matchesRegex: '[^01]').
|
|
1865
|
1742 |
"there is one zero so it does not match"
|
|
|
1743 |
!
|
|
|
1744 |
|
|
|
1745 |
testCharacterSetRange
|
|
|
1746 |
"self debug: #testCharacterSetRange"
|
|
1868
|
1747 |
|
|
1865
|
1748 |
"For convenience, a set may include ranges: pairs of characters
|
|
|
1749 |
separated with `-'. This is equivalent to listing all characters
|
|
1868
|
1750 |
between them: `[0-9]' is the same as `[0123456789]'. "
|
|
|
1751 |
|
|
|
1752 |
self assert: ('0' matchesRegex: '[0-9]').
|
|
|
1753 |
self assert: ('9' matchesRegex: '[0-9]').
|
|
1865
|
1754 |
self deny: ('a' matchesRegex: '[0-9]').
|
|
1868
|
1755 |
self deny: ('01' matchesRegex: '[0-9]').
|
|
|
1756 |
self assert: ('01442128629839374565' matchesRegex: '[0-9]+').
|
|
1865
|
1757 |
!
|
|
|
1758 |
|
|
|
1759 |
testMatchesInwW
|
|
|
1760 |
"self debug: #testMatchesInwW"
|
|
1868
|
1761 |
|
|
1865
|
1762 |
"1. Backslash escapes similar to those in Perl are allowed in patterns:
|
|
|
1763 |
\w any word constituent character (equivalent to [a-zA-Z0-9_])
|
|
|
1764 |
\W any character but a word constituent (equivalent to [^a-xA-Z0-9_]"
|
|
|
1765 |
|
|
|
1766 |
self assert: ('\w+' asRegex matchesIn: 'now is the time') asArray = #('now' 'is' 'the' 'time').
|
|
|
1767 |
self assert: ('\W+' asRegex matchesIn: 'now is the time') asArray = #(' ' ' ' ' ').
|
|
1868
|
1768 |
|
|
|
1769 |
|
|
1865
|
1770 |
"/ self halt.
|
|
|
1771 |
"why do we get that"
|
|
|
1772 |
self assert: ('\w' asRegex matchesIn: 'now') asArray = #('n' 'o' 'w').
|
|
|
1773 |
!
|
|
|
1774 |
|
|
|
1775 |
testOrOperator
|
|
|
1776 |
"self debug: #testOrOperator"
|
|
1868
|
1777 |
|
|
1865
|
1778 |
"The last operator is `|' meaning `or'. It is placed between two
|
|
|
1779 |
regular expressions, and the resulting expression matches if one of
|
|
|
1780 |
the expressions matches. It has the lowest possible precedence (lower
|
|
|
1781 |
than sequencing). For example, `ab*|ba*' means `a followed by any
|
|
|
1782 |
number of b's, or b followed by any number of a's':"
|
|
|
1783 |
|
|
1868
|
1784 |
self assert: ('abb' matchesRegex: 'ab*|ba*').
|
|
|
1785 |
self assert: ('baa' matchesRegex: 'ab*|ba*').
|
|
1865
|
1786 |
self deny: ('baab' matchesRegex: 'ab*|ba*').
|
|
1868
|
1787 |
|
|
1865
|
1788 |
|
|
|
1789 |
"It is possible to write an expression matching an empty string, for
|
|
|
1790 |
example: `a|'. However, it is an error to apply `*', `+', or `?' to
|
|
|
1791 |
such expression: `(a|)*' is an invalid expression."
|
|
|
1792 |
|
|
|
1793 |
self should: ['(a|)*' asRegex] raise: Error.
|
|
|
1794 |
!
|
|
|
1795 |
|
|
|
1796 |
testQuotingOperators
|
|
|
1797 |
"self debug: #testQuotingOperators"
|
|
1868
|
1798 |
|
|
1865
|
1799 |
"As we have seen, characters `*', `+', `?', `(', and `)' have special
|
|
|
1800 |
meaning in regular expressions. If one of them is to be used
|
|
|
1801 |
literally, it should be quoted: preceded with a backslash. (Thus,
|
|
|
1802 |
backslash is also special character, and needs to be quoted for a
|
|
|
1803 |
literal match--as well as any other special character described
|
|
|
1804 |
further)."
|
|
|
1805 |
|
|
|
1806 |
self deny: ('ab*' matchesRegex: 'ab*'). " -- false: star in the right string is special"
|
|
1868
|
1807 |
self assert: ('ab*' matchesRegex: 'ab\*').
|
|
|
1808 |
self assert: ('a\c' matchesRegex: 'a\\c').
|
|
1865
|
1809 |
!
|
|
|
1810 |
|
|
|
1811 |
testSimpleMatchesRegex
|
|
|
1812 |
"self debug: #testSimpleMatchesRegex"
|
|
1868
|
1813 |
|
|
1865
|
1814 |
"The simplest regular expression is a single character. It matches
|
|
|
1815 |
exactly that character. A sequence of characters matches a string with
|
|
|
1816 |
exactly the same sequence of characters:"
|
|
|
1817 |
|
|
|
1818 |
self assert: ('a' matchesRegex: 'a').
|
|
|
1819 |
self assert: ('foobar' matchesRegex: 'foobar') .
|
|
|
1820 |
self deny: ('blorple' matchesRegex: 'foobar')
|
|
|
1821 |
!
|
|
|
1822 |
|
|
|
1823 |
testSimpleMatchesRegexWithStar
|
|
|
1824 |
"self debug: #testSimpleMatchesRegexWithStar"
|
|
1868
|
1825 |
|
|
1865
|
1826 |
"The above paragraph in testSimpleMatchesRegex introduced a primitive regular expression (a
|
|
|
1827 |
character), and an operator (sequencing). Operators are applied to
|
|
|
1828 |
regular expressions to produce more complex regular expressions.
|
|
|
1829 |
Sequencing (placing expressions one after another) as an operator is,
|
|
|
1830 |
in a certain sense, `invisible'--yet it is arguably the most common.
|
|
|
1831 |
A more `visible' operator is Kleene closure, more often simply
|
|
|
1832 |
referred to as `a star'. A regular expression followed by an asterisk
|
|
|
1833 |
matches any number (including 0) of matches of the original
|
|
|
1834 |
expression. For example:"
|
|
|
1835 |
|
|
1868
|
1836 |
self assert: ('ab' matchesRegex: 'a*b').
|
|
|
1837 |
self assert: ('aaaaab' matchesRegex: 'a*b').
|
|
|
1838 |
self assert: ('b' matchesRegex: 'a*b').
|
|
|
1839 |
self deny: ('aac' matchesRegex: 'a*b').
|
|
1865
|
1840 |
!
|
|
|
1841 |
|
|
|
1842 |
testSpecialCharacterInSetRange
|
|
|
1843 |
"self debug: #testSpecialCharacterInSetRange"
|
|
1868
|
1844 |
|
|
1865
|
1845 |
"Special characters within a set are `^', `-', and `]' that closes the
|
|
|
1846 |
set. Below are the examples of how to literally use them in a set:
|
|
|
1847 |
[01^] -- put the caret anywhere except the beginning
|
|
|
1848 |
[01-] -- put the dash as the last character
|
|
1868
|
1849 |
[]01] -- put the closing bracket as the first character
|
|
1865
|
1850 |
[^]01] (thus, empty and universal sets cannot be specified)"
|
|
|
1851 |
|
|
|
1852 |
self assert: ('0' matchesRegex: '[01^]').
|
|
|
1853 |
self assert: ('1' matchesRegex: '[01^]').
|
|
|
1854 |
self assert: ('^' matchesRegex: '[01^]').
|
|
1868
|
1855 |
|
|
1865
|
1856 |
self deny: ('0' matchesRegex: '[^01]').
|
|
|
1857 |
self deny: ('1' matchesRegex: '[^01]').
|
|
1868
|
1858 |
|
|
1865
|
1859 |
"[^abc] means that everything except abc is matche"
|
|
|
1860 |
self assert: ('^' matchesRegex: '[^01]').
|
|
|
1861 |
!
|
|
|
1862 |
|
|
|
1863 |
testStarPlusQuestionMark
|
|
|
1864 |
"self debug: #testStarPlusQuestionMark"
|
|
1868
|
1865 |
|
|
1865
|
1866 |
"Two other operators similar to `*' are `+' and `?'. `+' (positive
|
|
|
1867 |
closure, or simply `plus') matches one or more occurrences of the
|
|
|
1868 |
original expression. `?' (`optional') matches zero or one, but never
|
|
|
1869 |
more, occurrences."
|
|
|
1870 |
|
|
1868
|
1871 |
self assert: ('ac' matchesRegex: 'ab*c').
|
|
1865
|
1872 |
self deny: ('ac' matchesRegex: 'ab+c'). "-- false: need at least one b"
|
|
1868
|
1873 |
self assert: ('abbc' matchesRegex: 'ab+c').
|
|
|
1874 |
self assert: ('abbbbbbc' matchesRegex: 'ab+c').
|
|
1865
|
1875 |
self deny: ('abbc' matchesRegex: 'ab?c') "-- false: too many b's"
|
|
|
1876 |
!
|
|
|
1877 |
|
|
|
1878 |
testStarPrecedence
|
|
|
1879 |
"self debug: #testStarPrecedence"
|
|
1868
|
1880 |
|
|
1865
|
1881 |
"A star's precedence is higher than that of sequencing. A star applies
|
|
|
1882 |
to the shortest possible subexpression that precedes it. For example,
|
|
|
1883 |
'ab*' means `a followed by zero or more occurrences of b', not `zero
|
|
|
1884 |
or more occurrences of ab':"
|
|
|
1885 |
|
|
1868
|
1886 |
self assert: ('abbb' matchesRegex: 'ab*').
|
|
|
1887 |
self deny: ('abab' matchesRegex: 'ab*').
|
|
|
1888 |
|
|
1865
|
1889 |
"To actually make a regex matching `zero or more occurrences of ab',
|
|
|
1890 |
`ab' is enclosed in parentheses:"
|
|
1868
|
1891 |
self assert: ('abab' matchesRegex: '(ab)*').
|
|
1865
|
1892 |
self deny: ('abcab' matchesRegex: '(ab)*')
|
|
|
1893 |
!
|
|
|
1894 |
|
|
|
1895 |
testTranslatingMatchesUsing
|
|
|
1896 |
"self debug: #testTranslatingMatchesUsing"
|
|
1868
|
1897 |
|
|
1865
|
1898 |
|
|
|
1899 |
self assert: ('\<t\w+' asRegexIgnoringCase
|
|
1868
|
1900 |
copy: 'now is the Time'
|
|
|
1901 |
translatingMatchesUsing: [:match | match asUppercase]) = 'now is THE TIME'.
|
|
1865
|
1902 |
|
|
|
1903 |
"the regular expression matches words beginning with either an uppercase or a lowercase T"
|
|
|
1904 |
!
|
|
|
1905 |
|
|
|
1906 |
xtest1
|
|
1868
|
1907 |
self runTestsForMatcher: Regex::RxMatcher
|
|
1865
|
1908 |
!
|
|
|
1909 |
|
|
|
1910 |
xtest: aMatcher with: testString expect: expected withSubexpressions: subexpr
|
|
|
1911 |
|
|
1868
|
1912 |
| got |
|
|
|
1913 |
Transcript tab;
|
|
|
1914 |
show: 'Matching: ';
|
|
|
1915 |
show: testString printString;
|
|
|
1916 |
show: ' expected: ';
|
|
|
1917 |
show: expected printString;
|
|
|
1918 |
show: ' got: '.
|
|
|
1919 |
got := aMatcher search: testString.
|
|
|
1920 |
Transcript show: got printString.
|
|
|
1921 |
got ~= expected
|
|
|
1922 |
ifTrue: [^false].
|
|
|
1923 |
(subexpr notNil and: [aMatcher supportsSubexpressions])
|
|
|
1924 |
ifFalse:
|
|
|
1925 |
[^true]
|
|
|
1926 |
ifTrue:
|
|
|
1927 |
[ | isOK |
|
|
|
1928 |
isOK := true.
|
|
|
1929 |
1 to: subexpr size by: 2 do: [: i |
|
|
|
1930 |
| sub subExpect subGot |
|
|
|
1931 |
sub := subexpr at: i.
|
|
|
1932 |
subExpect := subexpr at: i + 1.
|
|
|
1933 |
subGot := aMatcher subexpression: sub.
|
|
|
1934 |
Transcript cr; tab; tab;
|
|
|
1935 |
show: 'Subexpression: ', sub printString;
|
|
|
1936 |
show: ' expected: ';
|
|
|
1937 |
show: subExpect printString;
|
|
|
1938 |
show: ' got: ';
|
|
|
1939 |
show: subGot printString.
|
|
|
1940 |
subExpect ~= subGot
|
|
|
1941 |
ifTrue:
|
|
|
1942 |
[Transcript show: ' -- MISMATCH'.
|
|
|
1943 |
isOK := false]].
|
|
|
1944 |
^isOK]
|
|
1865
|
1945 |
!
|
|
|
1946 |
|
|
|
1947 |
xtestSuite
|
|
|
1948 |
"Answer an array of test clauses. Each clause is an array with a regex source
|
|
|
1949 |
string followed by sequence of 3-tuples. Each three-element
|
|
1868
|
1950 |
group is one test to try against the regex, and includes:
|
|
|
1951 |
1) test string;
|
|
|
1952 |
2) expected result;
|
|
|
1953 |
3) expected subexpression as an array of (index, substring), or nil.
|
|
1865
|
1954 |
The test suite is based on the one in Henry Spencer's regexp.c package."
|
|
|
1955 |
|
|
1868
|
1956 |
^#(
|
|
|
1957 |
('abc'
|
|
|
1958 |
'abc' true (1 'abc')
|
|
|
1959 |
'xbc' false nil
|
|
|
1960 |
'axc' false nil
|
|
|
1961 |
'abx' false nil
|
|
|
1962 |
'xabcy' true (1 'abc')
|
|
|
1963 |
'ababc' true (1 'abc'))
|
|
|
1964 |
('ab*c'
|
|
|
1965 |
'abc' true (1 'abc'))
|
|
|
1966 |
('ab*bc'
|
|
|
1967 |
'abc' true (1 'abc')
|
|
|
1968 |
'abbc' true (1 'abbc')
|
|
|
1969 |
'abbbbc' true (1 'abbbbc'))
|
|
|
1970 |
('ab+bc'
|
|
|
1971 |
'abbc' true (1 'abbc')
|
|
|
1972 |
'abc' false nil
|
|
|
1973 |
'abq' false nil
|
|
|
1974 |
'abbbbc' true (1 'abbbbc'))
|
|
|
1975 |
('ab?bc'
|
|
|
1976 |
'abbc' true (1 'abbc')
|
|
|
1977 |
'abc' true (1 'abc')
|
|
|
1978 |
'abbbbc' false nil
|
|
|
1979 |
'abc' true (1 'abc'))
|
|
|
1980 |
('ab?c' "added 08-Jan-2004 by cg "
|
|
|
1981 |
'abc' true (1 'abc'))
|
|
|
1982 |
('^abc$'
|
|
|
1983 |
'abc' true (1 'abc')
|
|
|
1984 |
'abcc' false nil
|
|
|
1985 |
'aabc' false nil)
|
|
|
1986 |
('^abc'
|
|
|
1987 |
'abcc' true (1 'abc'))
|
|
|
1988 |
('abc$'
|
|
|
1989 |
'aabc' true (1 'abc'))
|
|
|
1990 |
('^'
|
|
|
1991 |
'abc' true nil)
|
|
|
1992 |
('$'
|
|
|
1993 |
'abc' true nil)
|
|
|
1994 |
('a.c'
|
|
|
1995 |
'abc' true (1 'abc')
|
|
|
1996 |
'axc' true (1 'axc'))
|
|
|
1997 |
('a.*c'
|
|
|
1998 |
'axyzc' true (1 'axyzc')
|
|
|
1999 |
'axy zc' true (1 'axy zc') "testing that a dot matches a space"
|
|
|
2000 |
'axy
|
|
|
2001 |
zc' false nil "testing that a dot does not match a newline"
|
|
|
2002 |
'axyzd' false nil)
|
|
|
2003 |
('.a.*'
|
|
|
2004 |
'1234abc' true (1 '4abc')
|
|
|
2005 |
'abcd' false nil)
|
|
|
2006 |
('a\w+c'
|
|
|
2007 |
' abbbbc ' true (1 'abbbbc')
|
|
|
2008 |
'abb bc' false nil)
|
|
|
2009 |
('\w+'
|
|
|
2010 |
' foobar quux' true (1 'foobar')
|
|
|
2011 |
' ~!!@#$%^&*()-+=\|/?.>,<' false nil)
|
|
|
2012 |
('a\W+c'
|
|
|
2013 |
'a c' true (1 'a c')
|
|
|
2014 |
'a bc' false nil)
|
|
|
2015 |
('\W+'
|
|
|
2016 |
'foo!!@#$bar' true (1 '!!@#$')
|
|
|
2017 |
'foobar' false nil)
|
|
|
2018 |
('a\s*c'
|
|
|
2019 |
'a c' true (1 'a c')
|
|
|
2020 |
'a bc' false nil)
|
|
|
2021 |
('\s+'
|
|
|
2022 |
'abc3457 sd' true (1 ' ')
|
|
|
2023 |
'1234$^*^&asdfb' false nil)
|
|
|
2024 |
('a\S*c'
|
|
|
2025 |
'aqwertyc' true (1 'aqwertyc')
|
|
|
2026 |
'ab c' false nil)
|
|
|
2027 |
('\S+'
|
|
|
2028 |
' asdf ' true (1 'asdf')
|
|
|
2029 |
'
|
|
|
2030 |
' false nil)
|
|
|
2031 |
('a\d+c'
|
|
|
2032 |
'a0123456789c' true (1 'a0123456789c')
|
|
|
2033 |
'a12b34c' false nil)
|
|
|
2034 |
('\d+'
|
|
|
2035 |
'foo@#$%123ASD #$$%^&' true (1 '123')
|
|
|
2036 |
'foo!!@#$asdfl;' false nil)
|
|
|
2037 |
('a\D+c'
|
|
|
2038 |
'aqwertyc' true (1 'aqwertyc')
|
|
|
2039 |
'aqw6ertc' false nil)
|
|
|
2040 |
('\D+'
|
|
|
2041 |
'1234 abc 456' true (1 ' abc ')
|
|
|
2042 |
'1234567890' false nil)
|
|
|
2043 |
('(f|o)+\b'
|
|
|
2044 |
'foo' true (1 'foo')
|
|
|
2045 |
' foo ' true (1 'foo'))
|
|
|
2046 |
('\ba\w+' "a word beginning with an A"
|
|
|
2047 |
'land ancient' true (1 'ancient')
|
|
|
2048 |
'antique vase' true (1 'antique')
|
|
|
2049 |
'goofy foobar' false nil)
|
|
|
2050 |
('(f|o)+\B'
|
|
|
2051 |
'quuxfoobar' true (1 'foo')
|
|
|
2052 |
'quuxfoo ' true (1 'fo'))
|
|
|
2053 |
('\Ba\w+' "a word with an A in the middle, match at A and further"
|
|
|
2054 |
'land ancient' true (1 'and')
|
|
|
2055 |
'antique vase' true (1 'ase')
|
|
|
2056 |
'smalltalk shall overcome' true (1 'alltalk')
|
|
|
2057 |
'foonix is better' false nil)
|
|
|
2058 |
('fooa\>.*'
|
|
|
2059 |
'fooa ' true nil
|
|
|
2060 |
'fooa123' false nil
|
|
|
2061 |
'fooa bar' true nil
|
|
|
2062 |
'fooa' true nil
|
|
|
2063 |
'fooargh' false nil)
|
|
|
2064 |
('\>.+abc'
|
|
|
2065 |
' abcde fg' false nil
|
|
|
2066 |
'foo abcde' true (1 ' abc')
|
|
|
2067 |
'abcde' false nil)
|
|
|
2068 |
('\<foo.*'
|
|
|
2069 |
'foo' true nil
|
|
|
2070 |
'foobar' true nil
|
|
|
2071 |
'qfoobarq foonix' true (1 'foonix')
|
|
|
2072 |
' foo' true nil
|
|
|
2073 |
' 12foo' false nil
|
|
|
2074 |
'barfoo' false nil)
|
|
|
2075 |
('.+\<foo'
|
|
|
2076 |
'foo' false nil
|
|
|
2077 |
'ab foo' true (1 'ab foo')
|
|
|
2078 |
'abfoo' false nil)
|
|
|
2079 |
('a[bc]d'
|
|
|
2080 |
'abc' false nil
|
|
|
2081 |
'abd' true (1 'abd'))
|
|
|
2082 |
('a[b-d]e'
|
|
|
2083 |
'abd' false nil
|
|
|
2084 |
'ace' true (1 'ace'))
|
|
|
2085 |
('a[b-d]'
|
|
|
2086 |
'aac' true (1 'ac'))
|
|
|
2087 |
('a[-b]'
|
|
|
2088 |
'a-' true (1 'a-'))
|
|
|
2089 |
('a[b-]'
|
|
|
2090 |
'a-' true (1 'a-'))
|
|
|
2091 |
('a[a-b-c]' nil)
|
|
|
2092 |
('[k]'
|
|
|
2093 |
'ab' false nil)
|
|
|
2094 |
('a[b-a]' nil)
|
|
|
2095 |
('a[]b' nil)
|
|
|
2096 |
('a[' nil)
|
|
|
2097 |
('a]'
|
|
|
2098 |
'a]' true (1 'a]'))
|
|
|
2099 |
('a[]]b'
|
|
|
2100 |
'a]b' true (1 'a]b'))
|
|
|
2101 |
('a[^bc]d'
|
|
|
2102 |
'aed' true (1 'aed')
|
|
|
2103 |
'abd' false nil)
|
|
|
2104 |
('a[^-b]c'
|
|
|
2105 |
'adc' true (1 'adc')
|
|
|
2106 |
'a-c' false nil)
|
|
|
2107 |
('a[^]b]c'
|
|
|
2108 |
'a]c' false nil
|
|
|
2109 |
'adc' true (1 'adc'))
|
|
|
2110 |
('[\de]+'
|
|
|
2111 |
'01234' true (1 '01234')
|
|
|
2112 |
'0123e456' true (1 '0123e456')
|
|
|
2113 |
'0123e45g78' true (1 '0123e45'))
|
|
|
2114 |
('[e\d]+' "reversal of the above, should be the same"
|
|
|
2115 |
'01234' true (1 '01234')
|
|
|
2116 |
'0123e456' true (1 '0123e456')
|
|
|
2117 |
'0123e45g78' true (1 '0123e45'))
|
|
|
2118 |
('[\D]+'
|
|
|
2119 |
'123abc45def78' true (1 'abc'))
|
|
|
2120 |
('[[:digit:]e]+'
|
|
|
2121 |
'01234' true (1 '01234')
|
|
|
2122 |
'0123e456' true (1 '0123e456')
|
|
|
2123 |
'0123e45g78' true (1 '0123e45'))
|
|
|
2124 |
('[\s]+'
|
|
|
2125 |
'2 spaces' true (1 ' '))
|
|
|
2126 |
('[\S]+'
|
|
|
2127 |
' word12!!@#$ ' true (1 'word12!!@#$'))
|
|
|
2128 |
('[\w]+'
|
|
|
2129 |
' foo123bar 45' true (1 'foo123bar'))
|
|
|
2130 |
('[\W]+'
|
|
|
2131 |
'fii234!!@#$34f' true (1 '!!@#$'))
|
|
|
2132 |
('[^[:alnum:]]+'
|
|
|
2133 |
'fii234!!@#$34f' true (1 '!!@#$'))
|
|
|
2134 |
('[%&[:alnum:]]+'
|
|
|
2135 |
'foo%3' true (1 'foo%3')
|
|
|
2136 |
'foo34&rt4$57a' true (1 'foo34&rt4')
|
|
|
2137 |
'!!@#$' false nil)
|
|
|
2138 |
('[[:alpha:]]+'
|
|
|
2139 |
' 123foo3 ' true (1 'foo')
|
|
|
2140 |
'123foo' true (1 'foo')
|
|
|
2141 |
'foo1b' true (1 'foo'))
|
|
|
2142 |
('[[:blank:]]+'
|
|
|
2143 |
'2 blanks' true (1 ' '))
|
|
|
2144 |
('[^[:blank:]]+'
|
|
|
2145 |
' word12!!@#$ ' true (1 'word12!!@#$'))
|
|
|
2146 |
('[[:cntrl:]]+'
|
|
|
2147 |
' a 1234asdf' false nil)
|
|
|
2148 |
('[[:lower:]]+'
|
|
|
2149 |
'UPPERlower1234' true (1 'lower')
|
|
|
2150 |
'lowerUPPER' true (1 'lower'))
|
|
|
2151 |
('[[:upper:]]+'
|
|
|
2152 |
'UPPERlower1234' true (1 'UPPER')
|
|
|
2153 |
'lowerUPPER ' true (1 'UPPER'))
|
|
|
2154 |
('[[:space:]]+'
|
|
|
2155 |
'2 spaces' true (1 ' '))
|
|
|
2156 |
('[^[:space:]]+'
|
|
|
2157 |
' word12!!@#$ ' true (1 'word12!!@#$'))
|
|
|
2158 |
('[[:graph:]]+'
|
|
|
2159 |
'abc' true (1 'abc'))
|
|
|
2160 |
('[[:print:]]+'
|
|
|
2161 |
'abc' true (1 'abc'))
|
|
|
2162 |
('[^[:punct:]]+'
|
|
|
2163 |
'!!hello,world!!' true (1 'hello'))
|
|
|
2164 |
('[[:xdigit:]]+'
|
|
|
2165 |
' x10FCD ' true (1 '10FCD')
|
|
|
2166 |
' hgfedcba0123456789ABCDEFGH '
|
|
|
2167 |
true (1 'fedcba0123456789ABCDEF'))
|
|
|
2168 |
('ab|cd'
|
|
|
2169 |
'abc' true (1 'ab')
|
|
|
2170 |
'abcd' true (1 'ab'))
|
|
|
2171 |
('()ef'
|
|
|
2172 |
'def' true (1 'ef' 2 ''))
|
|
|
2173 |
('()*' nil)
|
|
|
2174 |
('*a' nil)
|
|
|
2175 |
('^*' nil)
|
|
|
2176 |
('$*' nil)
|
|
|
2177 |
('(*)b' nil)
|
|
|
2178 |
('$b' 'b' false nil)
|
|
|
2179 |
('a\' nil)
|
|
|
2180 |
('a\(b'
|
|
|
2181 |
'a(b' true (1 'a(b'))
|
|
|
2182 |
('a\(*b'
|
|
|
2183 |
'ab' true (1 'ab')
|
|
|
2184 |
'a((b' true (1 'a((b'))
|
|
|
2185 |
('a\\b'
|
|
|
2186 |
'a\b' true (1 'a\b'))
|
|
|
2187 |
('abc)' nil)
|
|
|
2188 |
('(abc' nil)
|
|
|
2189 |
('((a))'
|
|
|
2190 |
'abc' true (1 'a' 2 'a' 3 'a'))
|
|
|
2191 |
('(a)b(c)'
|
|
|
2192 |
'abc' true (1 'abc' 2 'a' 3 'c'))
|
|
|
2193 |
('a+b+c'
|
|
|
2194 |
'aabbabc' true (1 'abc'))
|
|
|
2195 |
('a**' nil)
|
|
|
2196 |
('a*?' nil)
|
|
|
2197 |
('(a*)*' nil)
|
|
|
2198 |
('(a*)+' nil)
|
|
|
2199 |
('(a|)*' nil)
|
|
|
2200 |
('(a*|b)*' nil)
|
|
|
2201 |
('(a+|b)*'
|
|
|
2202 |
'ab' true (1 'ab' 2 'b'))
|
|
|
2203 |
('(a+|b)+'
|
|
|
2204 |
'ab' true (1 'ab' 2 'b'))
|
|
|
2205 |
('(a+|b)?'
|
|
|
2206 |
'ab' true (1 'a' 2 'a'))
|
|
|
2207 |
('[^ab]*'
|
|
|
2208 |
'cde' true (1 'cde'))
|
|
|
2209 |
|
|
|
2210 |
('(^)*' nil)
|
|
|
2211 |
('(ab|)*' nil)
|
|
|
2212 |
(')(' nil)
|
|
|
2213 |
('' 'abc' true (1 ''))
|
|
|
2214 |
('abc' '' false nil)
|
|
|
2215 |
('a*'
|
|
|
2216 |
'' true '')
|
|
|
2217 |
('abcd'
|
|
|
2218 |
'abcd' true (1 'abcd'))
|
|
|
2219 |
('a(bc)d'
|
|
|
2220 |
'abcd' true (1 'abcd' 2 'bc'))
|
|
|
2221 |
('([abc])*d'
|
|
|
2222 |
'abbbcd' true (1 'abbbcd' 2 'c'))
|
|
|
2223 |
('([abc])*bcd'
|
|
|
2224 |
'abcd' true (1 'abcd' 2 'a'))
|
|
|
2225 |
('a|b|c|d|e' 'e' true (1 'e'))
|
|
|
2226 |
('(a|b|c|d|e)f' 'ef' true (1 'ef' 2 'e'))
|
|
|
2227 |
" ((a*|b))* - c - -"
|
|
|
2228 |
('abcd*efg' 'abcdefg' true (1 'abcdefg'))
|
|
|
2229 |
('ab*'
|
|
|
2230 |
'xabyabbbz' true (1 'ab')
|
|
|
2231 |
'xayabbbz' true (1 'a'))
|
|
|
2232 |
('(ab|cd)e' 'abcde' true (1 'cde' 2 'cd'))
|
|
|
2233 |
('[abhgefdc]ij' 'hij' true (1 'hij'))
|
|
|
2234 |
('^(ab|cd)e' 'abcde' false nil)
|
|
|
2235 |
('(abc|)def' 'abcdef' true nil)
|
|
|
2236 |
('(a|b)c*d' 'abcd' true (1 'bcd' 2 'b'))
|
|
|
2237 |
('(ab|ab*)bc' 'abc' true (1 'abc' 2 'a'))
|
|
|
2238 |
('a([bc]*)c*' 'abc' true (1 'abc' 2 'bc'))
|
|
|
2239 |
('a([bc]*)(c*d)' 'abcd' true (1 'abcd' 2 'bc' 3 'd'))
|
|
|
2240 |
('a([bc]+)(c*d)' 'abcd' true (1 'abcd' 2 'bc' 3 'd'))
|
|
|
2241 |
('a([bc]*)(c+d)' 'abcd' true (1 'abcd' 2 'b' 3 'cd'))
|
|
|
2242 |
('a[bcd]*dcdcde' 'adcdcde' true (1 'adcdcde'))
|
|
|
2243 |
('a[bcd]+dcdcde' 'adcdcde' false nil)
|
|
|
2244 |
('(ab|a)b*c' 'abc' true (1 'abc'))
|
|
|
2245 |
('((a)(b)c)(d)' 'abcd' true (1 'abcd' 3 'a' 4 'b' 5 'd'))
|
|
|
2246 |
('[ -~]*' 'abc' true (1 'abc'))
|
|
|
2247 |
('[ -~ -~]*' 'abc' true (1 'abc'))
|
|
|
2248 |
('[ -~ -~ -~]*' 'abc' true (1 'abc'))
|
|
|
2249 |
('[ -~ -~ -~ -~]*' 'abc' true (1 'abc'))
|
|
|
2250 |
('[ -~ -~ -~ -~ -~]*' 'abc' true (1 'abc'))
|
|
|
2251 |
('[ -~ -~ -~ -~ -~ -~]*' 'abc' true (1 'abc'))
|
|
|
2252 |
('[ -~ -~ -~ -~ -~ -~ -~]*' 'abc' true (1 'abc'))
|
|
|
2253 |
('[a-zA-Z_][a-zA-Z0-9_]*' 'alpha' true (1 'alpha'))
|
|
|
2254 |
('^a(bc+|b[eh])g|.h$' 'abh' true (1 'bh' 2 ''))
|
|
|
2255 |
('(bc+d$|ef*g.|h?i(j|k))'
|
|
|
2256 |
'effgz' true (1 'effgz' 2 'effgz' 3 '')
|
|
|
2257 |
'ij' true (1 'ij' 2 'ij' 3 'j')
|
|
|
2258 |
'effg' false nil
|
|
|
2259 |
'bcdd' false nil
|
|
|
2260 |
'reffgz' true (1 'effgz' 2 'effgz' 3 ''))
|
|
|
2261 |
('(((((((((a)))))))))' 'a' true (1 'a'))
|
|
|
2262 |
('multiple words of text'
|
|
|
2263 |
'uh-uh' false nil
|
|
|
2264 |
'multiple words of text, yeah' true (1 'multiple words of text'))
|
|
|
2265 |
('(.*)c(.*)' 'abcde' true (1 'abcde' 2 'ab' 3 'de'))
|
|
|
2266 |
('\((.*), (.*)\)' '(a, b)' true (2 'a' 3 'b'))
|
|
|
2267 |
|
|
|
2268 |
)
|
|
1865
|
2269 |
! !
|
|
|
2270 |
|
|
|
2271 |
!RxTests methodsFor:'test suite - string interface'!
|
|
|
2272 |
|
|
|
2273 |
testS001
|
|
|
2274 |
self assert:( 'abc' matchesRegex:'abc' ).
|
|
|
2275 |
self assert:( 'abc' matchesRegex:'ab.' ).
|
|
|
2276 |
self assert:( 'abc' matchesRegex:'ab.*' ).
|
|
|
2277 |
self assert:( 'abc' matchesRegex:'a.*' ).
|
|
|
2278 |
self assert:( 'abc' matchesRegex:'.*' ).
|
|
|
2279 |
self assert:( 'abc' matchesRegex:'[ab].*' ).
|
|
|
2280 |
self assert:( 'bca' matchesRegex:'[ab].*' ).
|
|
|
2281 |
self assert:( 'cab' matchesRegex:'[ab].*' ) not.
|
|
|
2282 |
|
|
|
2283 |
"
|
|
|
2284 |
self new testS001
|
|
|
2285 |
"
|
|
|
2286 |
!
|
|
|
2287 |
|
|
|
2288 |
testS002
|
|
|
2289 |
self assert:( 'abc' matchesRegexIgnoringCase:'abc' ).
|
|
|
2290 |
self assert:( 'ABC' matchesRegexIgnoringCase:'abc' ).
|
|
|
2291 |
self assert:( 'ABC' matchesRegex:'abc' ) not.
|
|
|
2292 |
self assert:( 'aBc' matchesRegexIgnoringCase:'abc' ).
|
|
|
2293 |
self assert:( 'aBc' matchesRegex:'abc' ) not.
|
|
|
2294 |
|
|
|
2295 |
self assert:( 'abc' matchesRegexIgnoringCase:'ab.' ).
|
|
|
2296 |
self assert:( 'ABC' matchesRegexIgnoringCase:'ab.' ).
|
|
|
2297 |
self assert:( 'ABC' matchesRegex:'ab.' ) not.
|
|
|
2298 |
self assert:( 'aBc' matchesRegexIgnoringCase:'ab.' ).
|
|
|
2299 |
self assert:( 'aBc' matchesRegex:'ab.' ) not.
|
|
|
2300 |
|
|
|
2301 |
self assert:( 'abc' matchesRegexIgnoringCase:'ab.*' ).
|
|
|
2302 |
self assert:( 'ABC' matchesRegexIgnoringCase:'ab.*' ).
|
|
|
2303 |
self assert:( 'ABC' matchesRegex:'ab.*' ) not.
|
|
|
2304 |
self assert:( 'aBc' matchesRegexIgnoringCase:'ab.*' ).
|
|
|
2305 |
self assert:( 'aBc' matchesRegex:'ab.*' ) not.
|
|
|
2306 |
|
|
|
2307 |
self assert:( 'abc' matchesRegexIgnoringCase:'a.*' ).
|
|
|
2308 |
self assert:( 'ABC' matchesRegexIgnoringCase:'a.*' ).
|
|
|
2309 |
self assert:( 'ABC' matchesRegex:'a.*' ) not.
|
|
|
2310 |
self assert:( 'aBc' matchesRegexIgnoringCase:'a.*' ).
|
|
|
2311 |
self assert:( 'aBc' matchesRegex:'a.*' ).
|
|
|
2312 |
|
|
|
2313 |
self assert:( 'abc' matchesRegexIgnoringCase:'.*' ).
|
|
|
2314 |
self assert:( 'ABC' matchesRegexIgnoringCase:'.*' ).
|
|
|
2315 |
self assert:( 'ABC' matchesRegex:'.*' ).
|
|
|
2316 |
self assert:( 'aBc' matchesRegexIgnoringCase:'.*' ).
|
|
|
2317 |
self assert:( 'aBc' matchesRegex:'.*' ).
|
|
|
2318 |
|
|
|
2319 |
self assert:( 'abc' matchesRegexIgnoringCase:'[ab].*' ).
|
|
|
2320 |
self assert:( 'ABC' matchesRegexIgnoringCase:'[ab].*' ).
|
|
|
2321 |
self assert:( 'ABC' matchesRegex:'[ab].*' ) not.
|
|
|
2322 |
self assert:( 'aBc' matchesRegexIgnoringCase:'[ab].*' ).
|
|
|
2323 |
self assert:( 'aBc' matchesRegex:'[ab].*' ).
|
|
|
2324 |
|
|
|
2325 |
self assert:( 'bca' matchesRegexIgnoringCase:'[ab].*' ).
|
|
|
2326 |
self assert:( 'BCA' matchesRegexIgnoringCase:'[ab].*' ).
|
|
|
2327 |
self assert:( 'BCA' matchesRegex:'[ab].*' ) not.
|
|
|
2328 |
self assert:( 'Bca' matchesRegexIgnoringCase:'[ab].*' ).
|
|
|
2329 |
self assert:( 'Bca' matchesRegex:'[ab].*' ) not.
|
|
|
2330 |
|
|
|
2331 |
self assert:( 'cab' matchesRegexIgnoringCase:'[ab].*' ) not.
|
|
|
2332 |
self assert:( 'CAB' matchesRegexIgnoringCase:'[ab].*' ) not.
|
|
|
2333 |
self assert:( 'CAB' matchesRegex:'[ab].*' ) not.
|
|
|
2334 |
self assert:( 'caB' matchesRegexIgnoringCase:'[ab].*' ) not.
|
|
|
2335 |
self assert:( 'caB' matchesRegex:'[ab].*' ) not.
|
|
|
2336 |
|
|
|
2337 |
"
|
|
|
2338 |
self new testS002
|
|
|
2339 |
"
|
|
|
2340 |
! !
|
|
|
2341 |
|
|
|
2342 |
!RxTests methodsFor:'test suite conversion'!
|
|
|
2343 |
|
|
|
2344 |
writeAllTests
|
|
1868
|
2345 |
"Build individual tests from the test suite."
|
|
|
2346 |
|
|
|
2347 |
| aTest matcherClass rxSource matcher isOK subexpr |
|
|
|
2348 |
|
|
|
2349 |
matcherClass := Regex::RxMatcher.
|
|
|
2350 |
|
|
|
2351 |
1 to: self xtestSuite size do: [ :n |
|
|
|
2352 |
aTest := self xtestSuite at: n.
|
|
|
2353 |
Transcript
|
|
|
2354 |
show: 'test', n printString; cr;
|
|
|
2355 |
tab; show: '| matcher |'; cr; cr;
|
|
|
2356 |
tab; show: 'self should: [ (matcher := Regex::RxParser compileRegex: ''', aTest first, ''' into:Regex::RxMatcher)'.
|
|
|
2357 |
(aTest at: 2) isNil
|
|
|
2358 |
ifTrue: [ Transcript show: ' = nil ].'; cr ]
|
|
|
2359 |
ifFalse: [
|
|
|
2360 |
Transcript show: ' ~= nil ].'; cr.
|
|
|
2361 |
2 to: aTest size by: 3 do:
|
|
|
2362 |
[:i |
|
|
|
2363 |
Transcript tab; show: 'self should: [ (matcher search: ', (aTest at: i) printString, ') = ',
|
|
|
2364 |
(aTest at: i+1) printString, ' ].'; cr.
|
|
|
2365 |
(aTest at: i+1) ~= nil ifTrue: [
|
|
|
2366 |
subexpr := aTest at: i+2.
|
|
|
2367 |
1 to: subexpr size by: 2 do: [ :j |
|
|
|
2368 |
Transcript tab; show: 'self should: [ (matcher subexpression: ',
|
|
|
2369 |
(subexpr at: j) printString, ') = ', (subexpr at: j+1) printString,
|
|
|
2370 |
' ].'; cr ]]]]]
|
|
1865
|
2371 |
! !
|
|
|
2372 |
|
|
|
2373 |
!RxTests class methodsFor:'documentation'!
|
|
|
2374 |
|
|
|
2375 |
version
|
|
|
2376 |
^ '$Header$'
|
|
|
2377 |
!
|
|
|
2378 |
|
|
|
2379 |
version_CVS
|
|
|
2380 |
^ '$Header$'
|
|
|
2381 |
! !
|
|
1869
|
2382 |
|