Merge pull request #701 from moosetechnology/merge-storages

Merge Moose storages

Author: jecisc

src/Moose-Core-Tests/MooseAbstractGroupTest.class.st

@@ -120,24 +120,6 @@ MooseAbstractGroupTest >> testAllWithType [
 	self assertEmpty: (group allWithType: Object)
 ]
 
-{ #category : #tests }
-MooseAbstractGroupTest >> testAllWithTypeAtRuntime [
-	group addAll: {FamixTest3Class new . FamixTest3Method new}.
-	group entityStorage forRuntime.
-	self assert: (group allWithType: FamixTest3Class) size equals: 1.
-	self assert: (group allWithType: FamixTest3Method) size equals: 1.
-	self assertEmpty: (group allWithType: FamixTest3Invocation)
-]
-
-{ #category : #tests }
-MooseAbstractGroupTest >> testAllWithTypeAtSetup [
-	group addAll: {FamixTest3Class new . FamixTest3Method new}.
-	group entityStorage forSetup.
-	self assert: (group allWithType: FamixTest3Class) size equals: 1.
-	self assert: (group allWithType: FamixTest3Method) size equals: 1.
-	self assertEmpty: (group allWithType: FamixTest3Invocation)
-]
-
 { #category : #tests }
 MooseAbstractGroupTest >> testAllWithTypeThenAllWithSubTypesOf [
 	group addAll: {FamixTest3Class new . FamixTest3Type new}.

src/Moose-Core-Tests/MooseGroupTest.class.st

@@ -30,11 +30,6 @@ MooseGroupTest >> testAsMooseGroupWithClasses [
 	self assert: group anyOne equals: Object
 ]
 
-{ #category : #tests }
-MooseGroupTest >> testDefaultStorage [
-	self assert: (group entityStorage isKindOf: MooseGroupRuntimeStorage)
-]
-
 { #category : #tests }
 MooseGroupTest >> testDefaultStorageIterator [
 	self assert: group entityStorage iterator class equals: IteratorWithCollectionAPI

src/Moose-Core/MooseAbstractGroup.class.st

@@ -485,7 +485,7 @@ MooseAbstractGroup >> initialize [
 MooseAbstractGroup >> initializeWithAll: aCollection [
 
 	self initialize.
-	storage := MooseGroupRuntimeStorage new: aCollection size.
+	storage := MooseGroupStorage new: aCollection size.
 	self addAll: aCollection
 ]