equal
deleted
inserted
replaced
38 ! ! |
38 ! ! |
39 |
39 |
40 !PPPredicateTest methodsFor:'testing-chars'! |
40 !PPPredicateTest methodsFor:'testing-chars'! |
41 |
41 |
42 testBlank |
42 testBlank |
43 | parser | |
43 | parser cr| |
44 parser := #blank asParser. |
44 parser := #blank asParser. |
45 self assertCharacterSets: parser. |
45 self assertCharacterSets: parser. |
46 self assert: parser parse: (String with: Character space) to: Character space. |
46 self assert: parser parse: (String with: Character space) to: Character space. |
47 self assert: parser parse: (String with: Character tab) to: Character tab. |
47 self assert: parser parse: (String with: Character tab) to: Character tab. |
48 self assert: parser fail: ''. |
48 self assert: parser fail: ''. |
49 self assert: parser fail: '1'. |
49 self assert: parser fail: '1'. |
50 self assert: parser fail: (String with: Character cr) |
50 cr := Smalltalk isSmalltalkX |
|
51 ifTrue:[Character return] |
|
52 ifFalse:[Character cr]. |
|
53 self assert: parser fail: (String with: cr) |
51 ! |
54 ! |
52 |
55 |
53 testChar |
56 testChar |
54 | parser | |
57 | parser | |
55 parser := $* asParser. |
58 parser := $* asParser. |
127 self assert: parser fail: 'A'. |
130 self assert: parser fail: 'A'. |
128 self assert: parser fail: '0' |
131 self assert: parser fail: '0' |
129 ! |
132 ! |
130 |
133 |
131 testNewline |
134 testNewline |
132 | parser | |
135 | parser cr| |
133 parser := #newline asParser. |
136 cr := Smalltalk isSmalltalkX |
134 self assertCharacterSets: parser. |
137 ifTrue:[Character return] |
135 self assert: parser parse: (String with: Character cr) to: Character cr. |
138 ifFalse:[Character cr]. |
136 self assert: parser parse: (String with: Character lf) to: Character lf. |
139 parser := #newline asParser. |
137 self assert: parser fail: ' ' |
140 self assertCharacterSets: parser. |
|
141 self assert: parser parse: (String with: cr) to: cr. |
|
142 self assert: parser parse: (String with: Character lf) to: Character lf. |
|
143 self assert: parser fail: ' ' |
138 ! |
144 ! |
139 |
145 |
140 testPunctuation |
146 testPunctuation |
141 | parser | |
147 | parser | |
142 parser := #punctuation asParser. |
148 parser := #punctuation asParser. |
292 ! ! |
298 ! ! |
293 |
299 |
294 !PPPredicateTest class methodsFor:'documentation'! |
300 !PPPredicateTest class methodsFor:'documentation'! |
295 |
301 |
296 version |
302 version |
297 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateTest.st,v 1.5 2014-03-04 14:34:22 cg Exp $' |
303 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateTest.st,v 1.6 2014-03-04 20:09:46 cg Exp $' |
298 ! |
304 ! |
299 |
305 |
300 version_CVS |
306 version_CVS |
301 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateTest.st,v 1.5 2014-03-04 14:34:22 cg Exp $' |
307 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateTest.st,v 1.6 2014-03-04 20:09:46 cg Exp $' |
302 ! |
308 ! |
303 |
309 |
304 version_SVN |
310 version_SVN |
305 ^ '$Id: PPPredicateTest.st,v 1.5 2014-03-04 14:34:22 cg Exp $' |
311 ^ '$Id: PPPredicateTest.st,v 1.6 2014-03-04 20:09:46 cg Exp $' |
306 ! ! |
312 ! ! |
307 |
313 |