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:#PPCUniversalOptimizationTest |
5 TestCase subclass:#PPCUniversalOptimizationTest |
6 instanceVariableNames:'configuration' |
6 instanceVariableNames:'compiler' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitCompiler-Tests-Core-Universal' |
9 category:'PetitCompiler-Tests-Core-Universal' |
10 ! |
10 ! |
11 |
11 |
14 assert: object type: class |
14 assert: object type: class |
15 self assert: (object isKindOf: class) |
15 self assert: (object isKindOf: class) |
16 ! |
16 ! |
17 |
17 |
18 optimize: aPPParser |
18 optimize: aPPParser |
19 ^ aPPParser compileWithConfiguration: configuration. |
19 ^ aPPParser compileUsingCompiler:compiler. |
20 ! |
20 ! |
21 |
21 |
22 setUp |
22 setUp |
23 super setUp. |
23 super setUp. |
24 |
24 compiler := PPCCompiler new. |
25 configuration := PPCConfiguration new. |
25 (compiler context options) |
26 configuration context options |
26 generate:false; |
27 generate: false; |
27 tokenize:false. |
28 tokenize: false. |
|
29 |
28 |
30 "Modified: / 04-09-2015 / 16:21:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
29 "Modified: / 04-09-2015 / 16:21:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
31 ! ! |
30 ! ! |
32 |
31 |
33 !PPCUniversalOptimizationTest methodsFor:'tests'! |
32 !PPCUniversalOptimizationTest methodsFor:'tests'! |