equal
deleted
inserted
replaced
161 | parser tree | |
161 | parser tree | |
162 parser := [ :ctx | [ctx atEnd] whileFalse ] asParser. |
162 parser := [ :ctx | [ctx atEnd] whileFalse ] asParser. |
163 tree := parser asCompilerTree. |
163 tree := parser asCompilerTree. |
164 |
164 |
165 self assert: tree type: PPCPluggableNode. |
165 self assert: tree type: PPCPluggableNode. |
|
166 ((Smalltalk respondsTo: #isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifFalse:[ |
166 self assert: tree block asString = '[ :ctx | [ ctx atEnd ] whileFalse ]'. |
167 self assert: tree block asString = '[ :ctx | [ ctx atEnd ] whileFalse ]'. |
|
168 ] |
|
169 |
|
170 "Modified: / 05-05-2015 / 16:24:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
167 ! |
171 ! |
168 |
172 |
169 testConvertChoice |
173 testConvertChoice |
170 | parser tree | |
174 | parser tree | |
171 parser := 'foo' asParser / $b asParser. |
175 parser := 'foo' asParser / $b asParser. |