--- a/TestCase.st Fri Apr 19 17:47:46 2013 +0200
+++ b/TestCase.st Fri Apr 19 18:00:25 2013 +0200
@@ -653,12 +653,11 @@
| testCase outcome result|
[
- result := TestResult statePass.
+ result := TestResult stateError.
[
(testCase := self class selector: testSelector) runCase.
+ result := TestResult statePass.
] sunitOn:(TestResult failure) do: [:ex |
- |con|
-
ex creator == TestSkipped ifTrue:[
result := TestResult stateSkip.
] ifFalse:[
@@ -676,16 +675,16 @@
] ifFalse:[
"is there a portable way to open a debugger?"
self halt:(ex description)
- ]
+ ].
].
+ ] sunitEnsure: [
" if proceeded in the debugger, we arrive here; "
" but still, this is not always a pass !! "
outcome := TestCaseOutcome new.
outcome testCase: testCase.
outcome result: result.
outcome remember.
- ] sunitEnsure: [
TestResource resetResources: self resources
].
@@ -908,11 +907,11 @@
!TestCase class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.99 2013-04-19 09:39:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.100 2013-04-19 16:00:25 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.99 2013-04-19 09:39:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.100 2013-04-19 16:00:25 stefan Exp $'
!
version_SVN