equal
deleted
inserted
replaced
245 ! |
245 ! |
246 |
246 |
247 testConvertTrimmingToken3 |
247 testConvertTrimmingToken3 |
248 | parser tree | |
248 | parser tree | |
249 |
249 |
|
250 parser := 'foo' asParser trimmingToken star. |
|
251 tree := self treeFrom: parser. |
|
252 |
|
253 self assert: tree type: PPCStarNode. |
|
254 self assert: tree child type: PPCTrimmingTokenNode. |
|
255 self assert: tree child child type: PPCLiteralNode. |
|
256 self assert: tree child child isMarkedForInline. |
|
257 ! |
|
258 |
|
259 testConvertTrimmingToken4 |
|
260 | parser tree | |
|
261 |
250 parser := $d asParser trimmingToken star. |
262 parser := $d asParser trimmingToken star. |
251 tree := self treeFrom: parser. |
263 tree := self treeFrom: parser. |
252 |
264 |
253 self assert: tree type: PPCStarNode. |
265 self assert: tree type: PPCStarNode. |
254 self assert: tree child type: PPCTrimmingTokenNode. |
266 self assert: tree child type: PPCTrimmingCharacterTokenNode. |
255 self assert: tree child child type: PPCCharacterNode. |
267 self assert: tree child isMarkedForInline not. |
256 self assert: tree child child isMarkedForInline. |
|
257 ! ! |
268 ! ! |
258 |
269 |
259 !PPCNodeTest methodsFor:'tests - epsilon'! |
270 !PPCNodeTest methodsFor:'tests - epsilon'! |
260 |
271 |
261 testActionAcceptsEpsilon |
272 testActionAcceptsEpsilon |