"{ Package: 'stx:goodies/sunit' }"
Object subclass:#TestCase
instanceVariableNames:'testSelector'
classVariableNames:''
poolDictionaries:''
category:'SUnit-Base'
!
!TestCase class methodsFor:'initialization'!
initialize
"ensure, that the sunit extensions are loaded"
(Class implements:#sunitName) ifFalse:[
Smalltalk fileIn:'extensions.st' inPackage:(self package)
].
TestFailure isLoaded ifFalse:[
TestFailure autoload
].
"
self initialize
"
! !
!TestCase class methodsFor:'Instance Creation'!
debug: aSymbol
^(self selector: aSymbol) debug
!
run: aSymbol
^(self selector: aSymbol) run
!
selector: aSymbol
^self new setTestSelector: aSymbol
!
suite
| testSelectors result |
testSelectors := self sunitSelectors select: [:each | 'test*' match: each].
testSelectors sort.
result := TestSuite new.
result name:self name.
testSelectors do: [:each | result addTest: (self selector: each)].
^result
"Modified: / 21.6.2000 / 10:05:24 / Sames"
! !
!TestCase methodsFor:'Accessing'!
assert: aBoolean
"fail, if the argument is not true"
(aBoolean isKindOf:Boolean) ifFalse:[ self error:'non boolean assertion' ].
aBoolean ifFalse: [self signalFailure: 'Assertion failed']
"Modified: / 21.6.2000 / 10:00:05 / Sames"
!
assertFalse:aBoolean
^ self assert:aBoolean not
!
assertFalse:aBoolean named:testName
^ self assert:aBoolean not
!
assertTrue:aBoolean
^ self assert:aBoolean
!
assertTrue:aBoolean named:testName
^ self assert:aBoolean
!
deny: aBoolean
"fail, if the argument is not false"
self assert: aBoolean not
!
should: aBlock
"fail, if the block does not evaluate to true"
self assert: aBlock value
!
should: aBlock raise: anExceptionalEvent
"fail, if the block does not raise the given event"
^self assert: (self executeShould: aBlock inScopeOf: anExceptionalEvent)
"Modified: / 21.6.2000 / 10:01:08 / Sames"
!
shouldnt: aBlock
"fail, if the block does evaluate to true"
self deny: aBlock value
!
shouldnt: aBlock raise: anExceptionalEvent
"fail, if the block does raise the given event"
^self assert: (self executeShould: aBlock inScopeOf: anExceptionalEvent) not
"Modified: / 21.6.2000 / 10:01:16 / Sames"
!
signalFailure: aString
"/ TestResult failure sunitSignalWith: aString
TestResult failure raiseErrorString:aString in:thisContext sender sender .
"Modified: / 21.6.2000 / 10:01:34 / Sames"
! !
!TestCase methodsFor:'Dependencies'!
addDependentToHierachy: anObject
"an empty method. for Composite compability with TestSuite"
!
removeDependentFromHierachy: anObject
"an empty method. for Composite compability with TestSuite"
! !
!TestCase methodsFor:'Printing'!
name
^ self class name.
!
printOn: aStream
aStream nextPutAll: self class name.
aStream nextPutAll: '>>'.
aStream nextPutAll: testSelector
"Modified: / 4.4.2000 / 18:59:53 / Sames"
! !
!TestCase methodsFor:'Private'!
executeShould: aBlock inScopeOf: anExceptionalEvent
[[aBlock value]
on: anExceptionalEvent
do: [:ex | ^true]]
on: TestResult error
do: [:ex | ^false].
^false.
"Modified: / 21.6.2000 / 10:03:03 / Sames"
!
setTestSelector: aSymbol
testSelector := aSymbol
! !
!TestCase methodsFor:'Running'!
debug
(self class selector: testSelector) runCase
!
debugAsFailure
(self class selector: testSelector) runCaseAsFailure
!
openDebuggerOnFailingTestMethod
"SUnit has halted one step in front of the failing test method.
Step over the 'self halt' and send into 'self perform: testSelector'
to see the failure from the beginning"
"/ self halt.
self perform: testSelector asSymbol
"Modified: / 21.6.2000 / 10:03:37 / Sames"
!
run
| result |
result := TestResult new.
self run: result.
^result
!
run: aResult
aResult runCase: self
!
runCase
self setUp.
[self perform: testSelector asSymbol] valueNowOrOnUnwindDo: [self tearDown]
"Modified: / 21.6.2000 / 10:04:18 / Sames"
!
runCaseAsFailure
self setUp.
[[self openDebuggerOnFailingTestMethod] valueNowOrOnUnwindDo: [self tearDown]] fork
"Modified: / 21.6.2000 / 10:04:33 / Sames"
!
setUp
!
tearDown
! !
!TestCase class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.15 2001-11-21 15:04:51 cg Exp $'
! !
TestCase initialize!