"{ Package: 'stx:goodies/petitparser/compiler/tests/extras' }"

"{ NameSpace: Smalltalk }"

TestResource subclass:#PPCSetUpBeforeTearDownAfterResource

	instanceVariableNames:''

	classVariableNames:'CachedResources'

	poolDictionaries:''

	category:'PetitCompiler-Extras-Tests-Support'

!

PPCSetUpBeforeTearDownAfterResource class instanceVariableNames:'testCaseClass'

"

 The following class instance variables are inherited by this class:

	TestResource - current

	TestAsserter - 

	Object - 

"

!

!PPCSetUpBeforeTearDownAfterResource class methodsFor:'initialization'!

initialize

    "Invoked at system start or when the class is dynamically loaded."

    "/ please change as required (and remove this comment)

    "/ testCaseClass := nil.

    CachedResources := Dictionary new

    "Modified: / 30-07-2015 / 07:47:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!PPCSetUpBeforeTearDownAfterResource class methodsFor:'accessing'!

testCaseClass

    ^ testCaseClass

    "Created: / 29-07-2015 / 16:19:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

testCaseClass: aClass

    testCaseClass := aClass

    "Created: / 29-07-2015 / 16:19:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!PPCSetUpBeforeTearDownAfterResource class methodsFor:'queries'!

isAbstract

    "Return if this class is an abstract class.

     True is returned here for myself only; false for subclasses.

     Abstract subclasses must redefine again."

    ^ self == PPCSetUpBeforeTearDownAfterResource.

! !

!PPCSetUpBeforeTearDownAfterResource class methodsFor:'running'!

availableFor: aTestAsserter

        aTestAsserter

                assert: self isAvailable

                description: 'Unavailable resource ', PPCSetUpBeforeTearDownAfterResource name ,' for: ', testCaseClass name , ' requested by ', aTestAsserter printString.

    "Created: / 29-07-2015 / 16:42:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!PPCSetUpBeforeTearDownAfterResource class methodsFor:'subclass creation'!

for: aClass

    ^ CachedResources at: aClass ifAbsentPut:[

        | resourceMeta resourceClass |

        resourceMeta := Metaclass new.

        resourceMeta setSuperclass: self class.

        resourceMeta instSize: self class instSize.  

        resourceClass := resourceMeta new.

        resourceClass setSuperclass: self.

        resourceClass instSize: self instSize.  

        resourceClass testCaseClass: aClass.

        resourceClass

    ]

    "Created: / 29-07-2015 / 16:17:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (format): / 30-07-2015 / 07:48:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!PPCSetUpBeforeTearDownAfterResource methodsFor:'setup & teardown'!

setUp

    | testCaseClass |

    testCaseClass := self class testCaseClass.

    (testCaseClass lookupSelector: #setUpBefore) notNil ifTrue:[ 

        testCaseClass new setUpBefore.

    ].

    "Created: / 29-07-2015 / 16:33:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

tearDown

    | testCaseClass |

    testCaseClass := self class testCaseClass.

    (testCaseClass lookupSelector: #tearDownAfter) notNil ifTrue:[ 

        testCaseClass new tearDownAfter

    ].

    "Created: / 29-07-2015 / 16:33:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

PPCSetUpBeforeTearDownAfterResource initialize!