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

Object subclass:#TestSuite

	instanceVariableNames:'tests resources name'

	classVariableNames:''

	poolDictionaries:''

	category:'SUnit-Base'

!

TestSuite comment:''

!

!TestSuite class methodsFor:'instance creation'!

named: aString

	^self new

		name: aString;

		yourself

! !

!TestSuite methodsFor:'accessing'!

addTest: aTest

	self tests add: aTest

!

addTests: aCollection

	aCollection do: [:eachTest | self addTest: eachTest]

!

defaultResources

	^self tests

		inject: OrderedCollection new

		into:

			[:coll :testCase |

			testCase resources do:

				[:each |

				(coll includes: each) ifFalse: [coll add: each]].

			coll]

!

getTestName

    ^self name

    "Created: / 12-09-2006 / 11:38:09 / cg"

!

name

	^name

!

name: aString

	name := aString

!

nameOfTest

    ^ self name

!

resources

	resources isNil ifTrue: [resources := self defaultResources].

	^resources

!

resources: someOrderedTestResourceClasses

	"The parameter should understand reverseDo: and should not contain duplicates."

	resources := someOrderedTestResourceClasses

!

tests

	tests isNil ifTrue: [tests := OrderedCollection new].

	^tests

! !

!TestSuite methodsFor:'dependencies'!

addDependentToHierachy: anObject

	self sunitAddDependent: anObject.

	self tests do: [ :each | each addDependentToHierachy: anObject]

!

removeDependentFromHierachy: anObject

	self sunitRemoveDependent: anObject.

	self tests do: [ :each | each removeDependentFromHierachy: anObject]

! !

!TestSuite methodsFor:'queries'!

isTestCase

    ^ false

!

isTestSuite

    ^ true

! !

!TestSuite methodsFor:'running'!

run

	| result |

	result := TestResult new.

	[self run: result]

		"sunitEnsure: [self resources reverseDo: [:each | each reset]]."

			sunitEnsure: [TestResource resetResources: self resources].

	^result

    "Modified: / 11-09-2010 / 16:47:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

run:aResult

    aResult name:name.

    self tests do:[:each |

	self sunitChanged:each.

	each run:aResult

    ]

    "Modified: / 19-03-2010 / 08:03:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

run: aResult afterEachDo:block2

    aResult name: name.

    self tests do:

	[:each |

	self changed: each.

	each run: aResult afterEachDo:block2]

    "Modified: / 21-06-2000 / 10:14:01 / Sames"

    "Modified: / 19-03-2010 / 08:01:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

run:aResult beforeEachDo:block1 afterEachDo:block2

    |class|

    aResult name: name.

    class := name ifNotNil:[ Smalltalk classNamed:name ] ifNil:[ nil ].

    class ifNotNil:[ class perform:#setUp ifNotUnderstood:nil ].

    [

    ] ensure:[

    ].

    class ifNotNil:[ class perform:#tearDown ifNotUnderstood:nil ]

    "Modified: / 19-03-2010 / 08:02:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

run:aResult beforeEachTestCaseDo:block1 afterEachTestCaseDo:block2

    aResult name: name.

    self tests do:[:each |

	self changed:each.

	each

	    run:aResult

	    beforeEachTestCaseDo:block1

	    afterEachTestCaseDo:block2.

    ]

    "Modified: / 19-03-2010 / 08:02:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

runAfterEachDo: aBlock

	| result |

	result := TestResult new.

	result name: name.

	[self run: result afterEachDo: aBlock]

		sunitEnsure: [self resources reverseDo: [:each | each reset]].

	^result

    "Created: / 15-03-2010 / 20:36:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 19-03-2010 / 08:02:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

runBeforeEachDo:block1 afterEachDo: block2

        | result |

        result := TestResult new.

        result name: name.

        [self run: result beforeEachDo:block1 afterEachDo: block2]

                sunitEnsure: [self resources reverseDo: [:each | each reset]].

        ^result

    "Modified: / 19-03-2010 / 08:02:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Created: / 05-07-2011 / 16:51:25 / cg"

! !

!TestSuite methodsFor:'testing'!

areAllResourcesAvailable

	^self resources

		inject: true

		into: [:total :each | each isAvailable & total]

!

signalUnavailableResources

    self resources do:[:res |

	res isAvailable ifFalse:[

	    ^ res signalInitializationError

	]

    ].

! !

!TestSuite class methodsFor:'documentation'!

!

version_SVN

    ^ '§Id: TestSuite.st 203 2010-09-11 14:49:03Z vranyj1 §'

! !