Added uninstall test

Author: jordanmontt

src/MethodProxies-Tests/MpMethodProxyTest.class.st

@@ -484,6 +484,25 @@ MpMethodProxyTest >> testUninstall [
 			self assert: (MpClassA compiledMethodAt: #methodOne) == method ]
 ]
 
+{ #category : 'tests - installation' }
+MpMethodProxyTest >> testUninstallMethodDict [
+
+	| mp method sendersSize |
+	[
+	sendersSize := MpClassA methodDict keys size.
+	method := MpClassA >> #methodOne.
+	mp := MpMethodProxy onMethod: method handler: self handlerClass new.
+	mp install.
+
+	self assert: MpClassA methodDict keys size equals: sendersSize + 1.
+	self assert: (MpClassA methodDict keys select: [ :selector | selector class = MpHiddenSelector ]) size equals: 1 ]
+		ensure: [
+			mp uninstall.
+
+			self assert: MpClassA methodDict keys size equals: sendersSize .
+			self assert: (MpClassA methodDict keys select: [ :selector | selector class = MpHiddenSelector ]) size equals: 0 ]
+]
+
 { #category : 'tests - installation' }
 MpMethodProxyTest >> testUninstallNestedInRightOrderIsOk [