equal
deleted
inserted
replaced
5 classVariableNames:'' |
5 classVariableNames:'' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
7 category:'PetitCompiler-Tests-Nodes' |
7 category:'PetitCompiler-Tests-Nodes' |
8 ! |
8 ! |
9 |
9 |
|
10 |
10 !PPCNodeTest methodsFor:'as yet unclassified'! |
11 !PPCNodeTest methodsFor:'as yet unclassified'! |
11 |
12 |
12 testCopy |
13 testCopy |
13 | n1 n2 | |
14 | n1 n2 | |
14 n1 := PPCDelegateNode new |
15 n1 := PPCDelegateNode new |
198 |
199 |
199 tree := ($a asParser / $b asParser star) token asCompilerTree. |
200 tree := ($a asParser / $b asParser star) token asCompilerTree. |
200 self assert: tree acceptsEpsilon. |
201 self assert: tree acceptsEpsilon. |
201 ! ! |
202 ! ! |
202 |
203 |
|
204 !PPCNodeTest class methodsFor:'documentation'! |
|
205 |
|
206 version_HG |
|
207 |
|
208 ^ '$Changeset: <not expanded> $' |
|
209 ! ! |
|
210 |