Try to fix #250 + tests cleaning

Author: LabordePierre

src/Molecule-Tests/MolComponentFactoryTest.class.st

@@ -25,7 +25,7 @@ MolComponentFactoryTest >> cleanGeneratedClassesAndTraits [
 		edited := true.
 	].
 
-	edited ifTrue:[(Delay forMilliseconds: 100) wait].
+	edited ifTrue:[ 100 milliSeconds wait ].
 ]
 
 { #category : #running }
@@ -326,7 +326,7 @@ MolComponentFactoryTest >> testComponentContractChanged [
 
 ]
 
-{ #category : #'test - overload' }
+{ #category : #'tests - overload' }
 MolComponentFactoryTest >> testComponentContractImplGeneration [
 
 	| toFind |
@@ -353,7 +353,7 @@ MolComponentFactoryTest >> testComponentFactoryDefaultClass [
 	MolComponentFactory cleanUp.
 ]
 
-{ #category : #'test - component subclasses' }
+{ #category : #'tests - component subclasses' }
 MolComponentFactoryTest >> testComponentSubclassesTraitsUses [
 	"Test if the traits declaration are correctly injected into a component class hierarchy
 	We have 3 components : A, B and C which inherits one another.
@@ -414,7 +414,7 @@ MolComponentFactoryTest >> testComponentSubclassesTraitsUses [
 	MolTestComponentImplC setTraitComposition: #().
 ]
 
-{ #category : #'test - component subclasses' }
+{ #category : #'tests - component subclasses' }
 MolComponentFactoryTest >> testComponentSubclassesTraitsUses2 [
 
 	| type |
@@ -1329,7 +1329,7 @@ MolComponentFactoryTest >> testRebuildComponentAccessorsFor [
 	self assert: (MolCompleteComponentImpl selectors includes: #getMolUsedEventsSubscriber).
 ]
 
-{ #category : #'test - overload' }
+{ #category : #'tests - overload' }
 MolComponentFactoryTest >> testRemoveOverloadedConsumedEvents [
 	"Testing issue #210 fix"
 
@@ -1342,7 +1342,7 @@ MolComponentFactoryTest >> testRemoveOverloadedConsumedEvents [
 		do: [ :e | e signal ]
 ]
 
-{ #category : #'test - overload' }
+{ #category : #'tests - overload' }
 MolComponentFactoryTest >> testRemoveOverloadedProducedEvents [
 	"Testing issue #210 fix"
 
@@ -1355,7 +1355,7 @@ MolComponentFactoryTest >> testRemoveOverloadedProducedEvents [
 		do: [ :e | e signal ]
 ]
 
-{ #category : #'test - overload' }
+{ #category : #'tests - overload' }
 MolComponentFactoryTest >> testRemoveOverloadedProvidedParameters [
 	"Testing issue #210 fix"
 
@@ -1368,7 +1368,7 @@ MolComponentFactoryTest >> testRemoveOverloadedProvidedParameters [
 		do: [ :e | e signal ]
 ]
 
-{ #category : #'test - overload' }
+{ #category : #'tests - overload' }
 MolComponentFactoryTest >> testRemoveOverloadedProvidedServices [
 	"Testing issue #210 fix"
 
@@ -1381,7 +1381,7 @@ MolComponentFactoryTest >> testRemoveOverloadedProvidedServices [
 		do: [ :e | e signal ]
 ]
 
-{ #category : #'test - overload' }
+{ #category : #'tests - overload' }
 MolComponentFactoryTest >> testRemoveOverloadedUsedParameters [
 	"Testing issue #210 fix"
 
@@ -1394,7 +1394,7 @@ MolComponentFactoryTest >> testRemoveOverloadedUsedParameters [
 		do: [ :e | e signal ]
 ]
 
-{ #category : #'test - overload' }
+{ #category : #'tests - overload' }
 MolComponentFactoryTest >> testRemoveOverloadedUsedServices [
 	"Testing issue #210 fix"
 
@@ -1407,7 +1407,7 @@ MolComponentFactoryTest >> testRemoveOverloadedUsedServices [
 		do: [ :e | e signal ]
 ]
 
-{ #category : #'test - overload' }
+{ #category : #'tests - overload' }
 MolComponentFactoryTest >> testSubOverrideOfContractAddingProvidedServices [
 	"Related to issue #209, can override an overriden contract"
 
@@ -1459,7 +1459,7 @@ MolComponentFactoryTest >> testSubOverrideOfContractAddingProvidedServices [
 
 ]
 
-{ #category : #'test - overload' }
+{ #category : #'tests - overload' }
 MolComponentFactoryTest >> testSubOverrideOfContractAddingUsedServices [
 	"Related to issue #209, can override an overriden contract"
 

src/Molecule-Tests/MolDirtyComponentTest.class.st

@@ -31,16 +31,19 @@ MolDirtyComponentTest >> generationTag [
 { #category : #running }
 MolDirtyComponentTest >> setUp [
 
+	super setUp.
+
 	MolComponentManager cleanUp.
 	self cleanGeneratedClassesAndTraits.
 ]
 
 { #category : #running }
 MolDirtyComponentTest >> tearDown [
 
-	(Delay forMilliseconds: 10) wait.
 	self cleanGeneratedClassesAndTraits.
 	MolComponentManager cleanUp.
+	
+	super tearDown 
 ]
 
 { #category : #tests }

src/Molecule-Tests/MolLocatorServicesTest.class.st

@@ -73,7 +73,7 @@ MolLocatorServicesTest >> testNotReadySearchEventSubscriberFor [
 	self assert: (eventSubscriber observersConnection isEmpty).
 ]
 
-{ #category : #test }
+{ #category : #tests }
 MolLocatorServicesTest >> testSearchComponentTypeImplementorFor [
 
 	| manager component myComponent |
@@ -93,7 +93,7 @@ MolLocatorServicesTest >> testSearchComponentTypeImplementorFor [
 	self assert: component identicalTo: myComponent
 ]
 
-{ #category : #test }
+{ #category : #tests }
 MolLocatorServicesTest >> testSearchComponentTypeImplementorForNamed [
 
 	| manager component myComponent |

src/Molecule-Tests/MolUtilsTest.class.st

@@ -7,16 +7,20 @@ Class {
 	#category : #'Molecule-Tests-Cases'
 }
 
-{ #category : #tests }
+{ #category : #running }
 MolUtilsTest >> setUp [
 
+	super setUp.
+
 	MolComponentManager cleanUp
 ]
 
-{ #category : #tests }
+{ #category : #running }
 MolUtilsTest >> tearDown [
 
-	MolComponentManager cleanUp
+	MolComponentManager cleanUp.
+	
+	super tearDown 
 ]
 
 { #category : #tests }
@@ -58,7 +62,17 @@ MolUtilsTest >> testActivateComponents [
 { #category : #tests }
 MolUtilsTest >> testAllComponentImplementationClassesOfType [
 
-	self assert: (MolUtils allComponentImplementationClassesOfType: MolCompleteComponent) size equals: 7.
+	| nb |
+	nb := 0.
+	MolCompleteComponent users do:[ :e | 
+		e isComponentClass ifTrue:[
+			nb := nb + 1.
+			e allSubclassesDo: [ :f | f isComponentClass ifTrue:[ nb := nb + 1 ] ]
+		]. 
+	]. 
+
+	self assert: nb > 0.
+	self assert: (MolUtils allComponentImplementationClassesOfType: MolCompleteComponent) size equals: nb.
 ]
 
 { #category : #tests }