diff --git a/Moose-Blueprint-Models/FamixJavaMethod.extension.st b/Moose-Blueprint-Models/FamixJavaMethod.extension.st index 2bd7773..1826794 100644 --- a/Moose-Blueprint-Models/FamixJavaMethod.extension.st +++ b/Moose-Blueprint-Models/FamixJavaMethod.extension.st @@ -70,12 +70,6 @@ FamixJavaMethod >> isExternal [ ^ self isPublic ] -{ #category : '*Moose-Blueprint-Models' } -FamixJavaMethod >> isInitializer [ - - ^ self isConstructor -] - { #category : '*Moose-Blueprint-Models' } FamixJavaMethod >> isInternal [ diff --git a/Moose-Blueprint-Models/FamixTMethod.extension.st b/Moose-Blueprint-Models/FamixTMethod.extension.st index 4ee1e1e..730c57e 100644 --- a/Moose-Blueprint-Models/FamixTMethod.extension.st +++ b/Moose-Blueprint-Models/FamixTMethod.extension.st @@ -157,12 +157,10 @@ FamixTMethod >> isTestInternalImplementation [ | invocationSources | self parentType isTestCase ifFalse: [ ^ false ]. - invocationSources := self incomingInvocations collect: [ :each | - each source ]. + invocationSources := self incomingInvocations collect: #source. - ^ (invocationSources isNotEmpty and: [ - invocationSources allSatisfy: [ :i | - i parentType = self parentType ] ]) or: [ self isTestInternal ] + ^ (invocationSources isNotEmpty and: [ invocationSources allSatisfy: [ :invocationSource | invocationSource parentType = self parentType ] ]) or: [ + self isTestInternal ] ] { #category : '*Moose-Blueprint-Models' }