equal
deleted
inserted
replaced
135 parser := ('foo' asParser, $b asParser) trimmingToken. |
135 parser := ('foo' asParser, $b asParser) trimmingToken. |
136 tree := parser asCompilerTree optimizeTree. |
136 tree := parser asCompilerTree optimizeTree. |
137 |
137 |
138 self assert: tree type: PPCTrimmingTokenNode. |
138 self assert: tree type: PPCTrimmingTokenNode. |
139 self assert: tree child type: PPCTokenSequenceNode. |
139 self assert: tree child type: PPCTokenSequenceNode. |
140 self assert: tree whitespace type: PPCTokenStarMessagePredicateNode. |
140 self assert: tree whitespace type: PPCInlineTokenStarSeparatorNode. |
141 |
141 |
142 parser := $d asParser trimmingToken star. |
142 parser := $d asParser trimmingToken star. |
143 tree := parser asCompilerTree optimizeTree. |
143 tree := parser asCompilerTree optimizeTree. |
144 |
144 |
145 self assert: tree type: PPCStarNode. |
145 self assert: tree type: PPCStarNode. |