equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/petitparser/tests' }" |
1 "{ Package: 'stx:goodies/petitparser/tests' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 TestCase subclass:#PPContextTest |
5 TestCase subclass:#PPContextTest |
4 instanceVariableNames:'context' |
6 instanceVariableNames:'context' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
13 context |
15 context |
14 ^ PPContext new |
16 ^ PPContext new |
15 ! |
17 ! |
16 |
18 |
17 setUp |
19 setUp |
|
20 super setUp. |
18 context := self context. |
21 context := self context. |
19 ! ! |
22 ! ! |
20 |
23 |
21 !PPContextTest methodsFor:'tests'! |
24 !PPContextTest methodsFor:'tests'! |
22 |
25 |