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>