Index: vhUnitTest/Tools/Mock/MockClassBase/VerwachtMethodCall/Test.cls.xml
===================================================================
diff -u -r1474 -r1842
--- vhUnitTest/Tools/Mock/MockClassBase/VerwachtMethodCall/Test.cls.xml	(.../Test.cls.xml)	(revision 1474)
+++ vhUnitTest/Tools/Mock/MockClassBase/VerwachtMethodCall/Test.cls.xml	(.../Test.cls.xml)	(revision 1842)
@@ -8,7 +8,7 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Verifieer terwijl er niks verwacht is.")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.IllegalUsageException",Substrings))
 	
-	set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.BasisMock).%New()
 	do Mock.IndienMethodCall("Methode")
 	do Mock.Methode()
 	do Mock.Verifieer()
@@ -17,7 +17,7 @@
 
 <Method name="TestMethodeAangeroepenxxxVerifieerVerwachtMethodeAanroep">
 <Implementation><![CDATA[
-	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.BasisMock).%New()
 	Do Mock.VerwachtMethodCall("Methode")
 	Do Mock.Methode()
 	Do Mock.Verifieer()
@@ -26,7 +26,7 @@
 
 <Method name="Test &apos;Indien..&apos; en &apos;Verwacht..&apos; gedefinieerd en verwachte methode is opgeroepen --&gt; Geen Exceptie">
 <Implementation><![CDATA[
-	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.BasisMock).%New()
 	Do Mock.IndienMethodCall("DummyMethode")
 	Do Mock.VerwachtMethodCall("Methode")
 	Do Mock.Methode()
@@ -39,15 +39,15 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Methodcall 'Methode()' is niet opgeroepen.")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
 
-	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.BasisMock).%New()
 	Do Mock.VerwachtMethodCall("Methode")
 	Do Mock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="TestMethode2KeerAangeroepenxxxVerifieerVerwachteMethode2KeerAangeroepen">
 <Implementation><![CDATA[
-	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.BasisMock).%New()
 	Do Mock.VerwachtMethodCall("Methode").ExactAantalKeer(2)
 	Do Mock.Methode()
 	Do Mock.Methode()
@@ -60,7 +60,7 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Methodcall 'Methode()' is 1 keer opgeroepen, er was 2 keer verwacht")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
 
-	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.BasisMock).%New()
 	Do Mock.VerwachtMethodCall("Methode").ExactAantalKeer(2)
 	Do Mock.Methode()
 	Do Mock.Verifieer()
@@ -72,7 +72,7 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Methodcall 'Methode()' is 2 keer opgeroepen, er was 1 keer verwacht")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
 
-	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.BasisMock).%New()
 	Do Mock.VerwachtMethodCall("Methode").ExactAantalKeer(1)
 	Do Mock.Methode()
 	Do Mock.Methode()
@@ -85,7 +85,7 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Methodcall 'MethodeMetParameter(A)' is 0 keer opgeroepen, er was 1 keer verwacht")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
 
-	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.BasisMock).%New()
 	Do Mock.VerwachtMethodCall("MethodeMetParameter","A").ExactAantalKeer(1)
 	Do Mock.VerwachtMethodCall("MethodeMetParameter","B").ExactAantalKeer(1)
 	Do Mock.MethodeMetParameter("B")
@@ -95,7 +95,7 @@
 
 <Method name="TestMethodeNietAangeroepenxxxVerifieerVerwachteMethodeNietAangeroepen">
 <Implementation><![CDATA[
-	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.BasisMock).%New()
 	Do Mock.VerwachtMethodCall("Methode").ExactAantalKeer(0)
 	Do Mock.Verifieer()
 ]]></Implementation>
@@ -106,7 +106,7 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Methodcall 'Methode()' is 1 keer opgeroepen, er was 0 keer verwacht")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
 
-	set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.BasisMock).%New()
 	do Mock.VerwachtMethodCall("Methode").ExactAantalKeer(0)
 	do Mock.Methode()
 	
@@ -116,10 +116,10 @@
 
 <Method name="Test: verwacht method call, verifieer niet opgeroepen --&gt; Exceptie">
 <Implementation><![CDATA[
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Verwacht methodcall gebruikt zonder verificatie, 'vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock'")
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Verwacht methodcall gebruikt zonder verificatie, 'vhUnitTest.Tools.Mock.MockClassBase.BasisMock'")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.IllegalUsageException",Substrings))
 
-	set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.BasisMock).%New()
 	do Mock.VerwachtMethodCall("Methode").ExactAantalKeer(0)
 	do Mock.Methode()
 ]]></Implementation>
Index: vhUnitTest/Tools/Mock/MockClassBase/BasisMock.cls.xml
===================================================================
diff -u -r957 -r1842
--- vhUnitTest/Tools/Mock/MockClassBase/BasisMock.cls.xml	(.../VerwachtMethodCall/BasisMock.cls.xml)	(revision 957)
+++ vhUnitTest/Tools/Mock/MockClassBase/BasisMock.cls.xml	(.../BasisMock.cls.xml)	(revision 1842)
@@ -1,13 +1,26 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock">
+<Class name="vhUnitTest.Tools.Mock.MockClassBase.BasisMock">
 <Super>Tools.Mock.MockClassBase</Super>
 
 <Method name="Methode">
 <Implementation><![CDATA[	Do ..VerwerkMethodCall("Methode")
 ]]></Implementation>
 </Method>
 
+<Method name="Functie">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Functie")
+]]></Implementation>
+</Method>
+
+<Method name="FunctieMetParameter">
+<FormalSpec>Param:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("FunctieMetParameter",Param)
+]]></Implementation>
+</Method>
+
 <Method name="MethodeMetParameter">
 <FormalSpec>Param:%String</FormalSpec>
 <Implementation><![CDATA[	Do ..VerwerkMethodCall("MethodeMetParameter",Param)
FishEye: Tag 1842 refers to a dead (removed) revision in file `vhUnitTest/Tools/Mock/MockClassBase/VerwachtMethodCall/BasisMock.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: Tools/Mock/MockClassBase.cls.xml
===================================================================
diff -u -r1805 -r1842
--- Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 1805)
+++ Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 1842)
@@ -26,15 +26,48 @@
 <FormalSpec>MethodNaam:%String,VerwachteParameterWaarden...:%String</FormalSpec>
 <ReturnType>Tools.Mock.MethodCallStub</ReturnType>
 <Implementation><![CDATA[
-	Set MethodCallStub = ##class(Tools.Mock.MethodCallStub).%New($this)
-	Do MethodCallStub.ZetMethodNaam( MethodNaam )
 	#dim VerwachteParameterWaardenList As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .VerwachteParameterWaarden )		
-	Do MethodCallStub.ZetParameters( VerwachteParameterWaardenList )
-	Do ..MethodCallStubs.Insert( MethodCallStub )
+	
+	#dim MethodCallStub As Tools.Mock.MethodCallStub = ..FindMethodCall(MethodNaam,VerwachteParameterWaardenList)
+	if $IsObject(MethodCallStub) {
+		do:( MethodCallStub.IsVerwacht() ) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("VerwachtMethodCall '"_MethodNaam_"' mag niet overschreven worden."))
+	} else {
+		Set MethodCallStub = ##class(Tools.Mock.MethodCallStub).%New($this)
+		Do MethodCallStub.ZetMethodNaam( MethodNaam )
+		Do MethodCallStub.ZetParameters( VerwachteParameterWaardenList )
+		Do ..MethodCallStubs.Insert( MethodCallStub )
+	}
 	Quit MethodCallStub
 ]]></Implementation>
 </Method>
 
+<Method name="FindMethodCall">
+<FormalSpec>MethodNaam:%String,VerwachteParameterWaardenList:%ListOfDataTypes</FormalSpec>
+<ReturnType>Tools.Mock.MethodCallStub</ReturnType>
+<Implementation><![CDATA[
+	#Dim FoundMethodCall As Tools.Mock.MethodCallStub = ""
+	#Dim MethodCallHash As %String = ..GeefHash(MethodNaam, VerwachteParameterWaardenList)
+	#Dim Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..MethodCallStubs)
+	
+	While (Iterator.HasNext() && (FoundMethodCall = "")) {
+		#Dim MethodCall As Tools.Mock.MethodCallStub = Iterator.Next()
+		#Dim IteratedMethodCallHash As %String = ..GeefHash(MethodCall.GeefMethodNaam(), MethodCall.GeefVerwachteParameters())
+		Set:(MethodCallHash = IteratedMethodCallHash) FoundMethodCall = MethodCall	
+	}
+	
+	Quit FoundMethodCall
+]]></Implementation>
+</Method>
+
+<Method name="GeefHash">
+<FormalSpec>MethodNaam:%String,VerwachteParameterWaardenList:%ListOfDataTypes</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Code As %String = MethodNaam _ "_" _##class(TECH.ListUtils).ListToPieces(VerwachteParameterWaardenList,",")
+	quit $system.Encryption.SHA1Hash(Code)
+]]></Implementation>
+</Method>
+
 <Method name="VerwachtMethodCall">
 <Description>
 Aan te roepen door de unit test.</Description>
Index: vhUnitTest/Tools/Mock/MockClassBase/MethodCallOverride/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/Mock/MockClassBase/MethodCallOverride/Test.cls.xml	(revision 0)
+++ vhUnitTest/Tools/Mock/MockClassBase/MethodCallOverride/Test.cls.xml	(revision 1842)
@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.Mock.MockClassBase.MethodCallOverride.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Mock">
+<Type>vhUnitTest.Tools.Mock.MockClassBase.BasisMock</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.BasisMock).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: IndienMethod twee maal metzelfde parameters dan worden method call overschreven">
+<Implementation><![CDATA[
+	Do ..Mock.IndienMethodCall("FunctieMetParameter",1).DanReturn("A")
+	Do ..Mock.IndienMethodCall("FunctieMetParameter",1).DanReturn("B")
+	
+	Do $$$AssertEquals("B", ..Mock.FunctieMetParameter(1))
+]]></Implementation>
+</Method>
+
+<Method name="Test: IndienMethodCall gebruikt met verschillende parameters worden return waarden niet overschreven">
+<Implementation><![CDATA[
+	Do ..Mock.IndienMethodCall("FunctieMetParameter",1).DanReturn("A")
+	Do ..Mock.IndienMethodCall("FunctieMetParameter",2).DanReturn("B")
+	
+	Do $$$AssertEquals("A", ..Mock.FunctieMetParameter(1))
+	Do $$$AssertEquals("B", ..Mock.FunctieMetParameter(2))
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerwachtMethodCall gebruikt met verschillende parameters worden return waarden niet overschreven">
+<Implementation><![CDATA[
+	Do ..Mock.VerwachtMethodCall("FunctieMetParameter",1).DanReturn("A")
+	Do ..Mock.VerwachtMethodCall("FunctieMetParameter",2).DanReturn("B")
+	
+	Do $$$AssertEquals("A", ..Mock.FunctieMetParameter(1))
+	Do $$$AssertEquals("B", ..Mock.FunctieMetParameter(2))
+	
+	Do ..Mock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerwachtMethodCall mag niet overschreven worden door IndienMethodCall">
+<Implementation><![CDATA[
+	Do ..Mock.VerwachtMethodCall("Functie").DanReturn("A")
+	try {
+		Do ..Mock.IndienMethodCall("Functie").DanReturn("A")
+		Do ..Fail("Er was een exceptie verwacht")
+	} catch {
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals(Exceptie.GeefOmschrijving(),"VerwachtMethodCall '"_"Functie"_"' mag niet overschreven worden.")
+	}
+
+	Do ..Mock.Functie()
+	Do ..Mock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerwachtMethodCall mag niet overschreven worden door VerwachtMethodCall">
+<Implementation><![CDATA[
+	Do ..Mock.VerwachtMethodCall("Functie").DanReturn("A")
+	try {
+		Do ..Mock.VerwachtMethodCall("Functie").DanReturn("A")
+		Do ..Fail("Er was een exceptie verwacht")
+	} catch {
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		do $$$AssertEquals(Exceptie.GeefOmschrijving(),"VerwachtMethodCall '"_"Functie"_"' mag niet overschreven worden.")
+	}
+
+	Do ..Mock.Functie()
+	Do ..Mock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerwachtMethodCall kan IndienMethodCall overschrijven">
+<Implementation><![CDATA[
+	do ..Mock.IndienMethodCall("FunctieMetParameter",1).DanReturn("A")
+	do $$$AssertEquals("A", ..Mock.FunctieMetParameter(1))
+	
+	do ..Mock.VerwachtMethodCall("FunctieMetParameter",1).DanReturn("B")
+	do $$$AssertEquals("B", ..Mock.FunctieMetParameter(1))
+	
+	do ..Mock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>