--- a/TestCase.st Tue Oct 31 15:27:31 2000 +0100
+++ b/TestCase.st Wed Dec 06 16:25:04 2000 +0100
@@ -4,7 +4,7 @@
instanceVariableNames:'testSelector'
classVariableNames:''
poolDictionaries:''
- category:'SUnit'
+ category:'SUnit-Base'
!
!TestCase class methodsFor:'initialization'!
@@ -27,13 +27,16 @@
!TestCase class methodsFor:'Instance Creation'!
debug: aSymbol
- ^(self selector: aSymbol) debug!
+ ^(self selector: aSymbol) debug
+!
run: aSymbol
- ^(self selector: aSymbol) run!
+ ^(self selector: aSymbol) run
+!
selector: aSymbol
- ^self new setTestSelector: aSymbol!
+ ^self new setTestSelector: aSymbol
+!
suite
| testSelectors result |
@@ -100,10 +103,12 @@
!TestCase methodsFor:'Dependencies'!
addDependentToHierachy: anObject
- "an empty method. for Composite compability with TestSuite"!
+ "an empty method. for Composite compability with TestSuite"
+!
removeDependentFromHierachy: anObject
- "an empty method. for Composite compability with TestSuite"! !
+ "an empty method. for Composite compability with TestSuite"
+! !
!TestCase methodsFor:'Printing'!
@@ -129,15 +134,18 @@
!
setTestSelector: aSymbol
- testSelector := aSymbol! !
+ testSelector := aSymbol
+! !
!TestCase methodsFor:'Running'!
debug
- (self class selector: testSelector) runCase!
+ (self class selector: testSelector) runCase
+!
debugAsFailure
- (self class selector: testSelector) runCaseAsFailure!
+ (self class selector: testSelector) runCaseAsFailure
+!
openDebuggerOnFailingTestMethod
"SUnit has halted one step in front of the failing test method.
@@ -147,16 +155,19 @@
"/ self halt.
self perform: testSelector sunitAsSymbol
- "Modified: / 21.6.2000 / 10:03:37 / Sames"!
+ "Modified: / 21.6.2000 / 10:03:37 / Sames"
+!
run
| result |
result := TestResult new.
self run: result.
- ^result!
+ ^result
+!
run: aResult
- aResult runCase: self!
+ aResult runCase: self
+!
runCase
self setUp.
@@ -172,8 +183,10 @@
"Modified: / 21.6.2000 / 10:04:33 / Sames"
!
-setUp!
+setUp
+!
-tearDown! !
+tearDown
+! !
TestCase initialize!