"{ Package: 'stx:libjava' }"

JavaTestCaseProxy subclass:#TestletTestCaseProxy

	instanceVariableNames:'harness'

	classVariableNames:'TestCases'

	poolDictionaries:''

	category:'Languages-Java-Tests-Proxies'

!

!TestletTestCaseProxy class methodsFor:'accessing'!

lookupHierarchyRoot

    ^ TestletTestCaseProxy

    "Created: / 01-03-2011 / 11:41:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 01-03-2011 / 14:54:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 29-04-2011 / 10:25:26 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

!

selector: aSymbol

    ^super selector: aSymbol

    "Created: / 01-03-2011 / 11:55:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TestletTestCaseProxy class methodsFor:'private'!

testSelectors

    "testlet always has only one test method, but maybe for the future.."

    ^ #( #'test(Lgnu.testlet.TestHarness;)' ).

    "Created: / 01-03-2011 / 10:49:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 03-03-2011 / 00:34:39 / Marcel Hlopko <hlopik@gmail.com>"

    "Modified: / 04-03-2011 / 00:05:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 29-05-2011 / 22:54:06 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

! !

!TestletTestCaseProxy class methodsFor:'queries'!

isTestlet

	^ true

! !

!TestletTestCaseProxy class methodsFor:'subclass creation'!

for: javaClass 

    "Answers a new (anonymous) testcase proxy for

     given javaClass"

    self assert: javaClass isJavaClass description: 'Not a java class'.

    self assert: javaClass isTestletLike

        description: 'Not a testcase-like class'.

    ^self forClassNamed: javaClass name

    "Created: / 01-03-2011 / 10:30:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 03-03-2011 / 00:20:49 / Marcel Hlopko <hlopik@gmail.com>"

    "Modified: / 29-04-2011 / 10:21:39 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

    "Modified: / 21-06-2011 / 17:08:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TestletTestCaseProxy methodsFor:'accessing'!

nameForHDTestReport

    ^(self class javaClassName copyReplaceAll:$/ with: $.) copyTo: (self class javaClassName lastIndexOf: $/) - 1.

    "Created: / 01-04-2011 / 16:10:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

selectorForHDTestReport

    ^self class javaClassName copyFrom: 

		(self class javaClassName lastIndexOf: $/) + 1

! !

!TestletTestCaseProxy methodsFor:'error handling'!

doesNotUnderstand: aMessage

    aMessage selector == #'check(Z)V' ifTrue: [

        aMessage arg1 == 0 ifTrue:

            [TestResult failure sunitSignalWith: 'Testlet failed']

    ] ifFalse:[ aMessage selector == #'check(ZLjava/lang/String;)V' ifTrue:[

        aMessage arg1 == 0 ifTrue:        

            [TestResult failure sunitSignalWith: (Java as_ST_String: aMessage arguments second)]

    ]].

    (harness respondsTo: aMessage selector) ifTrue:

        [^aMessage sendTo: harness].

    ^super doesNotUnderstand: aMessage

    "Created: / 31-05-2011 / 16:30:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TestletTestCaseProxy methodsFor:'private'!

harnessMock

    ^ (Java classForName: 'stx.libjava.tests.mocks.TestletHarnessMock') new.

    "Modified: / 29-04-2011 / 10:52:53 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

!

performTest

    | handlerBlock |

    handlerBlock := [:ex | TestResult failure sunitSignalWith: ex description].

    harness := self harnessMock.

    [ JavaVM unimplementedNativeMethodSignal 

        handle:

            handlerBlock

        do: [

            self javaClass new 

                perform: 'test(Lgnu/testlet/TestHarness;)V' sunitAsSymbol

                with: self

       ].

    ] on: JavaError do: [:ex | 

        TestResult failure sunitSignalWith: ex description

    ].

    "/((harness instVarNamed: 'passed') = 0 ) ifTrue: [ TestResult failure sunitSignalWith: 'Test failed' ].

    "Created: / 01-03-2011 / 14:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 29-05-2011 / 23:19:07 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

    "Modified: / 13-06-2011 / 17:03:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TestletTestCaseProxy class methodsFor:'documentation'!

version_SVN

    ^ '$Id$'

! !