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>