equal
deleted
inserted
replaced
9 |
9 |
10 |
10 |
11 !PPPredicateTest methodsFor:'private'! |
11 !PPPredicateTest methodsFor:'private'! |
12 |
12 |
13 charactersDo: aBlock |
13 charactersDo: aBlock |
14 0 to: 255 do: [ :index | aBlock value: (Character codePoint: index) ] |
14 1 to: 256 do: [ :index | aBlock value: (Character codePoint: index) ] |
15 |
|
16 "Modified: / 03-11-2014 / 09:11:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
17 ! ! |
15 ! ! |
18 |
16 |
19 !PPPredicateTest methodsFor:'testing'! |
17 !PPPredicateTest methodsFor:'testing'! |
20 |
18 |
21 testOnMessage |
19 testOnMessage |
322 or: [ positive not and: [ negative ] ]) |
320 or: [ positive not and: [ negative ] ]) |
323 description: char printString , ' should be in exactly one set' ] |
321 description: char printString , ' should be in exactly one set' ] |
324 ! |
322 ! |
325 |
323 |
326 parsedCharacterSet: aParser |
324 parsedCharacterSet: aParser |
327 | result | |
325 | result | |
328 result := String new writeStream. |
326 result := String new writeStream. |
329 self charactersDo: [ :char | |
327 self charactersDo: [ :char | |
330 (aParser matches: char asString) |
328 (aParser matches: (char asString)) |
331 ifTrue: [ result nextPut: char ] ]. |
329 ifTrue: [ result nextPut: char ] ]. |
332 ^ result contents |
330 ^ result contents |
333 |
|
334 "Modified: / 03-11-2014 / 09:16:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
335 ! ! |
331 ! ! |
336 |
332 |
337 !PPPredicateTest class methodsFor:'documentation'! |
333 !PPPredicateTest class methodsFor:'documentation'! |
338 |
334 |
339 version |
335 version |