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

author	hlopkmar
	Thu, 12 May 2011 14:28:39 +0000
branch	jk_new_structure
changeset 773	ff7dbe5581a3
parent 771	fb8026dda011
child 777	e6e61412ae43
permissions	-rw-r--r--