equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 "{ Package: 'stx:goodies/sunit' }" |
3 "{ Package: 'stx:goodies/sunit' }" |
|
4 |
|
5 "{ NameSpace: Smalltalk }" |
2 |
6 |
3 Object subclass:#TestCaseOutcome |
7 Object subclass:#TestCaseOutcome |
4 instanceVariableNames:'testCase result properties' |
8 instanceVariableNames:'testCase result properties' |
5 classVariableNames:'' |
9 classVariableNames:'' |
6 poolDictionaries:'' |
10 poolDictionaries:'' |
161 ! ! |
165 ! ! |
162 |
166 |
163 !TestCaseOutcome methodsFor:'comparing'! |
167 !TestCaseOutcome methodsFor:'comparing'! |
164 |
168 |
165 = anotherOutcome |
169 = anotherOutcome |
|
170 |myTestCase otherTestCase| |
166 |
171 |
167 ^(anotherOutcome isKindOf: self class) |
172 ^(anotherOutcome isKindOf: self class) |
168 and:[self testCase class == anotherOutcome testCase class |
173 and:[(myTestCase := self testCase) class == (otherTestCase := anotherOutcome testCase) class |
169 and:[self testCase selector == anotherOutcome testCase selector]]. |
174 and:[myTestCase selector == otherTestCase selector]]. |
170 |
175 |
171 "Created: / 20-08-2011 / 14:24:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
176 "Created: / 20-08-2011 / 14:24:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
172 ! |
177 ! |
173 |
178 |
174 hash |
179 hash |
201 ! ! |
206 ! ! |
202 |
207 |
203 !TestCaseOutcome class methodsFor:'documentation'! |
208 !TestCaseOutcome class methodsFor:'documentation'! |
204 |
209 |
205 version_CVS |
210 version_CVS |
206 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCaseOutcome.st,v 1.6 2014-04-16 22:06:04 cg Exp $' |
211 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCaseOutcome.st,v 1.7 2015-05-08 10:28:56 cg Exp $' |
207 ! ! |
212 ! ! |
208 |
213 |