equal
deleted
inserted
replaced
125 |
125 |
126 self assert:parser parse:'cz' to:'cz'. |
126 self assert:parser parse:'cz' to:'cz'. |
127 self assert:parser parse:'c' to:'c?'. |
127 self assert:parser parse:'c' to:'c?'. |
128 |
128 |
129 "Created: / 16-06-2015 / 06:53:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
129 "Created: / 16-06-2015 / 06:53:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
130 ! |
|
131 |
|
132 testActionNode6 |
|
133 node := ((#letter asParser , #letter asParser) |
|
134 ==> [:nodes | String withAll:nodes ]) asCompilerTree. |
|
135 node child markForInline. |
|
136 |
|
137 self compileTree:node. |
|
138 |
|
139 self assert:parser parse:'ab' to:'ab'. |
|
140 self assert:parser parse:'cz' to:'cz'. |
|
141 self assert:parser fail:''. |
|
142 |
|
143 "Created: / 16-06-2015 / 07:22:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
130 ! |
144 ! |
131 |
145 |
132 testAnyNode |
146 testAnyNode |
133 node := PPCForwardNode new |
147 node := PPCForwardNode new |
134 child: PPCAnyNode new; |
148 child: PPCAnyNode new; |