"{ Package: 'stx:goodies/sunit' }"

Object subclass:#TestResource

	instanceVariableNames:'name description'

	classVariableNames:''

	poolDictionaries:''

	category:'SUnit-Base'

!

TestResource class instanceVariableNames:'current'

"

 No other class instance variables are inherited by this class.

"

!

!TestResource class methodsFor:'accessing'!

current

	current isNil

		ifTrue: [current := self new].

	^current

!

current: aTestResource

	current := aTestResource

!

resources

	^#()

! !

!TestResource class methodsFor:'creation'!

new

!

reset

	current notNil ifTrue: [

		[current tearDown] ensure: [

			current := nil]]

!

signalInitializationError

	^TestResult signalErrorWith: 'Resource ' , self name , ' could not be initialized'

! !

!TestResource class methodsFor:'testing'!

isAbstract

        "Override to true if a TestResource subclass is Abstract and should not have

        TestCase instances built from it"

        ^ self == TestResource

!

isAvailable

	^self current notNil and: [self current isAvailable]

!

isUnavailable

	^self isAvailable not

! !

!TestResource methodsFor:'accessing'!

description

	description isNil

		ifTrue: [^''].

	^description

!

description: aString

	description := aString

!

name

	name isNil

		ifTrue: [^self printString].

	^name

!

name: aString

	name := aString

!

resources

	^self class resources

! !

!TestResource methodsFor:'init / release'!

initialize

	self setUp

! !

!TestResource methodsFor:'printing'!

printOn: aStream

	aStream nextPutAll: self class printString

! !

!TestResource methodsFor:'running'!

setUp

	"Does nothing. Subclasses should override this

	to initialize their resource"

!

signalInitializationError

	^self class signalInitializationError

!

tearDown

	"Does nothing. Subclasses should override this

	to tear down their resource"

! !

!TestResource methodsFor:'testing'!

isAvailable

	"override to provide information on the

	readiness of the resource"

	^true

!

isUnavailable

	"override to provide information on the

	readiness of the resource"

	^self isAvailable not

! !

!TestResource class methodsFor:'documentation'!

version

! !