Index: Tools/Mock/MockClassBase.cls.xml
===================================================================
diff -u -r839 -r1158
--- Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 839)
+++ Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 1158)
@@ -5,7 +5,7 @@
 Base-klasse voor Mocks.
 Mock-klassen moeten in elke method VerwerkMethodCall oproepen.
 Unit tests kunnen IndienMethodCall(...) of VerwachtMethodCall(...) oproepen.</Description>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Property name="MethodCallStubs">
 <Description>
@@ -19,23 +19,12 @@
 Aan te roepen door de unit test, om een method te stubben.</Description>
 <FormalSpec>MethodNaam:%String,VerwachteParameterWaarden...:%String</FormalSpec>
 <ReturnType>Tools.Mock.MethodCallStub</ReturnType>
-<Implementation><![CDATA[	quit ..IndienMethodCallMultiDim(MethodNaam,.VerwachteParameterWaarden)
-]]></Implementation>
-</Method>
-
-<Method name="IndienMethodCallMultiDim">
-<FormalSpec><![CDATA[MethodNaam:%String,&VerwachteParameterWaardenMultiDim:%String]]></FormalSpec>
-<Private>1</Private>
-<ReturnType>Tools.Mock.MethodCallStub</ReturnType>
 <Implementation><![CDATA[
 	Set MethodCallStub = ##class(Tools.Mock.MethodCallStub).%New()
 	Do MethodCallStub.ZetMethodNaam( MethodNaam )
-
-	#dim VerwachteParameterWaardenList As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .VerwachteParameterWaardenMultiDim )		
+	#dim VerwachteParameterWaardenList As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .VerwachteParameterWaarden )		
 	Do MethodCallStub.ZetParameters( VerwachteParameterWaardenList )
-		
 	Do ..MethodCallStubs.Insert( MethodCallStub )
-		
 	Quit MethodCallStub
 ]]></Implementation>
 </Method>
@@ -46,7 +35,7 @@
 <FormalSpec>MethodNaam:%String,VerwachteParameterWaarden...:%List</FormalSpec>
 <ReturnType>Tools.Mock.MethodCallStub</ReturnType>
 <Implementation><![CDATA[
-	#dim MethodCallStub As Tools.Mock.MethodCallStub = ..IndienMethodCallMultiDim( MethodNaam, .VerwachteParameterWaarden)
+	#dim MethodCallStub As Tools.Mock.MethodCallStub = ..IndienMethodCall( MethodNaam, VerwachteParameterWaarden...)
 	Do MethodCallStub.ZetIsVerwacht( 1 )
 	Quit MethodCallStub
 ]]></Implementation>
@@ -58,36 +47,36 @@
 <FormalSpec>MethodNaam:%String,Parameters...:%List</FormalSpec>
 <ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
+	#dim ActueleParameterWaarden As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .Parameters )
+	#dim HeeftReturnWaarde As %Boolean = 0
+	#dim ReturnWaarde As %String = ""
 	#dim VerwerkMethodCall As %CacheString = ""
-	#Dim MatchGevonden As %Boolean = 0
-	#Dim MethodCallStub As Tools.Mock.MethodCallStub
+	#dim MethodCallStub As Tools.Mock.MethodCallStub = ..BepaalMethodCallStub(MethodNaam,Parameters...)
+	Do MethodCallStub.MockCall( MethodNaam, ActueleParameterWaarden, .HeeftReturnWaarde, .ReturnWaarde ) 
 	
-	#dim ActueleParameterWaarden As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .Parameters )
+	If HeeftReturnWaarde {
+		Set VerwerkMethodCall = ReturnWaarde
+	}
 	
+	Quit VerwerkMethodCall
+]]></Implementation>
+</Method>
+
+<Method name="BepaalMethodCallStub">
+<FormalSpec>MethodNaam:%String,Parameters...:%List</FormalSpec>
+<ReturnType>Tools.Mock.MethodCallStub</ReturnType>
+<Implementation><![CDATA[
+	#dim ActueleParameterWaarden As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .Parameters )
+	#dim MethodCallStub As Tools.Mock.MethodCallStub
+	#dim MatchGevonden As %Boolean = 0
 	Set MethodCallStubsIterator = ##class(TECH.ListIterator).%New( ..MethodCallStubs )
 	While ('MatchGevonden && MethodCallStubsIterator.HasNext() ) {
-		Set MethodCallStub = MethodCallStubsIterator.Next()
+		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 {
-			Set VerwerkMethodCall = ReturnWaarde
-		}
-	} Else {
-		#Dim ParametersAlsString As %String = ##class(TECH.ListUtils).ListToPieces(ActueleParameterWaarden)
-		#Dim ExceptionBericht As %String = "Methodcall '" _ MethodNaam _ "(" _ ParametersAlsString _ ")' is niet voorzien door de mock."_..%ClassName(1)
-		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.
-	}
-	If $IsObject(VerwerkMethodCall) && VerwerkMethodCall.%Extends("TECH.Iterator") {
-		Do VerwerkMethodCall.Reset()
-	}
-	Quit VerwerkMethodCall
-	// TODO: Registreer de uitgevoerde call.
+	if 'MatchGevonden set MethodCallStub  = ##class(Tools.Mock.MethodCallError).%New()
+	quit MethodCallStub
 ]]></Implementation>
 </Method>