Index: Tools/Mock/MethodCallStubVerifieerder.cls.xml
===================================================================
diff -u
--- Tools/Mock/MethodCallStubVerifieerder.cls.xml	(revision 0)
+++ Tools/Mock/MethodCallStubVerifieerder.cls.xml	(revision 839)
@@ -0,0 +1,84 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.Mock.MethodCallStubVerifieerder">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="MethodeNaam">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ParametersAlsString">
+<Type>%String</Type>
+<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>
+</Property>
+
+<Property name="AantalKeerOpgeroepen">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerwachtAantalKeerOpgeroepen">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<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 ..AantalKeerOpgeroepen = MethodCallStub.GeefAantalKeerOpgeroepen()
+	Set ..VerwachtAantalKeerOpgeroepen = MethodCallStub.GeefVerwachtAantalKeerOpgeroepen()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ControlleerMethodeOpgeroepenZonderAantalCheck">
+<Implementation><![CDATA[
+	If ..IsOpgeroepenZonderAantalControle {
+		Set ..ExceptionBericht = ..ExceptionBericht_"niet opgeroepen."_..%ClassName(1)
+		Do ..ThrowException()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ControlleerMethodeOpgeroepenMetAantalCheck">
+<Implementation><![CDATA[
+	If ..IsOpgeroepenMetAantalControle {
+		Set ..ExceptionBericht = ..ExceptionBericht_..AantalKeerOpgeroepen_" keer opgeroepen, er was "_..VerwachtAantalKeerOpgeroepen_" keer verwacht."_..%ClassName(1)
+		Do ..ThrowException()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ThrowException">
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New(..ExceptionBericht))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Tools/Mock/MockClassBase.cls.xml
===================================================================
diff -u -r838 -r839
--- Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 838)
+++ Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 839)
@@ -95,18 +95,9 @@
 <Implementation><![CDATA[
 	Set MethodCallStubsIterator = ##class(TECH.ListIterator).%New( ..MethodCallStubs )
 	While MethodCallStubsIterator.HasNext() {
-		#dim MethodCallStub As Tools.Mock.MethodCallStub = MethodCallStubsIterator.Next()
-		
-		#dim MethodeNaam As %String = MethodCallStub.GeefMethodNaam()
-		#dim ParametersAlsString As %String = ##class(TECH.ListUtils).ListToPieces(MethodCallStub.GeefVerwachteParameters())
-		#Dim ExceptionBericht As %String
-		If ( 'MethodCallStub.IsOpgeroepen() ) && ( MethodCallStub.IsVerwacht() ) {
-			Set ExceptionBericht = "Methodcall '" _ MethodeNaam _ "(" _ ParametersAlsString _ ")' is niet opgeroepen."_..%ClassName(1)
-			Do ##class(TECH.ExceptionHandler).Throw( ##class(TECH.Exceptions.GeneralErrorException).%New( ExceptionBericht ) )
-		} ElseIf ( 'MethodCallStub.IsExactAantalKeerOpgeroepen() ) && ( MethodCallStub.IsAantalKeerVerwacht() ) {
-			Set ExceptionBericht = "Methodcall '" _ MethodeNaam _ "(" _ ParametersAlsString _ ")' is "_MethodCallStub.GeefAantalKeerOpgeroepen()_" keer opgeroepen, er was "_MethodCallStub.GeefVerwachtAantalKeerOpgeroepen()_" keer verwacht."_..%ClassName(1)
-			Do ##class(TECH.ExceptionHandler).Throw( ##class(TECH.Exceptions.GeneralErrorException).%New( ExceptionBericht ) )
-		}
+		Set Verifieerder = ##class(Tools.Mock.MethodCallStubVerifieerder).%New(MethodCallStubsIterator.Next())
+		Do Verifieerder.ControlleerMethodeOpgeroepenZonderAantalCheck()
+		Do Verifieerder.ControlleerMethodeOpgeroepenMetAantalCheck()
 	}
 ]]></Implementation>
 </Method>