class: TestCase
changed:
#debug
#lastTestRunResultOrNil
removed uses of symbols to avoid typing errors
--- a/TestCase.st Mon Nov 05 22:03:40 2012 +0100
+++ b/TestCase.st Mon Nov 05 22:04:14 2012 +0100
@@ -135,7 +135,7 @@
lastOutcomes isNil ifTrue:[^nil].
lastOutcomes size ~= self testSelectors size ifTrue:[^nil].
lastOutcomes do:[:outcome|
- outcome result == #pass ifFalse:[
+ outcome result == (TestResult statePass) ifFalse:[
^false
].
].
@@ -623,7 +623,7 @@
(testCase := self class selector: testSelector) runCase.
outcome := TestCaseOutcome new.
outcome testCase: testCase.
- outcome result: #pass.
+ outcome result: (TestResult statePass).
outcome remember.
] sunitEnsure: [
TestResource resetResources: self resources
@@ -836,11 +836,11 @@
!TestCase class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.87 2012-10-23 19:02:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.88 2012-11-05 21:04:14 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.87 2012-10-23 19:02:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.88 2012-11-05 21:04:14 cg Exp $'
!
version_SVN