Index: Tools/Mock/MockClassBase.cls.xml
===================================================================
diff -u -r783 -r838
--- Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 783)
+++ Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 838)
@@ -92,7 +92,22 @@
 </Method>
 
 <Method name="Verifieer">
-<Implementation><![CDATA[		// TODO: controleer de verwachte calls.
+<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 ) )
+		}
+	}
 ]]></Implementation>
 </Method>
 </Class>