src/JavaRefMock.st
author vranyj1
Sat, 07 May 2011 21:03:55 +0000
branchjk_new_structure
changeset 764 3c1d3f2d29a5
parent 761 43e017ec7958
child 877 f5a5b93e1c78
permissions -rw-r--r--
- stx_libjava class>>testSuite now contains also jUnit tests
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     1
"{ Package: 'stx:libjava' }"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     2
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     3
JavaRef2 subclass:#JavaRefMock
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     4
	instanceVariableNames:''
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     5
	classVariableNames:''
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     6
	poolDictionaries:''
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     7
	category:'Languages-Java-Tests-RuntimeConstantPool'
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     8
!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     9
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    10
758
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    11
!JavaRefMock methodsFor:'accessing'!
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    12
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    13
name
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    14
    "superclass JavaRef2 says that I am responsible to implement this method"
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    15
    
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    16
    ^ 'mock name'
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    17
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    18
    "Modified: / 08-04-2011 / 16:15:38 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    19
! !
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    20
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    21
!JavaRefMock methodsFor:'comparing'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    22
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    23
= anotherJavaRef
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    24
    "superclass JavaRef2 says that I am responsible to implement this method"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    25
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    26
    ^ self shouldImplement
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    27
!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    28
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    29
hash
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    30
    "superclass JavaRef2 says that I am responsible to implement this method"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    31
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    32
    ^ self shouldImplement
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    33
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    34
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    35
!JavaRefMock methodsFor:'private - resolving'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    36
761
43e017ec7958 Merged with /branches/jk
vranyj1
parents: 758
diff changeset
    37
findResolvedStaticValue
43e017ec7958 Merged with /branches/jk
vranyj1
parents: 758
diff changeset
    38
    "Resolve reference and set valueCache and isResolved."
43e017ec7958 Merged with /branches/jk
vranyj1
parents: 758
diff changeset
    39
    
43e017ec7958 Merged with /branches/jk
vranyj1
parents: 758
diff changeset
    40
    valueCache := 'static'.
43e017ec7958 Merged with /branches/jk
vranyj1
parents: 758
diff changeset
    41
43e017ec7958 Merged with /branches/jk
vranyj1
parents: 758
diff changeset
    42
    "Created: / 26-04-2011 / 13:20:05 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
43e017ec7958 Merged with /branches/jk
vranyj1
parents: 758
diff changeset
    43
!
43e017ec7958 Merged with /branches/jk
vranyj1
parents: 758
diff changeset
    44
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    45
findResolvedValue
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    46
    "Resolve reference and set valueCache and isResolved."
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    47
    
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    48
    valueCache := 'ok'.
758
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    49
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    50
    "Modified: / 08-04-2011 / 17:39:50 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    51
! !
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    52
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    53
!JavaRefMock methodsFor:'resolving'!
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    54
758
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    55
invalidateForClass: internalJavaClassName 
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    56
    "Invalidate (means call invalidate) reference if it has something to do with given class (e.g Class named internalJavaClassName was unloaded).
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    57
     Return true, if reference was invalidated."
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    58
    
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    59
    internalJavaClassName = 'mock' ifTrue: [self invalidate. ^ true] ifFalse: [^ false].
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    60
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
    61
    "Modified: / 08-04-2011 / 16:16:41 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    62
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    63
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    64
!JavaRefMock class methodsFor:'documentation'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    65
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    66
version_SVN
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    67
    ^ '$Id$'
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    68
! !