equal
deleted
inserted
replaced
2 |
2 |
3 "{ NameSpace: Smalltalk }" |
3 "{ NameSpace: Smalltalk }" |
4 |
4 |
5 PPAbstractParserTest subclass:#PPCUnivarsalGuardTest |
5 PPAbstractParserTest subclass:#PPCUnivarsalGuardTest |
6 instanceVariableNames:'parser result context node compiler id node2 id2 id1 node1 node3 |
6 instanceVariableNames:'parser result context node compiler id node2 id2 id1 node1 node3 |
7 arguments configuration' |
7 options configuration' |
8 classVariableNames:'' |
8 classVariableNames:'' |
9 poolDictionaries:'' |
9 poolDictionaries:'' |
10 category:'PetitCompiler-Tests-Core-Universal' |
10 category:'PetitCompiler-Tests-Core-Universal' |
11 ! |
11 ! |
|
12 |
12 |
13 |
13 !PPCUnivarsalGuardTest methodsFor:'as yet unclassified'! |
14 !PPCUnivarsalGuardTest methodsFor:'as yet unclassified'! |
14 |
15 |
15 assert: p parse: whatever |
16 assert: p parse: whatever |
16 ^ result := super assert: p parse: whatever. |
17 ^ result := super assert: p parse: whatever. |
19 context |
20 context |
20 ^ context := PPCProfilingContext new |
21 ^ context := PPCProfilingContext new |
21 ! |
22 ! |
22 |
23 |
23 setUp |
24 setUp |
24 arguments := PPCArguments default |
25 options := PPCCompilationOptions default |
25 profile: true; |
26 profile: true; |
26 yourself. |
27 yourself. |
27 |
28 |
28 configuration := PPCUniversalConfiguration new |
29 configuration := PPCUniversalConfiguration new |
29 arguments: arguments; |
30 options: options; |
30 yourself. |
31 yourself. |
|
32 |
|
33 "Modified: / 24-08-2015 / 23:40:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
31 ! |
34 ! |
32 |
35 |
33 tearDown |
36 tearDown |
34 | parserClass | |
37 | parserClass | |
35 |
38 |
111 |
114 |
112 self assert: parser parse: 'ab'. |
115 self assert: parser parse: 'ab'. |
113 self assert: parser parse: ' ab'. |
116 self assert: parser parse: ' ab'. |
114 ! ! |
117 ! ! |
115 |
118 |
|
119 !PPCUnivarsalGuardTest class methodsFor:'documentation'! |
|
120 |
|
121 version_HG |
|
122 |
|
123 ^ '$Changeset: <not expanded> $' |
|
124 ! ! |
|
125 |