equal
deleted
inserted
replaced
106 children: { pluggableNode }; |
106 children: { pluggableNode }; |
107 yourself. |
107 yourself. |
108 |
108 |
109 result := visitor visit: node. |
109 result := visitor visit: node. |
110 |
110 |
111 ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue: |
111 ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[ |
112 [ |
112 self skipIf: true description: 'skipped test, inlining of pluggable nodes not supported!!'. |
113 self skip: 'skipped test, inlining of pluggable nodes not supported!!'. |
|
114 ]. |
113 ]. |
115 |
114 |
116 self assert: result children first type: PPCPluggableNode. |
115 self assert: result children first type: PPCPluggableNode. |
117 self assert: result children first isMarkedForInline. |
116 self assert: result children first isMarkedForInline. |
118 |
117 |
119 "Modified: / 23-04-2015 / 12:18:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
118 "Modified: / 01-05-2015 / 14:22:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
120 ! |
119 ! |
121 |
120 |
122 testSequenceInline |
121 testSequenceInline |
123 | charNode1 charNode2 | |
122 | charNode1 charNode2 | |
124 charNode1 := PPCCharacterNode new |
123 charNode1 := PPCCharacterNode new |