"{ 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 sort.

        result := TestSuite new.

        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'!

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.

    "Modified: / 21.6.2000 / 10:03:37 / Sames"

!

run

	| result |

	result := TestResult new.

	self run: result.

	^result

!

run: aResult

	aResult runCase: self

!

runCase

    "Modified: / 21.6.2000 / 10:04:18 / Sames"

!

runCaseAsFailure

    "Modified: / 21.6.2000 / 10:04:33 / Sames"

!

setUp

!

tearDown

! !

!TestCase class methodsFor:'documentation'!

version

! !

TestCase initialize!