"{ Package: 'stx:libjava' }"

AbstractJavaTestCase subclass:#JavaRuntimeConstantPoolTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Languages-Java-Tests-RuntimeConstantPool'

!

!JavaRuntimeConstantPoolTests methodsFor:'tests'!

testInvalidateAll

    | newConstantPool  tmpConstantPoolCache |

    tmpConstantPoolCache := JavaConstantPool allConstantPools.

    JavaConstantPool allConstantPools: OrderedCollection new.

    newConstantPool := JavaConstantPool new: 8.

    newConstantPool at: 1 put: 6.

    newConstantPool at: 2 put: 'hello'.

    newConstantPool at: 3 put: (self getClassRefFor: 'Ljava/lang/Object;').

    newConstantPool at: 4

        put: (JavaMethodRef2  in: nil

                namedAndTyped: (self getName: '<init>' descriptor: '()V')

                inClassIdentifiedByRef: (newConstantPool at: 3)).

    newConstantPool at: 5 put: (self getClassRefFor:'Ljava/lang/String;').

    newConstantPool at: 6

        put: (JavaFieldRef2  in: nil

                namedAndTyped: (self getName: 'value' descriptor: '[C')

                inClassIdentifiedByRef: (newConstantPool at: 5)).

    newConstantPool at: 7 put: (self getClassRefFor: 'Ljava/lang/Runnable;').

    newConstantPool at: 8

        put: (JavaInterfaceMethodRef2 in: nil

                namedAndTyped: (self getName: 'run' descriptor: '()V')

                inClassIdentifiedByRef: (newConstantPool at: 7)).

    JavaConstantPool allConstantPools do: 

            [:each | 

            self 

                assertTrue: (JavaConstantPool allConstantPools includes: newConstantPool) ].

    JavaConstantPool allConstantPools: tmpConstantPoolCache.

    "Created: / 08-04-2011 / 17:03:56 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

    "Modified: / 10-05-2011 / 16:58:59 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

!

testInvalidateForClass

    | newConstantPool  tmpConstantPoolCache |

    "/backup cps

    tmpConstantPoolCache := JavaConstantPool allConstantPools.

    JavaConstantPool allConstantPools: OrderedCollection new.

    newConstantPool := JavaConstantPool new: 8.

    newConstantPool at: 1 put: 6.

    newConstantPool at: 2 put: 'hello'.

    newConstantPool at: 3

        put: (self getClassRefFor: 

                'Lstx/libjava/tests/mocks/ImplementorOfPublicInterface;').

    newConstantPool at: 4

        put: (JavaMethodRef2 in: nil namedAndTyped: (self getName: 'publicMethod'

                        descriptor: '()Ljava/lang/String;')

                inClassIdentifiedByRef: (newConstantPool at: 3)).

    newConstantPool at: 5

        put: (self getClassRefFor: 'Lstx/libjava/tests/mocks/PublicClass;').

    newConstantPool at: 6

        put: (JavaFieldRef2 in: nil namedAndTyped: (self getName:'publicField'

                        descriptor: 'Ljava/lang/String;')

                inClassIdentifiedByRef: (newConstantPool at: 5)).

    newConstantPool at: 7 put: (self getClassRefFor: 'Ljava/lang/Runnable;').

    newConstantPool at: 8

        put: (JavaInterfaceMethodRef2 in: nil

                namedAndTyped: (self getName: 'run' descriptor: '()V')

                inClassIdentifiedByRef: (newConstantPool at: 7)).

    "/end of initialization part

    newConstantPool do: [:each | each isJavaRef ifTrue: [ each resolve ] ].

    "/end of resolving part

    JavaConstantPool 

        invalidateReferencesToClass: 'Lstx/libjava/tests/mocks/PublicClass;'.

    self assertTrue: (newConstantPool at: 3) isResolved.

    self assertTrue: (newConstantPool at: 7) isResolved.

    self assertTrue: (newConstantPool at: 5) isResolved not.

    "/and put pack what was there before

    JavaConstantPool allConstantPools: tmpConstantPoolCache.

    "Created: / 08-04-2011 / 17:10:42 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

    "Modified: / 10-05-2011 / 16:57:57 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

!

testNewCreatedCPIsInCache

|newConstantPool|

newConstantPool := JavaConstantPool new: 500.

self assertTrue: (JavaConstantPool allConstantPools includes: newConstantPool).

JavaConstantPool allConstantPools remove: newConstantPool.

    "Created: / 08-04-2011 / 16:57:59 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"

! !

!JavaRuntimeConstantPoolTests class methodsFor:'documentation'!

version_SVN

    ^ '$Id$'

! !