equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/petitparser/compiler/tests/extras' }" |
1 "{ Package: 'stx:goodies/petitparser/compiler/tests/extras' }" |
2 |
2 |
3 "{ NameSpace: Smalltalk }" |
3 "{ NameSpace: Smalltalk }" |
4 |
4 |
5 TestCase subclass:#PPCSmalltalkTests |
5 TestCase subclass:#PPCSmalltalkTests |
6 instanceVariableNames:'configuration arguments result' |
6 instanceVariableNames:'configuration options result' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitCompiler-Extras-Tests-Smalltalk' |
9 category:'PetitCompiler-Extras-Tests-Smalltalk' |
10 ! |
10 ! |
11 |
11 |
15 result := parser parse: input. |
15 result := parser parse: input. |
16 self assert: result isPetitFailure not. |
16 self assert: result isPetitFailure not. |
17 ! |
17 ! |
18 |
18 |
19 setUp |
19 setUp |
20 arguments := PPCArguments default |
20 options := PPCArguments default |
21 profile: true; |
21 profile: true; |
22 yourself. |
22 yourself. |
23 |
23 |
24 configuration := PPCTokenizingConfiguration new |
24 configuration := PPCTokenizingConfiguration new |
25 arguments: arguments; |
25 options: options; |
26 yourself. |
26 yourself. |
27 ! |
27 ! |
28 |
28 |
29 testSmalltakToken |
29 testSmalltakToken |
30 | token1 | |
30 | token1 | |