--- a/compiler/tests/PPCNodeTest.st Tue May 12 01:24:03 2015 +0100
+++ b/compiler/tests/PPCNodeTest.st Thu May 21 14:12:22 2015 +0100
@@ -247,13 +247,24 @@
testConvertTrimmingToken3
| parser tree |
+ parser := 'foo' asParser trimmingToken star.
+ tree := self treeFrom: parser.
+
+ self assert: tree type: PPCStarNode.
+ self assert: tree child type: PPCTrimmingTokenNode.
+ self assert: tree child child type: PPCLiteralNode.
+ self assert: tree child child isMarkedForInline.
+!
+
+testConvertTrimmingToken4
+ | parser tree |
+
parser := $d asParser trimmingToken star.
tree := self treeFrom: parser.
self assert: tree type: PPCStarNode.
- self assert: tree child type: PPCTrimmingTokenNode.
- self assert: tree child child type: PPCCharacterNode.
- self assert: tree child child isMarkedForInline.
+ self assert: tree child type: PPCTrimmingCharacterTokenNode.
+ self assert: tree child isMarkedForInline not.
! !
!PPCNodeTest methodsFor:'tests - epsilon'!