182 self assert: result receiver isValue. |
182 self assert: result receiver isValue. |
183 self assert: result selector equals: #+. |
183 self assert: result selector equals: #+. |
184 self assert: result arguments first isValue |
184 self assert: result arguments first isValue |
185 ! |
185 ! |
186 |
186 |
|
187 testComment6a |
|
188 super testComment6a. |
|
189 self assert: result isMessage. |
|
190 self assert: result receiver isValue. |
|
191 self assert: result selector equals: #+. |
|
192 self assert: result arguments first isValue |
|
193 |
|
194 "Created: / 07-11-2014 / 01:53:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
195 ! |
|
196 |
|
197 testComment6b |
|
198 super testComment6b. |
|
199 self assert: result isMessage. |
|
200 self assert: result receiver isValue. |
|
201 self assert: result selector equals: #+. |
|
202 self assert: result arguments first isValue |
|
203 |
|
204 "Created: / 07-11-2014 / 01:53:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
205 ! |
|
206 |
|
207 testComment6c |
|
208 super testComment6c. |
|
209 self assert: result isMessage. |
|
210 self assert: result receiver isValue. |
|
211 self assert: result selector equals: #+. |
|
212 self assert: result arguments first isValue |
|
213 |
|
214 "Created: / 07-11-2014 / 01:53:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
215 ! |
|
216 |
|
217 testComment6d |
|
218 super testComment6d. |
|
219 self assert: result isMessage. |
|
220 self assert: result receiver isValue. |
|
221 self assert: result selector equals: #+. |
|
222 self assert: result arguments first isValue |
|
223 |
|
224 "Created: / 07-11-2014 / 01:53:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
225 ! |
|
226 |
|
227 testComment6e |
|
228 super testComment6e. |
|
229 self assert: result isMessage. |
|
230 self assert: result receiver isValue. |
|
231 self assert: result selector equals: #+. |
|
232 self assert: result arguments first isValue |
|
233 |
|
234 "Created: / 07-11-2014 / 01:53:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
235 ! |
|
236 |
187 testMethod1 |
237 testMethod1 |
188 super testMethod1. |
238 super testMethod1. |
189 self assert: result isMethod. |
239 self assert: result isMethod. |
190 self assert: result arguments isEmpty. |
240 self assert: result arguments isEmpty. |
191 self assert: result body temporaries isEmpty. |
241 self assert: result body temporaries isEmpty. |