Index: Tools/Mock/MockClassBase.cls.xml
===================================================================
diff -u
--- Tools/Mock/MockClassBase.cls.xml	(revision 0)
+++ Tools/Mock/MockClassBase.cls.xml	(revision 575)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.Mock.MockClassBase">
+<Description>
+Base-klasse voor Mocks.
+Mock-klassen moeten in elke method VerwerkMethodCall oproepen.
+Unit tests kunnen IndienMethodCall(...) of VerwachtMethodCall(...) oproepen.</Description>
+<Super>%RegisteredObject</Super>
+
+<Property name="MethodCallStubs">
+<Description>
+ELEMENTTYPE="Tools.Mock.MethodCallStub"</Description>
+<Type>%ListOfObjects</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="IndienMethodCall">
+<Description>
+Aan te roepen door de unit test, om een method te stubben.</Description>
+<FormalSpec>MethodNaam:%String,VerwachteParameterWaardenMultiDim...:%List</FormalSpec>
+<ReturnType>Tools.Mock.MethodCallStub</ReturnType>
+<Implementation><![CDATA[
+		Set MethodCallStub = ##class(Tools.Mock.MethodCallStub).%New()
+		Do MethodCallStub.ZetMethodNaam( MethodNaam )
+
+		Set VerwachteParameterWaarden = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .VerwachteParameterWaardenMultiDim )		
+		Do MethodCallStub.ZetParameters( VerwachteParameterWaarden )
+		
+		Do ..MethodCallStubs.Insert( MethodCallStub )
+		
+		Quit MethodCallStub
+]]></Implementation>
+</Method>
+
+<Method name="VerwachtMethodCall">
+<Description>
+Aan te roepen door de unit test.</Description>
+<FormalSpec>MethodNaam:%String,VerwachteParameterWaardenMultiDim...:%List</FormalSpec>
+<ReturnType>Tools.Mock.MethodCallStub</ReturnType>
+<Implementation><![CDATA[
+	Set MethodCallStub = ..IndienMethodCall( MethodNaam, .VerwachteParameterWaardenMultiDim )
+	Do MethodCallStub.ZetIsVerwacht( 1 )
+	Quit MethodCallStub
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMethodCall">
+<Description>
+Aan te roepen door de unit test.</Description>
+<FormalSpec>MethodNaam:%String,Parameters...:%List</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+		#Dim MatchGevonden As %Boolean = 0
+		#Dim MethodCallStub As Tools.Mock.MethodCallStub
+		
+		#dim ActueleParameterWaarden As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .Parameters )
+		
+		Set MethodCallStubsIterator = ##class(TECH.ListIterator).%New( ..MethodCallStubs )
+		While ('MatchGevonden && MethodCallStubsIterator.HasNext() ) {
+			Set MethodCallStub = MethodCallStubsIterator.Next()
+			Set MatchGevonden = MethodCallStub.IsMatch( MethodNaam, ActueleParameterWaarden )
+		}
+		
+		If MatchGevonden {
+			#Dim HeeftReturnWaarde As %Boolean = 0
+			#Dim ReturnWaarde As %String = ""
+			Do MethodCallStub.MockCall( MethodNaam, ActueleParameterWaarden, .HeeftReturnWaarde, .ReturnWaarde ) 
+			If HeeftReturnWaarde {
+				Quit ReturnWaarde
+			} Else {
+				Quit	
+			}
+		} Else {
+			#Dim ParametersAlsString As %String = ##class(TECH.ListUtils).ListToPieces(ActueleParameterWaarden)
+			#Dim ExceptionBericht As %String = "Methodcall '" _ MethodNaam _ "(" _ ParametersAlsString _ ")' is niet voorzien door de mock."
+			Do ##class(TECH.ExceptionHandler).Throw( ##class(TECH.Exceptions.GeneralErrorException).%New( ExceptionBericht ) )
+			// Eventueel kan er ook "nice" gedrag ondersteund worden. Ttz, gewoon niets (of lege string of 0) teruggeven.
+		}
+		
+		// TODO: Registreer de uitgevoerde call.
+]]></Implementation>
+</Method>
+
+<Method name="Verifieer">
+<Implementation><![CDATA[		// TODO: controleer de verwachte calls.
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Tools/Mock/MethodCallStub.cls.xml
===================================================================
diff -u
--- Tools/Mock/MethodCallStub.cls.xml	(revision 0)
+++ Tools/Mock/MethodCallStub.cls.xml	(revision 575)
@@ -0,0 +1,106 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.Mock.MethodCallStub">
+<Super>%RegisteredObject</Super>
+
+<Property name="MethodNaam">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerwachteParameters">
+<Type>%ListOfObjects</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IsVerwacht">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HeeftReturnWaarde">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ReturnWaarde">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="ZetMethodNaam">
+<FormalSpec>MethodNaam:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..MethodNaam = MethodNaam
+]]></Implementation>
+</Method>
+
+<Method name="ZetParameters">
+<FormalSpec>VerwachteParameters:%ListOfObjects</FormalSpec>
+<Implementation><![CDATA[	Set ..VerwachteParameters = VerwachteParameters
+]]></Implementation>
+</Method>
+
+<Method name="ZetIsVerwacht">
+<FormalSpec>IsVerwacht:%Boolean</FormalSpec>
+<Implementation><![CDATA[	Set ..IsVerwacht = IsVerwacht
+]]></Implementation>
+</Method>
+
+<Method name="DanReturn">
+<FormalSpec>ReturnWaarde:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..HeeftReturnWaarde = 1
+	Set ..ReturnWaarde = ReturnWaarde
+]]></Implementation>
+</Method>
+
+<Method name="DanException">
+<FormalSpec>Exception:TECH.Exceptions.BaseException</FormalSpec>
+<Implementation><![CDATA[	// TODO
+]]></Implementation>
+</Method>
+
+<Method name="ExactAantalKeer">
+<Description>
+Verwacht dat deze method call AantalKeer wordt opgeroepen.</Description>
+<FormalSpec>AantalKeer:%Integer</FormalSpec>
+<Implementation><![CDATA[	// TODO
+]]></Implementation>
+</Method>
+
+<Method name="MockCall">
+<Description>
+Mag enkel aangeroepen worden indien IsMatch(MethodNaam,Parameters) = true</Description>
+<FormalSpec><![CDATA[MethodNaam:%String,Parameters:%ListOfObjects,&HeeftReturnWaarde:%Boolean,&ReturnWaarde:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	Set HeeftReturnWaarde = ..HeeftReturnWaarde
+	If ..HeeftReturnWaarde {
+		Set ReturnWaarde = ..ReturnWaarde
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsMatch">
+<FormalSpec>MethodNaam:%String,ActueleParameterWaarden:%ListOfObjects</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:(..MethodNaam '= MethodNaam) 0
+		
+	Quit:(..VerwachteParameters.Count() '= ActueleParameterWaarden.Count()) 0
+	
+	#dim ParameterWaardenGelijk As %Boolean = 1
+	#dim ActueleParameterWaardenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ActueleParameterWaarden)
+	#dim VerwachteParameterWaardenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..VerwachteParameters)
+	While( ParameterWaardenGelijk && ActueleParameterWaardenIterator.HasNext() && VerwachteParameterWaardenIterator.HasNext() )
+	{
+		Set VerwachteWaarde = VerwachteParameterWaardenIterator.Next()
+		Set ActueleWaarde = ActueleParameterWaardenIterator.Next()
+		Set ParameterWaardenGelijk = (VerwachteWaarde = ActueleWaarde) // TODO: ook ondersteuning voor een .Equals, en voor een diepere vergelijking.
+	}
+	Quit ParameterWaardenGelijk
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>