equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/petitparser/compiler/tests' }" |
1 "{ Package: 'stx:goodies/petitparser/compiler/tests' }" |
2 |
2 |
3 "{ NameSpace: Smalltalk }" |
3 "{ NameSpace: Smalltalk }" |
4 |
4 |
5 TestCase subclass:#PPCNodeTest |
5 TestCase subclass:#PPCNodeTest |
6 instanceVariableNames:'node configuration' |
6 instanceVariableNames:'node compiler' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitCompiler-Tests-Nodes' |
9 category:'PetitCompiler-Tests-Nodes' |
10 ! |
10 ! |
11 |
11 |
145 assert: object type: class |
145 assert: object type: class |
146 self assert: object class == class |
146 self assert: object class == class |
147 ! |
147 ! |
148 |
148 |
149 setUp |
149 setUp |
150 configuration := PPCConfiguration default. |
150 compiler := PPCCompiler default. |
151 configuration context options generate: false. |
151 compiler context options generate:false. |
152 |
152 |
153 "Modified: / 28-08-2015 / 14:19:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
153 "Modified: / 28-08-2015 / 14:19:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
154 ! |
154 ! |
155 |
155 |
156 treeFrom: parser |
156 treeFrom: parser |
157 ^ parser compileWithConfiguration: configuration |
157 ^ parser compileUsingCompiler: compiler |
|
158 |
|
159 "Modified: / 07-09-2015 / 10:06:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
158 ! ! |
160 ! ! |
159 |
161 |
160 !PPCNodeTest methodsFor:'tests - converting'! |
162 !PPCNodeTest methodsFor:'tests - converting'! |
161 |
163 |
162 testConvertBlock |
164 testConvertBlock |