Index: vhUnitTest/Tools/Mock/MockClassBase/VerwachtMethodCall/Test.cls.xml
===================================================================
diff -u -r1007 -r1300
--- vhUnitTest/Tools/Mock/MockClassBase/VerwachtMethodCall/Test.cls.xml	(.../Test.cls.xml)	(revision 1007)
+++ vhUnitTest/Tools/Mock/MockClassBase/VerwachtMethodCall/Test.cls.xml	(.../Test.cls.xml)	(revision 1300)
@@ -3,12 +3,15 @@
 <Class name="vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="TestNietsIsVerwachtxxxVerifieerGeeftGeenFouten">
+<Method name="TestNietsIsVerwachtxxxVerifieerGeeftFouten">
 <Implementation><![CDATA[
-	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
-	Do Mock.IndienMethodCall("Methode")
-	Do Mock.Methode()
-	Do Mock.Verifieer()
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("verifieer terwijl er niks verwacht is.")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	
+	set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	do Mock.IndienMethodCall("Methode")
+	do Mock.Methode()
+	do Mock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -23,7 +26,6 @@
 
 <Method name="TestMethodeNietAangeroepenxxxVerifieerGeeftExceptie">
 <Implementation><![CDATA[
-	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Methodcall 'Methode()' is niet opgeroepen.")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
 
@@ -70,7 +72,7 @@
 
 <Method name="TestMethodeMetParamNietAangeroepenxxxVerifieerGeeftExceptie">
 <Implementation><![CDATA[
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Methodcall 'MethodeMetParameter(A)' is niet opgeroepen")
+	#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()
@@ -88,6 +90,19 @@
 	Do Mock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="TestMethodAangeroepenEnVerwachtMethodeNietAangeroepen --&gt; Exceptie">
+<Implementation><![CDATA[
+	#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()
+	do Mock.VerwachtMethodCall("Methode").ExactAantalKeer(0)
+	do Mock.Methode()
+	
+	do Mock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: Tools/Mock/MockClassBase.cls.xml
===================================================================
diff -u -r1158 -r1300
--- Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 1158)
+++ Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 1300)
@@ -36,7 +36,7 @@
 <ReturnType>Tools.Mock.MethodCallStub</ReturnType>
 <Implementation><![CDATA[
 	#dim MethodCallStub As Tools.Mock.MethodCallStub = ..IndienMethodCall( MethodNaam, VerwachteParameterWaarden...)
-	Do MethodCallStub.ZetIsVerwacht( 1 )
+	Do MethodCallStub.ZetIsVerwacht( $$$true )
 	Quit MethodCallStub
 ]]></Implementation>
 </Method>
@@ -84,9 +84,8 @@
 <Implementation><![CDATA[
 	Set MethodCallStubsIterator = ##class(TECH.ListIterator).%New( ..MethodCallStubs )
 	While MethodCallStubsIterator.HasNext() {
-		Set Verifieerder = ##class(Tools.Mock.MethodCallStubVerifieerder).%New(MethodCallStubsIterator.Next())
-		Do Verifieerder.ControlleerMethodeOpgeroepenZonderAantalCheck()
-		Do Verifieerder.ControlleerMethodeOpgeroepenMetAantalCheck()
+		Set Verifieerder = ##class(Tools.Mock.MethodCallStubVerifieerder).%New()
+		Do Verifieerder.Verifieer(MethodCallStubsIterator.Next())
 	}
 ]]></Implementation>
 </Method>
Index: Tools/Mock/MethodCallStubVerifieerder.cls.xml
===================================================================
diff -u -r839 -r1300
--- Tools/Mock/MethodCallStubVerifieerder.cls.xml	(.../MethodCallStubVerifieerder.cls.xml)	(revision 839)
+++ Tools/Mock/MethodCallStubVerifieerder.cls.xml	(.../MethodCallStubVerifieerder.cls.xml)	(revision 1300)
@@ -13,16 +13,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="IsOpgeroepenZonderAantalControle">
-<Type>%Boolean</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="IsOpgeroepenMetAantalControle">
-<Type>%Boolean</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="ExceptionBericht">
 <Type>%String</Type>
 <Private>1</Private>
@@ -38,37 +28,54 @@
 <Private>1</Private>
 </Property>
 
-<Method name="%OnNew">
+<Property name="MethodCallStub">
+<Type>Tools.Mock.MethodCallStub</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Verifieer">
 <FormalSpec>MethodCallStub:Tools.Mock.MethodCallStub</FormalSpec>
+<Implementation><![CDATA[
+	do ..Init(MethodCallStub)
+	
+	do:( '..MethodCallStub.IsAantalKeerVerwacht() ) ..ControlleerMethodeOpgeroepenZonderAantalCheck()
+	do:( ..MethodCallStub.IsAantalKeerVerwacht() ) ..ControlleerMethodeOpgeroepenMetAantalCheck()
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<FormalSpec>MethodCallStub:Tools.Mock.MethodCallStub</FormalSpec>
 <Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..MethodeNaam = MethodCallStub.GeefMethodNaam()
-	Set ..ParametersAlsString = ##class(TECH.ListUtils).ListToPieces(MethodCallStub.GeefVerwachteParameters())
-	Set ..IsOpgeroepenZonderAantalControle = ( 'MethodCallStub.IsOpgeroepen() ) && ( MethodCallStub.IsVerwacht() )
-	Set ..IsOpgeroepenMetAantalControle = ( 'MethodCallStub.IsExactAantalKeerOpgeroepen() ) && ( MethodCallStub.IsAantalKeerVerwacht() )
-	Set ..ExceptionBericht = "Methodcall '" _..MethodeNaam _ "(" _ ..ParametersAlsString _ ")' is "
+	set ..MethodCallStub = MethodCallStub
+	Set ..MethodeNaam = ..MethodCallStub.GeefMethodNaam()
+	if $$$Not(..MethodCallStub.IsVerwacht()) { 
+		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("MethodeNaam : verifieer terwijl er niks verwacht is.")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	Set ..ParametersAlsString = ##class(TECH.ListUtils).ListToPieces(..MethodCallStub.GeefVerwachteParameters())
 	Set ..AantalKeerOpgeroepen = MethodCallStub.GeefAantalKeerOpgeroepen()
 	Set ..VerwachtAantalKeerOpgeroepen = MethodCallStub.GeefVerwachtAantalKeerOpgeroepen()
-	Quit $$$OK
+	quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="ControlleerMethodeOpgeroepenZonderAantalCheck">
+<Private>1</Private>
 <Implementation><![CDATA[
-	If ..IsOpgeroepenZonderAantalControle {
-		Set ..ExceptionBericht = ..ExceptionBericht_"niet opgeroepen."_..%ClassName(1)
+	If ( '..MethodCallStub.IsOpgeroepen() ) && ( ..MethodCallStub.IsVerwacht() ) {
+		Set ..ExceptionBericht = "Methodcall '" _..MethodeNaam _ "(" _ ..ParametersAlsString _ ")' is niet opgeroepen."_..%ClassName(1)
 		Do ..ThrowException()
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="ControlleerMethodeOpgeroepenMetAantalCheck">
+<Private>1</Private>
 <Implementation><![CDATA[
-	If ..IsOpgeroepenMetAantalControle {
-		Set ..ExceptionBericht = ..ExceptionBericht_..AantalKeerOpgeroepen_" keer opgeroepen, er was "_..VerwachtAantalKeerOpgeroepen_" keer verwacht."_..%ClassName(1)
+	If ( '..MethodCallStub.IsExactAantalKeerOpgeroepen() ) && ( ..MethodCallStub.IsAantalKeerVerwacht() ) {
+		Set ..ExceptionBericht = "Methodcall '" _..MethodeNaam _ "(" _ ..ParametersAlsString _ ")' is "_..AantalKeerOpgeroepen_" keer opgeroepen, er was "_..VerwachtAantalKeerOpgeroepen_" keer verwacht."_..%ClassName(1)
 		Do ..ThrowException()
 	}
 ]]></Implementation>
Index: Tools/Mock/MethodCallStub.cls.xml
===================================================================
diff -u -r1185 -r1300
--- Tools/Mock/MethodCallStub.cls.xml	(.../MethodCallStub.cls.xml)	(revision 1185)
+++ Tools/Mock/MethodCallStub.cls.xml	(.../MethodCallStub.cls.xml)	(revision 1300)
@@ -96,9 +96,7 @@
 <Description>
 Verwacht dat deze method call AantalKeer wordt opgeroepen.</Description>
 <FormalSpec>AantalKeer:%Integer</FormalSpec>
-<Implementation><![CDATA[
-	Set:AantalKeer=0 ..IsVerwacht = $$$False
-	Set ..VerwachtAantalKeerOpgeroepen = AantalKeer
+<Implementation><![CDATA[	Set ..VerwachtAantalKeerOpgeroepen = AantalKeer
 ]]></Implementation>
 </Method>