hg/stx-libjava: src/JavaInterfaceMethodRefTests.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:#JavaInterfaceMethodRefTests
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
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	11	!JavaInterfaceMethodRefTests methodsFor:'javaInterfaceMethodRef tests'!
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	12
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	13	testCorrectInstanceCreation
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	14	\| javaClassRef initString javaMethodRef \|
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	15
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	16	initString := 'Ljava/lang/Runnable;'.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	17	javaClassRef := JavaClassRef2 for: initString.
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	18	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	19	javaMethodRef := JavaInterfaceMethodRef2
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	20	namedAndTyped: (JavaNameAndType2 name: 'run' descriptor: '()V')
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	21	inClassIdentifiedByRef: javaClassRef.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	22	self assertTrue: (javaMethodRef isResolved not).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	23	self assertTrue: (javaMethodRef valueCache isNil).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	24	self assertTrue: (javaMethodRef name = 'run').
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	25	self assertTrue: (javaMethodRef descriptor = '()V').
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	26	self assertTrue: (javaMethodRef classRef name = 'Ljava/lang/Runnable;').
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	27
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	28	"Created: / 08-04-2011 / 14:01:41 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	29	"Modified: / 13-04-2011 / 12:17:46 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	30	!
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	31
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	32	testCorrectResolving
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	33	\| javaClassRef initString javaMethodRef expectedResult result \|
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	34
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	35	initString := 'Ljava/lang/Runnable;'.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	36	javaClassRef := JavaClassRef2 for: initString.
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	37	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	38	javaMethodRef := JavaInterfaceMethodRef2
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	39	namedAndTyped: (JavaNameAndType2 name: 'run' descriptor: '()V')
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	40	inClassIdentifiedByRef: javaClassRef.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	41	result := javaMethodRef resolve.
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	42	expectedResult := (Java classForName: 'java.lang.Runnable')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	43	methodDictionary at: #'run()V'.
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	44	self assertTrue: (result = expectedResult).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	45
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	46	"Created: / 08-04-2011 / 14:07:57 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	47	"Modified: / 13-04-2011 / 12:17:41 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	48	!
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	49
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	50	testInvalidation
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	51	\| javaClassRef javaMethodRef \|
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	52
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	53	javaClassRef := JavaClassRef2 for: 'Ljava/lang/Runnable;'.
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	54	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	55	javaMethodRef := JavaInterfaceMethodRef2
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	56	namedAndTyped: (JavaNameAndType2 name: 'run' descriptor: '()V')
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	57	inClassIdentifiedByRef: javaClassRef.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	58	self assertTrue: (javaMethodRef isResolved not).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	59	javaMethodRef resolve.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	60	self assertTrue: (javaMethodRef isResolved).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	61	self assertTrue: (javaClassRef isResolved).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	62	javaMethodRef invalidate.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	63	self assertTrue: (javaMethodRef isResolved not).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	64	self assertTrue: (javaClassRef isResolved not).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	65
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	66	"Created: / 08-04-2011 / 14:09:06 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	67	"Modified: / 13-04-2011 / 12:17:35 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	68	!
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	69
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	70	testInvalidationForClassNegative
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	71	\| javaClassRef javaMethodRef \|
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	72
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	73	javaClassRef := JavaClassRef2 for: 'Ljava/lang/Runnable;'.
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	74	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	75	javaMethodRef := JavaInterfaceMethodRef2
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	76	namedAndTyped: (JavaNameAndType2 name: 'run' descriptor: '()V')
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	77	inClassIdentifiedByRef: javaClassRef.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	78	self assertTrue: (javaMethodRef isResolved not).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	79	javaMethodRef resolve.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	80	self assertTrue: (javaMethodRef isResolved).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	81	self assertTrue: (javaClassRef isResolved).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	82	javaMethodRef invalidateForClass: 'Ljava/lang/Object;'.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	83	self assertTrue: (javaMethodRef isResolved).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	84	self assertTrue: (javaClassRef isResolved).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	85
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	86	"Created: / 08-04-2011 / 16:23:06 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	87	"Modified: / 13-04-2011 / 12:17:33 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	88	!
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	89
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	90	testInvalidationForClassPositive
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	91	\| javaClassRef javaMethodRef \|
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	92
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	93	javaClassRef := JavaClassRef2 for: 'Ljava/lang/Runnable;'.
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	94	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	95	javaMethodRef := JavaInterfaceMethodRef2
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	96	namedAndTyped: (JavaNameAndType2 name: 'run' descriptor: '()V')
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	97	inClassIdentifiedByRef: javaClassRef.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	98	self assertTrue: (javaMethodRef isResolved not).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	99	javaMethodRef resolve.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	100	self assertTrue: (javaMethodRef isResolved).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	101	self assertTrue: (javaClassRef isResolved).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	102	javaMethodRef invalidateForClass: 'Ljava/lang/Runnable;'.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	103	self assertTrue: (javaMethodRef isResolved not).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	104	self assertTrue: (javaClassRef isResolved not).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	105
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	106	"Created: / 08-04-2011 / 16:23:19 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	107	"Modified: / 13-04-2011 / 12:17:30 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	108	!
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	109
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	110	testResolving
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	111	\| javaClassRef javaMethodRef \|
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	112
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	113	javaClassRef := JavaClassRef2 for: 'Ljava/lang/Runnable;'.
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	114	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	115	javaMethodRef := JavaInterfaceMethodRef2
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	116	namedAndTyped: (JavaNameAndType2 name: 'run' descriptor: '()V')
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	117	inClassIdentifiedByRef: javaClassRef.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	118	self assertTrue: (javaMethodRef isResolved not).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	119	javaMethodRef resolve.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	120	self assertTrue: (javaClassRef isResolved).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	121	self assertTrue: (javaMethodRef isResolved).
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	122
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	123	"Created: / 08-04-2011 / 14:04:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
761 43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	124	"Modified: / 13-04-2011 / 12:17:24 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	125	! !
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	126
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	127	!JavaInterfaceMethodRefTests methodsFor:'permission tests'!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	128
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	129	testAccessingPrivateFromOutside
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	130	\| javaClassRef javaMethodRef initString throwedException \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	131
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	132	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	133
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	134	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	135	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	136	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	137	javaMethodRef := JavaMethodRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	138	namedAndTyped: (JavaNameAndType2 name: 'privateMethod'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	139	descriptor: '()Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	140	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	141	javaMethodRef resolve. ] on: Error
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	142	do: [:e \| throwedException := e ].
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	143	self assertTrue: (throwedException notNil
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	144	and: [ throwedException messageText = 'IllegalAccessError' ]).
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	145	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	146
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	147	"Created: / 13-04-2011 / 14:44:48 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	148	"Modified: / 13-04-2011 / 23:09:19 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	149	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	150
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	151	testAccessingPrivateFromOutsideInNonPublic
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	152	\| javaClassRef javaMethodRef initString throwedException \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	153
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	154	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	155
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	156	[ initString := 'Lstx/libjava/tests/mocks/NonPublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	157	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	158	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	159	javaMethodRef := JavaMethodRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	160	namedAndTyped: (JavaNameAndType2 name: 'privateMethod'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	161	descriptor: '()Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	162	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	163	javaMethodRef resolve. ] on: Error
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	164	do: [:e \| throwedException := e ].
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	165	self assertTrue: (throwedException notNil
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	166	and: [ throwedException messageText = 'IllegalAccessError' ]).
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	167	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	168
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	169	"Created: / 13-04-2011 / 14:47:44 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	170	"Modified: / 14-04-2011 / 14:11:08 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	171	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	172
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	173	testAccessingPrivateFromSubclass
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	174	\| javaClassRef javaMethodRef initString throwedException \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	175
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	176	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	177
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	178	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	179	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	180	javaClassRef owner: (Java classForName: 'java.lang.SubclassOfPublicClass').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	181	javaMethodRef := JavaMethodRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	182	namedAndTyped: (JavaNameAndType2 name: 'privateMethod'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	183	descriptor: '()Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	184	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	185	javaMethodRef resolve. ] on: Error
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	186	do: [:e \| throwedException := e ].
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	187	self assertTrue: (throwedException notNil
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	188	and: [ throwedException messageText = 'IllegalAccessError' ]).
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	189	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	190
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	191	"Created: / 13-04-2011 / 14:49:32 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	192	"Modified: / 14-04-2011 / 00:03:40 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	193	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	194
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	195	testAccessingProtectedFromOutside
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	196	\| javaClassRef javaMethodRef initString throwedException \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	197
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	198	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	199
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	200	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	201	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	202	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	203	javaMethodRef := JavaMethodRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	204	namedAndTyped: (JavaNameAndType2 name: 'protectedMethod'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	205	descriptor: '()Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	206	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	207	javaMethodRef resolve. ] on: Error
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	208	do: [:e \| throwedException := e ].
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	209	self assertTrue: (throwedException notNil
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	210	and: [ throwedException messageText = 'IllegalAccessError' ]).
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	211	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	212
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	213	"Created: / 13-04-2011 / 14:44:48 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	214	"Modified: / 14-04-2011 / 14:12:31 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	215	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	216
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	217	testAccessingProtectedFromOutsideInNonPublic
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	218	\| javaClassRef javaMethodRef initString throwedException \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	219
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	220	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	221
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	222	[ initString := 'Lstx/libjava/tests/mocks/NonPublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	223	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	224	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	225	javaMethodRef := JavaMethodRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	226	namedAndTyped: (JavaNameAndType2 name: 'protectedMethod'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	227	descriptor: '()Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	228	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	229	javaMethodRef resolve. ] on: Error
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	230	do: [:e \| throwedException := e ].
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	231	self assertTrue: (throwedException notNil
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	232	and: [ throwedException messageText = 'IllegalAccessError' ]).
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	233	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	234
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	235	"Created: / 13-04-2011 / 14:47:54 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	236	"Modified: / 14-04-2011 / 14:11:15 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	237	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	238
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	239	testAccessingProtectedFromSubclass
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	240	\| javaClassRef javaMethodRef initString throwedException \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	241
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	242	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	243
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	244	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	245	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	246	javaClassRef owner: (Java classForName: 'stx.libjava.tests.mocks.SubclassOfPublicClass').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	247	javaMethodRef := JavaMethodRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	248	namedAndTyped: (JavaNameAndType2 name: 'protectedMethod'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	249	descriptor: '()Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	250	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	251	javaMethodRef resolve. ] on: Error
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	252	do: [:e \| throwedException := e ].
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	253	self assertTrue: (throwedException isNil).
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	254	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	255
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	256	"Created: / 13-04-2011 / 14:49:23 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	257	"Modified: / 13-04-2011 / 23:18:36 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	258	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	259
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	260	testAccessingPublic
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	261	\| javaClassRef javaMethodRef initString \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	262
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	263	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	264	self shouldnt:
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	265	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	266	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	267	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	268	javaMethodRef := JavaMethodRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	269	namedAndTyped: (JavaNameAndType2 name: 'publicMethod' descriptor: '()Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	270	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	271	javaMethodRef resolve.]
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	272	raise: Error.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	273	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	274
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	275	"Created: / 13-04-2011 / 14:44:13 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	276	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	277
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	278	testAccessingPublicFromOutside
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	279	\| javaClassRef javaMethodRef initString \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	280
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	281	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	282	self shouldnt:
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	283	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	284	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	285	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	286	javaMethodRef := JavaMethodRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	287	namedAndTyped: (JavaNameAndType2 name: 'publicMethod'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	288	descriptor: '()Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	289	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	290	javaMethodRef resolve. ]
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	291	raise: Error.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	292	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	293
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	294	"Created: / 13-04-2011 / 14:44:31 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	295	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	296
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	297	testAccessingPublicFromOutsideInNonPublic
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	298	\| javaClassRef javaMethodRef initString throwedException \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	299
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	300	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	301
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	302	[ initString := 'Lstx/libjava/tests/mocks/NonPublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	303	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	304	javaClassRef owner: (Java classForName: 'java.lang.Object').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	305	javaMethodRef := JavaMethodRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	306	namedAndTyped: (JavaNameAndType2 name: 'publicMethod'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	307	descriptor: '()Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	308	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	309	javaMethodRef resolve. ] on: Error
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	310	do: [:e \| throwedException := e ].
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	311	self assertTrue: (throwedException notNil and:[throwedException messageText = 'IllegalAccessError']).
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	312	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	313
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	314	"Created: / 13-04-2011 / 14:48:05 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	315	"Modified: / 13-04-2011 / 23:04:57 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	316	!
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	317
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	318	testAccessingPublicFromSubclass
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	319	\| javaClassRef javaMethodRef initString throwedException \|
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	320
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	321	self enableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	322
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	323	[ initString := 'Lstx/libjava/tests/mocks/PublicClass;'.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	324	javaClassRef := JavaClassRef2 for: initString.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	325	javaClassRef owner: (Java classForName: 'java.lang.SubclassOfPublicClass').
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	326	javaMethodRef := JavaMethodRef2
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	327	namedAndTyped: (JavaNameAndType2 name: 'publicMethod'
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	328	descriptor: '()Ljava/lang/String;')
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	329	inClassIdentifiedByRef: javaClassRef.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	330	javaMethodRef resolve. ] on: Error
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	331	do: [:e \| throwedException := e ].
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	332	self assertTrue: (throwedException isNil ).
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	333	self disableMockedExceptionThrowing.
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	334
43e017ec7958 Merged with /branches/jk vranyj1 parents: 758 diff changeset	335	"Created: / 13-04-2011 / 14:49:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	336	! !
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	337
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	338	!JavaInterfaceMethodRefTests class methodsFor:'documentation'!
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	339
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	340	version_SVN
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	341	^ '$Id$'
be8e84381ce0 Merged with /branches/jk vranyj1 parents: diff changeset	342	! !

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--