Object subclass:#TestCase

	instanceVariableNames:'testSelector'

	classVariableNames:''

	poolDictionaries:''

	category:'SUnit-Base'

!

TestCase class instanceVariableNames:'lastTestRunResultOrNil lastTestRunsFailedTests'

"

 No other class instance variables are inherited by this class.

"

!

TestCase comment:'A TestCase is a Command representing the future running of a test case. Create one with the class method #selector: aSymbol, passing the name of the method to be run when the test case runs.

When you discover a new fixture, subclass TestCase, declare instance variables for the objects in the fixture, override #setUp to initialize the variables, and possibly override# tearDown to deallocate any external resources allocated in #setUp.

When you are writing a test case method, send #assert: aBoolean when you want to check for an expected value. For example, you might say "self assert: socket isOpen" to test whether or not a socket is open at a point in a test.'

!

! !

!TestCase class methodsFor:'instance creation'!

selector: aSymbol

	^self new setTestSelector: aSymbol

! !

!

!

! !

!TestCase methodsFor:'assertions'!

assert: aBoolean

    "fail, if the argument is not true"

"/        aBoolean ifFalse: [self signalFailure: 'Assertion failed']

    self assert: aBoolean message:'Assertion failed'

!

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)

!

shouldnt:aBlock 

    "fail, if the block does evaluate to true"

    self deny:aBlock value

! !

!TestCase methodsFor:'printing'!

printOn: aStream

"/        aStream

"/                nextPutAll: self class printString;

"/                nextPutAll: '>>#';

"/                nextPutAll: testSelector

        aStream nextPutAll: self name.

        aStream nextPutAll: '>>'.

        testSelector printOn: aStream

! !

!TestCase methodsFor:'private'!

!

performTest

        self perform: testSelector asSymbol

!

! !

!TestCase methodsFor:'running'!

!

!

run

	| result |

	result := TestResult new.

	self run: result.

	^result

!

run: aResult

	aResult runCase: self

!

setUp

!

tearDown

! !

!TestCase class methodsFor:'documentation'!

version

! !

TestCase initialize!