equal
deleted
inserted
replaced
71 |
71 |
72 rememberedOutcomeFor: selector in: class |
72 rememberedOutcomeFor: selector in: class |
73 | implementor method outcomes | |
73 | implementor method outcomes | |
74 |
74 |
75 implementor := class. |
75 implementor := class. |
76 [implementor notNil and:[implementor includesSelector: selector]] |
76 [implementor notNil and:[(implementor includesSelector: selector) not]] |
77 whileFalse: [implementor := implementor superclass]. |
77 whileTrue: [implementor := implementor superclass]. |
78 implementor isNil ifTrue:[ ^ nil ]. |
78 implementor isNil ifTrue:[ ^ nil ]. |
79 method := implementor compiledMethodAt: selector. |
79 method := implementor compiledMethodAt: selector. |
80 outcomes := RemeberedOutcomes at: method ifAbsent:[ ^ nil ]. |
80 outcomes := RemeberedOutcomes at: method ifAbsent:[ ^ nil ]. |
81 ^ outcomes at: class ifAbsent: [ nil ] |
81 ^ outcomes at: class ifAbsent: [ nil ] |
82 |
82 |
83 "Created: / 13-07-2014 / 23:56:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
83 "Created: / 13-07-2014 / 23:56:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
84 "Modified: / 14-07-2014 / 21:15:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
84 "Modified: / 17-07-2014 / 14:35:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
85 ! ! |
85 ! ! |
86 |
86 |
87 !TestCaseOutcome methodsFor:'accessing'! |
87 !TestCaseOutcome methodsFor:'accessing'! |
88 |
88 |
89 collectedOutput |
89 collectedOutput |
272 |
272 |
273 !TestCaseOutcome class methodsFor:'documentation'! |
273 !TestCaseOutcome class methodsFor:'documentation'! |
274 |
274 |
275 version_CVS |
275 version_CVS |
276 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCaseOutcome.st,v 1.6 2014-04-16 22:06:04 cg Exp $' |
276 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCaseOutcome.st,v 1.6 2014-04-16 22:06:04 cg Exp $' |
|
277 ! |
|
278 |
|
279 version_HG |
|
280 |
|
281 ^ '$Changeset: <not expanded> $' |
277 ! ! |
282 ! ! |
278 |
283 |
279 |
284 |
280 TestCaseOutcome initialize! |
285 TestCaseOutcome initialize! |