equal
deleted
inserted
replaced
7 category:'PetitSmalltalk-Tests' |
7 category:'PetitSmalltalk-Tests' |
8 ! |
8 ! |
9 |
9 |
10 PPSmalltalkClassesTests comment:'Evalaute the following code to verify the complete image.' |
10 PPSmalltalkClassesTests comment:'Evalaute the following code to verify the complete image.' |
11 ! |
11 ! |
|
12 |
12 |
13 |
13 !PPSmalltalkClassesTests class methodsFor:'accessing'! |
14 !PPSmalltalkClassesTests class methodsFor:'accessing'! |
14 |
15 |
15 packageNamesUnderTest |
16 packageNamesUnderTest |
16 ^ #('PetitSmalltalk') |
17 ^ #('PetitSmalltalk') |
199 result := self parserClass parseMethod: 'do 1 +' onError: [ :err | true ]. |
200 result := self parserClass parseMethod: 'do 1 +' onError: [ :err | true ]. |
200 self assert: result. |
201 self assert: result. |
201 self should: [ self parserClass parseMethod: 'do 1 +' ] raise: Error |
202 self should: [ self parserClass parseMethod: 'do 1 +' ] raise: Error |
202 ! ! |
203 ! ! |
203 |
204 |
|
205 !PPSmalltalkClassesTests class methodsFor:'documentation'! |
|
206 |
|
207 version_HG |
|
208 |
|
209 ^ '$Changeset: <not expanded> $' |
|
210 ! ! |
|
211 |