Index: Tools/Mock/MockClassBase.cls.xml
===================================================================
diff -u -r1300 -r1302
--- Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 1300)
+++ Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 1302)
@@ -14,6 +14,12 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IsMethodCallVerwacht">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
 <Method name="IndienMethodCall">
 <Description>
 Aan te roepen door de unit test, om een method te stubben.</Description>
@@ -36,7 +42,10 @@
 <ReturnType>Tools.Mock.MethodCallStub</ReturnType>
 <Implementation><![CDATA[
 	#dim MethodCallStub As Tools.Mock.MethodCallStub = ..IndienMethodCall( MethodNaam, VerwachteParameterWaarden...)
-	Do MethodCallStub.ZetIsVerwacht( $$$true )
+	
+	do MethodCallStub.ZetIsVerwacht( $$$true )
+	set ..IsMethodCallVerwacht = $$$true
+	
 	Quit MethodCallStub
 ]]></Implementation>
 </Method>
@@ -82,9 +91,15 @@
 
 <Method name="Verifieer">
 <Implementation><![CDATA[
+	if $$$Not( ..IsMethodCallVerwacht )  {
+		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Verifieer terwijl er niks verwacht is.")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+
+	Set Verifieerder = ##class(Tools.Mock.MethodCallStubVerifieerder).%New()
 	Set MethodCallStubsIterator = ##class(TECH.ListIterator).%New( ..MethodCallStubs )
+	
 	While MethodCallStubsIterator.HasNext() {
-		Set Verifieerder = ##class(Tools.Mock.MethodCallStubVerifieerder).%New()
 		Do Verifieerder.Verifieer(MethodCallStubsIterator.Next())
 	}
 ]]></Implementation>
Index: vhUnitTest/Tools/Mock/MockClassBase/VerwachtMethodCall/Test.cls.xml
===================================================================
diff -u -r1300 -r1302
--- vhUnitTest/Tools/Mock/MockClassBase/VerwachtMethodCall/Test.cls.xml	(.../Test.cls.xml)	(revision 1300)
+++ vhUnitTest/Tools/Mock/MockClassBase/VerwachtMethodCall/Test.cls.xml	(.../Test.cls.xml)	(revision 1302)
@@ -5,7 +5,7 @@
 
 <Method name="TestNietsIsVerwachtxxxVerifieerGeeftFouten">
 <Implementation><![CDATA[
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("verifieer terwijl er niks verwacht is.")
+	#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()
@@ -24,6 +24,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test &apos;Indien..&apos; en &apos;Verwacht..&apos; gedefinieerd en verwacht is opgeroepen --&gt; Geen Exceptie">
+<Implementation><![CDATA[
+	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	Do Mock.IndienMethodCall("DummyMethode")
+	Do Mock.VerwachtMethodCall("Methode")
+	Do Mock.Methode()
+	Do Mock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="TestMethodeNietAangeroepenxxxVerifieerGeeftExceptie">
 <Implementation><![CDATA[
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Methodcall 'Methode()' is niet opgeroepen.")
Index: Tools/Mock/MethodCallStubVerifieerder.cls.xml
===================================================================
diff -u -r1300 -r1302
--- Tools/Mock/MethodCallStubVerifieerder.cls.xml	(.../MethodCallStubVerifieerder.cls.xml)	(revision 1300)
+++ Tools/Mock/MethodCallStubVerifieerder.cls.xml	(.../MethodCallStubVerifieerder.cls.xml)	(revision 1302)
@@ -46,18 +46,13 @@
 <Method name="Init">
 <FormalSpec>MethodCallStub:Tools.Mock.MethodCallStub</FormalSpec>
 <Private>1</Private>
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	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 ..MethodeNaam = ..MethodCallStub.GeefMethodNaam()
+	
 	Set ..ParametersAlsString = ##class(TECH.ListUtils).ListToPieces(..MethodCallStub.GeefVerwachteParameters())
 	Set ..AantalKeerOpgeroepen = MethodCallStub.GeefAantalKeerOpgeroepen()
 	Set ..VerwachtAantalKeerOpgeroepen = MethodCallStub.GeefVerwachtAantalKeerOpgeroepen()
-	quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -82,6 +77,7 @@
 </Method>
 
 <Method name="ThrowException">
+<Private>1</Private>
 <Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New(..ExceptionBericht))
 ]]></Implementation>
 </Method>