--- a/Tools_MethodList.st Wed Apr 03 15:09:59 2013 +0200
+++ b/Tools_MethodList.st Wed Apr 03 15:24:44 2013 +0200
@@ -1643,12 +1643,19 @@
lastResultOrNil := cls rememberedOutcomeFor:selector.
lastResultOrNil notNil ifTrue:[
- (lastResultOrNil result == TestResult statePass) ifTrue:[
+ |state|
+
+ state := lastResultOrNil result.
+ (state == TestResult statePass) ifTrue:[
icn := SystemBrowser testCasePassedIcon
] ifFalse:[
- ((lastResultOrNil result == TestResult stateError)
- or:[ (lastResultOrNil result == TestResult stateFail) ]) ifTrue:[
+ ((state == TestResult stateError)
+ or:[ (state == TestResult stateFail) ]) ifTrue:[
icn := SystemBrowser testCaseFailedIcon
+ ] ifFalse:[
+ (state == TestResult stateSkip) ifTrue:[
+ icn := SystemBrowser testCaseSkippedIcon
+ ]
]
]
].
@@ -1806,10 +1813,10 @@
!MethodList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.81 2013-03-28 17:22:01 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.82 2013-04-03 13:24:44 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.81 2013-03-28 17:22:01 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.82 2013-04-03 13:24:44 cg Exp $'
! !