hg/stx-libjava: src/JavaFieldRefTests.st@3c1d3f2d29a5 (annotated)

758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	1	"{ Package: 'stx:libjava' }"
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	2
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	3	JavaRuntimeConstantPoolTests subclass:#JavaFieldRefTests
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	4	instanceVariableNames:''
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	5	classVariableNames:''
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	6	poolDictionaries:''
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	7	category:'Languages-Java-Tests-RuntimeConstantPool'
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	8	!
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	9
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	10
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	11	!JavaFieldRefTests methodsFor:'permission tests'!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	12
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	13	testAccessingPPFromOutside
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	14	\| javaClassRef javaFieldRef initString throwedException \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	15
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	16	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	17
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	18	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	19	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	20	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	21	javaFieldRef := JavaFieldRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	22	namedAndTyped: (JavaNameAndType2 name: 'packagePrivateField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	23	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	24	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	25	javaFieldRef resolve. ] on: Error do: [:e \| throwedException := e].
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	26	self assertTrue: (throwedException messageText = 'IllegalAccessError').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	27
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	28	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	29
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	30	"Created: / 14-04-2011 / 15:05:20 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	31	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	32
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	33	testAccessingPPFromPackage
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	34	\| javaClassRef javaFieldRef initString \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	35
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	36	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	37	self shouldnt:
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	38	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	39	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	40	javaClassRef owner: (Java classForName: 'stx.libjava.tests.mocks.Crate').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	41	javaFieldRef := JavaFieldRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	42	namedAndTyped: (JavaNameAndType2 name: 'packagePrivateField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	43	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	44	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	45	javaFieldRef resolve. ]
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	46	raise: Error.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	47	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	48
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	49	"Created: / 14-04-2011 / 15:08:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	50	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	51
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	52	testAccessingPPFromSubclass
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	53	\| javaClassRef javaFieldRef initString \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	54
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	55	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	56	self shouldnt:
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	57	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	58	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	59	javaClassRef owner: (Java classForName: 'stx.libjava.tests.mocks.SubclassOfPublicClass').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	60	javaFieldRef := JavaFieldRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	61	namedAndTyped: (JavaNameAndType2 name: 'packagePrivateField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	62	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	63	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	64	javaFieldRef resolve. ]
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	65	raise: Error.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	66	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	67
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	68	"Created: / 14-04-2011 / 15:08:39 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	69	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	70
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	71	testAccessingPrivateFromOutside
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	72	\| javaClassRef javaFieldRef initString throwedException \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	73
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	74	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	75
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	76	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	77	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	78	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	79	javaFieldRef := JavaFieldRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	80	namedAndTyped: (JavaNameAndType2 name: 'privateField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	81	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	82	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	83	javaFieldRef resolve. ] on: Error
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	84	do: [:e \| throwedException := e ].
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	85	self assertTrue: (throwedException notNil
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	86	and: [ throwedException messageText = 'IllegalAccessError' ]).
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	87	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	88
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	89	"Created: / 13-04-2011 / 14:44:48 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	90	"Modified: / 14-04-2011 / 14:10:28 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	91	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	92
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	93	testAccessingPrivateFromOutsideInNonPublic
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	94	\| javaClassRef javaFieldRef initString throwedException \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	95
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	96	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	97
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	98	[ initString := 'Lstx/libjava/tests/mocks/NonPublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	99	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	100	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	101	javaFieldRef := JavaFieldRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	102	namedAndTyped: (JavaNameAndType2 name: 'privateField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	103	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	104	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	105	javaFieldRef resolve. ] on: Error
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	106	do: [:e \| throwedException := e ].
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	107	self assertTrue: (throwedException notNil
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	108	and: [ throwedException messageText = 'IllegalAccessError' ]).
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	109	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	110
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	111	"Created: / 13-04-2011 / 14:47:44 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	112	"Modified: / 14-04-2011 / 14:11:00 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	113	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	114
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	115	testAccessingPrivateFromSubclass
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	116	\| javaClassRef javaFieldRef initString throwedException \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	117
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	118	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	119
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	120	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	121	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	122	javaClassRef owner: (Java classForName: 'java.lang.SubclassOfPublicClass').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	123	javaFieldRef := JavaFieldRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	124	namedAndTyped: (JavaNameAndType2 name: 'privateField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	125	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	126	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	127	javaFieldRef resolve. ] on: Error
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	128	do: [:e \| throwedException := e ].
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	129	self assertTrue: (throwedException notNil
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	130	and: [ throwedException messageText = 'IllegalAccessError' ]).
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	131	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	132
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	133	"Created: / 13-04-2011 / 14:49:32 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	134	"Modified: / 14-04-2011 / 14:12:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	135	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	136
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	137	testAccessingProtectedFromOutside
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	138	\| javaClassRef javaFieldRef initString throwedException \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	139
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	140	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	141
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	142	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	143	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	144	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	145	javaFieldRef := JavaFieldRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	146	namedAndTyped: (JavaNameAndType2 name: 'protectedField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	147	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	148	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	149	javaFieldRef resolve. ] on: Error
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	150	do: [:e \| throwedException := e ].
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	151	self assertTrue: (throwedException notNil
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	152	and: [ throwedException messageText = 'IllegalAccessError' ]).
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	153	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	154
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	155	"Created: / 13-04-2011 / 14:44:48 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	156	"Modified: / 14-04-2011 / 14:12:23 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	157	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	158
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	159	testAccessingProtectedFromOutsideInNonPublic
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	160	\| javaClassRef javaFieldRef initString throwedException \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	161
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	162	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	163
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	164	[ initString := 'Lstx/libjava/tests/mocks/NonPublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	165	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	166	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	167	javaFieldRef := JavaFieldRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	168	namedAndTyped: (JavaNameAndType2 name: 'protectedMethod'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	169	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	170	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	171	javaFieldRef resolve. ] on: Error
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	172	do: [:e \| throwedException := e ].
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	173	self assertTrue: (throwedException notNil
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	174	and: [ throwedException messageText = 'IllegalAccessError' ]).
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	175	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	176
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	177	"Created: / 13-04-2011 / 14:47:54 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	178	"Modified: / 14-04-2011 / 14:13:05 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	179	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	180
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	181	testAccessingProtectedFromPackage
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	182	\| javaClassRef javaFieldRef initString \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	183
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	184	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	185	self shouldnt:
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	186	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	187	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	188	javaClassRef owner: (Java classForName: 'stx.libjava.tests.mocks.Crate').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	189	javaFieldRef := JavaFieldRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	190	namedAndTyped: (JavaNameAndType2 name: 'protectedField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	191	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	192	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	193	javaFieldRef resolve. ]
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	194	raise: Error.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	195	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	196
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	197	"Created: / 14-04-2011 / 15:09:02 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	198	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	199
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	200	testAccessingProtectedFromSubclass
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	201	\| javaClassRef javaFieldRef initString throwedException \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	202
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	203	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	204
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	205	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	206	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	207	javaClassRef
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	208	owner: (Java classForName: 'stx.libjava.tests.mocks.SubclassOfPublicClass').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	209	javaFieldRef := JavaFieldRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	210	namedAndTyped: (JavaNameAndType2 name: 'protectedField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	211	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	212	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	213	javaFieldRef resolve. ] on: Error
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	214	do: [:e \| throwedException := e ].
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	215	self assertTrue: (throwedException isNil).
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	216	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	217
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	218	"Created: / 13-04-2011 / 14:49:23 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	219	"Modified: / 14-04-2011 / 14:13:27 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	220	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	221
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	222	testAccessingPublic
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	223	\| javaClassRef javaFieldRef initString \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	224
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	225	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	226	self shouldnt:
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	227	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	228	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	229	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	230	javaFieldRef := JavaFieldRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	231	namedAndTyped: (JavaNameAndType2 name: 'publicField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	232	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	233	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	234	javaFieldRef resolve. ]
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	235	raise: Error.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	236	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	237
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	238	"Created: / 13-04-2011 / 14:44:13 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	239	"Modified: / 14-04-2011 / 14:13:45 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	240	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	241
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	242	testAccessingPublicFromOutside
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	243	\| javaClassRef javaFieldRef initString \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	244
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	245	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	246	self shouldnt:
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	247	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	248	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	249	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	250	javaFieldRef := JavaFieldRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	251	namedAndTyped: (JavaNameAndType2 name: 'publicField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	252	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	253	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	254	javaFieldRef resolve. ]
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	255	raise: Error.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	256	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	257
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	258	"Created: / 13-04-2011 / 14:44:31 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	259	"Modified: / 14-04-2011 / 14:14:12 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	260	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	261
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	262	testAccessingPublicFromOutsideInNonPublic
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	263	\| javaClassRef javaFieldRef initString throwedException \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	264
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	265	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	266
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	267	[ initString := 'Lstx/libjava/tests/mocks/NonPublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	268	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	269	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	270	javaFieldRef := JavaFieldRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	271	namedAndTyped: (JavaNameAndType2 name: 'publicField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	272	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	273	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	274	javaFieldRef resolve. ] on: Error
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	275	do: [:e \| throwedException := e ].
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	276	self assertTrue: (throwedException notNil
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	277	and: [ throwedException messageText = 'IllegalAccessError' ]).
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	278	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	279
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	280	"Created: / 13-04-2011 / 14:48:05 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	281	"Modified: / 14-04-2011 / 14:14:32 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	282	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	283
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	284	testAccessingPublicFromSubclass
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	285	\| javaClassRef javaFieldRef initString throwedException \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	286
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	287	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	288
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	289	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	290	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	291	javaClassRef owner: (Java classForName: 'java.lang.SubclassOfPublicClass').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	292	javaFieldRef := JavaFieldRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	293	namedAndTyped: (JavaNameAndType2 name: 'publicField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	294	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	295	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	296	javaFieldRef resolve. ] on: Error
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	297	do: [:e \| throwedException := e ].
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	298	self assertTrue: (throwedException isNil).
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	299	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	300
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	301	"Created: / 13-04-2011 / 14:49:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	302	"Modified: / 14-04-2011 / 14:14:46 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	303	! !
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	304
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	305	!JavaFieldRefTests methodsFor:'resolving static tests'!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	306
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	307	testResolvingStatic
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	308	\| javaClassRef javaFieldRef initString result expectedResult \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	309
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	310	initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	311	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	312	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	313	javaFieldRef := JavaFieldRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	314	namedAndTyped: (JavaNameAndType2 name: 'publicStaticField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	315	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	316	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	317	result := javaFieldRef resolveStatic.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	318	expectedResult := (Java
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	319	classForName: 'stx.libjava.tests.mocks.PublicClass') staticFields
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	320	at: 3.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	321	self assertTrue: (result = expectedResult).
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	322
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	323	"Created: / 28-04-2011 / 22:00:52 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	324	! !
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	325
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	326	!JavaFieldRefTests methodsFor:'resolving tests'!
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	327
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	328	testCorrectInstanceCreation
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	329	\| javaClassRef initString javaFieldRef \|
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	330
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	331	initString := 'Ljava/lang/String;'.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	332	javaClassRef := JavaClassRef2 for: initString.
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	333	javaClassRef owner: (Java classForName: 'java.lang.Object').
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	334	javaFieldRef := JavaFieldRef2
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	335	namedAndTyped: (JavaNameAndType2 name: 'value' descriptor: '[C')
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	336	inClassIdentifiedByRef: javaClassRef.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	337	self assertTrue: (javaFieldRef isResolved not).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	338	self assertTrue: (javaFieldRef valueCache isNil).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	339	self assertTrue: (javaFieldRef name = 'value').
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	340	self assertTrue: (javaFieldRef descriptor = '[C').
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	341	self assertTrue: (javaFieldRef classRef name = 'Ljava/lang/String;').
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	342
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	343	"Created: / 08-04-2011 / 14:01:41 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	344	"Modified: / 11-04-2011 / 19:59:07 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	345	!
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	346
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	347	testCorrectResolving
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	348	\| javaClassRef initString javaFieldRef expectedResult result \|
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	349
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	350	initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	351	javaClassRef := JavaClassRef2 for: initString.
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	352	javaClassRef owner: (Java classForName: 'java.lang.Object').
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	353	javaFieldRef := JavaFieldRef2
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	354	namedAndTyped: (JavaNameAndType2 name: 'publicField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	355	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	356	inClassIdentifiedByRef: javaClassRef.
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	357	result := javaFieldRef resolve.
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	358	expectedResult := (Java classForName: 'stx.libjava.tests.mocks.PublicClass') fields at: 3.
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	359	self assertTrue: (result = expectedResult).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	360
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	361	"Created: / 08-04-2011 / 14:07:57 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	362	"Modified: / 14-04-2011 / 15:29:55 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	363	!
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	364
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	365	testInvalidation
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	366	\| javaClassRef javaFieldRef initString\|
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	367
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	368	initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	369	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	370	javaClassRef owner: (Java classForName: 'java.lang.Object').
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	371	javaFieldRef := JavaFieldRef2
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	372	namedAndTyped: (JavaNameAndType2 name: 'publicField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	373	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	374	inClassIdentifiedByRef: javaClassRef.
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	375	self assertTrue: (javaFieldRef isResolved not).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	376	javaFieldRef resolve.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	377	self assertTrue: (javaFieldRef isResolved).
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	378	self assertTrue: (javaFieldRef classRef isResolved).
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	379	javaFieldRef invalidate.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	380	self assertTrue: (javaFieldRef isResolved not).
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	381	self assertTrue: (javaFieldRef classRef isResolved not).
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	382
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	383	"Created: / 08-04-2011 / 14:09:06 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	384	"Modified: / 14-04-2011 / 15:30:20 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	385	!
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	386
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	387	testInvalidationForClassNegative
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	388	\| javaClassRef javaFieldRef initString \|
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	389
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	390	initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	391	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	392	javaClassRef owner: (Java classForName: 'java.lang.Object').
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	393	javaFieldRef := JavaFieldRef2
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	394	namedAndTyped: (JavaNameAndType2 name: 'publicField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	395	descriptor: 'Ljava/lang/String;')
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	396	inClassIdentifiedByRef: javaClassRef.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	397	self assertTrue: (javaFieldRef isResolved not).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	398	javaFieldRef resolve.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	399	self assertTrue: (javaFieldRef isResolved).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	400	javaFieldRef invalidateForClass: 'Ljava/lang/Object;'.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	401	self assertTrue: (javaFieldRef isResolved).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	402
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	403	"Created: / 08-04-2011 / 16:23:06 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	404	"Modified: / 14-04-2011 / 15:30:33 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	405	!
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	406
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	407	testInvalidationForClassPositive
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	408	\| javaClassRef javaFieldRef initString \|
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	409
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	410	initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	411	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	412	javaClassRef owner: (Java classForName: 'java.lang.Object').
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	413	javaFieldRef := JavaFieldRef2
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	414	namedAndTyped: (JavaNameAndType2 name: 'publicField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	415	descriptor: 'Ljava/lang/String;')
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	416	inClassIdentifiedByRef: javaClassRef.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	417	self assertTrue: (javaFieldRef isResolved not).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	418	javaFieldRef resolve.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	419	self assertTrue: (javaFieldRef isResolved).
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	420	javaFieldRef invalidateForClass: 'Lstx/libjava/tests/mocks/PublicClass;'.
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	421	self assertTrue: (javaFieldRef isResolved not).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	422
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	423	"Created: / 08-04-2011 / 16:23:19 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	424	"Modified: / 14-04-2011 / 15:31:07 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	425	!
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	426
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	427	testResolving
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	428	\| javaClassRef javaFieldRef initString\|
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	429
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	430	initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	431	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	432	javaClassRef owner: (Java classForName: 'java.lang.Object').
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	433	javaFieldRef := JavaFieldRef2
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	434	namedAndTyped: (JavaNameAndType2 name: 'publicField'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	435	descriptor: 'Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	436	inClassIdentifiedByRef: javaClassRef.
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	437	self assertTrue: (javaFieldRef isResolved not).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	438	javaFieldRef resolve.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	439	self assertTrue: (javaClassRef isResolved).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	440	self assertTrue: (javaFieldRef isResolved).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	441
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	442	"Created: / 08-04-2011 / 14:04:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	443	"Modified: / 14-04-2011 / 15:30:47 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	444	! !
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	445
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	446	!JavaFieldRefTests class methodsFor:'documentation'!
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	447
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	448	version_SVN
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	449	^ '$Id$'
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	450	! !

author	vranyj1
	Sat, 07 May 2011 21:03:55 +0000
branch	jk_new_structure
changeset 764	3c1d3f2d29a5
parent 761	43e017ec7958
child 771	fb8026dda011
permissions	-rw-r--r--