Update test to check if the "dirty type" is realy dirty + works after Pharo 11 patch

Molecule-Tests/MolDirtyComponentTest.class.st

@@ -42,3 +42,41 @@ MolDirtyComponentTest >> tearDown [
 	self cleanGeneratedClassesAndTraits.
 	MolComponentManager cleanUp.
 ]
+
+{ #category : #tests }
+MolDirtyComponentTest >> testDirtyTypeWithInstanceVariableInsteadOfComponentTraits [
+
+	"Create a component using a dirty Type"
+	| component |
+	MolComponentFactory createComponentForType: MolDirtyType named: self generatedDirtyTypeImplementationSymbol in: self generationTag.
+	component := self class environment at: self generatedDirtyTypeImplementationSymbol.
+
+	"Check if the ComponentType is dirty"
+	self assert: MolDirtyType producedComponentEvents size equals: 1.
+	self assert: MolDirtyType producedComponentEvents first equals: nil.
+	self assert: MolDirtyType consumedComponentEvents size equals: 1.
+	self assert: MolDirtyType consumedComponentEvents first equals: nil.
+	self assert: MolDirtyType providedComponentParameters size equals: 1.
+	self assert: MolDirtyType providedComponentParameters first equals: nil.
+	self assert: MolDirtyType providedComponentServices size equals: 1.
+	self assert: MolDirtyType providedComponentServices first equals: nil.
+	self assert: MolDirtyType usedComponentParameters size equals: 1.
+	self assert: MolDirtyType usedComponentParameters first equals: nil.
+	self assert: MolDirtyType usedComponentServices size equals: 1.
+	self assert: MolDirtyType usedComponentServices first equals: nil.
+	self assert: (MolDirtyType class slotNames first) equals: #anInstanceVariable.
+
+	"Check no generation of non necessary methods"
+	self deny: (component methodDictionary includesKey: #getnilSubscriber). 
+	self deny: (component methodDictionary includesKey: #getnilNotifier). 
+	self deny: (component methodDictionary includesKey: #getnilProvider).
+
+	"Check that the contract is empty despite class side var in the all contract interfaces"
+	self assert: component allConsumedEvents isEmpty.
+	self assert: component allProducedEvents isEmpty.
+	self assert: component allProvidedServices isEmpty.
+	self assert: component allUsedServices isEmpty.
+	self assert: component allProvidedParameters isEmpty.
+	self assert: component allUsedParameters isEmpty.
+
+]

Molecule-Tests/MolDirtyType.trait.st

@@ -0,0 +1,49 @@
+"
+This Type have a wrong writted contract with variables instead of Traits
+"
+Trait {
+	#name : #MolDirtyType,
+	#classInstVars : [
+		'anInstanceVariable'
+	],
+	#traits : 'MolComponentType',
+	#classTraits : 'MolComponentType classTrait',
+	#category : #'Molecule-Tests-Resources - Contracts'
+}
+
+{ #category : #'accessing - events' }
+MolDirtyType classSide >> consumedComponentEvents [
+
+	<componentContract>
+	^ { anInstanceVariable }
+]
+
+{ #category : #'accessing - events' }
+MolDirtyType classSide >> producedComponentEvents [
+	<componentContract>
+	^ {anInstanceVariable} 
+]
+
+{ #category : #'accessing - parameters' }
+MolDirtyType classSide >> providedComponentParameters [
+	<componentContract>
+	^ {anInstanceVariable} 
+]
+
+{ #category : #'accessing - services' }
+MolDirtyType classSide >> providedComponentServices [
+	<componentContract>
+	^ {anInstanceVariable} 
+]
+
+{ #category : #'accessing - parameters' }
+MolDirtyType classSide >> usedComponentParameters [
+	<componentContract>
+	^ {anInstanceVariable} 
+]
+
+{ #category : #'accessing - services' }
+MolDirtyType classSide >> usedComponentServices [
+	<componentContract>
+	^ {anInstanceVariable}
+]