Index: Tools/Mock/MockCreator.cls.xml
===================================================================
diff -u -r1254 -r1266
--- Tools/Mock/MockCreator.cls.xml	(.../MockCreator.cls.xml)	(revision 1254)
+++ Tools/Mock/MockCreator.cls.xml	(.../MockCreator.cls.xml)	(revision 1266)
@@ -1,77 +1,23 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="Tools.Mock.MockCreator">
-<Super>TECH.RegisteredObject</Super>
+<Super>Tools.Mock.TestDoubleCreator</Super>
 
-<Property name="MockClass">
-<Type>%Dictionary.ClassDefinition</Type>
+<Method name="GetDescription">
 <Private>1</Private>
-</Property>
-
-<Property name="Class">
-<Type>%Dictionary.ClassDefinition</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="svnHelper">
-<Type>svn.Helper</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="MockCreatorBepaler">
-<Type>Tools.Mock.MockCreatorBepaler</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="%OnNew">
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
+<ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
-	set ..svnHelper = ##class(svn.Helper).%New()
-	Set ..MockCreatorBepaler = ##class(Tools.Mock.MockCreatorBepaler).%New()
-	quit $$$OK
+	set Description = ##class(%GlobalCharacterStream).%New()
+	do Description.WriteLine("Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.")
+	do Description.WriteLine("Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt")
+	do Description.Write("Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.")	
+	Quit Description.Read()
 ]]></Implementation>
 </Method>
 
-<Method name="UpdateMock">
-<FormalSpec>ClassName:%String</FormalSpec>
-<Implementation><![CDATA[
-	set ..Class = ##class(%Dictionary.ClassDefinition).%OpenId(ClassName)
-	
-	if ..HasToUpdateMock() {
-		
-		#dim MockClassName As %String = ..GetMockClassName(ClassName)
-		
-		set ..MockClass = ..OpenOrCreate(MockClassName ,ClassName)
-	
-		set Description = ##class(%GlobalCharacterStream).%New()
-		
-		do Description.WriteLine("Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.")
-		do Description.WriteLine("Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt")
-		do Description.Write("Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.")
-		
-		set ..MockClass.Description = Description.Read()
-		set ..MockClass.Super = ..Class.Name_"," _ ..GeefMockParentClassName()
-		do ..MockClass.Methods.Clear()
-		do ..CreatePushedInstanceMethod()
-	
-		set itMethods = ##class(TECH.ListIterator).%New(..Class.Methods)
-		while itMethods.HasNext() {
-			#dim Method As %Dictionary.MethodDefinition = itMethods.Next()
-			continue:..SkipMethod(Method)
-			do ..CreateMethod(Method)
-		}
-	
-		do ..ExportToSVN(..MockClass.Name)
-		do ..svnHelper.CompileImportedSourceCode()
-	}
-]]></Implementation>
-</Method>
-
 <Method name="SkipMethod">
 <FormalSpec>Method:%Dictionary.MethodDefinition</FormalSpec>
+<Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim Skip As %Boolean = $$$false
@@ -81,44 +27,31 @@
 ]]></Implementation>
 </Method>
 
-<Method name="HasToUpdateMock">
+<Method name="CreateInstanceMethod">
 <Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit ..HeeftMockKlasseNodig(..Class)
-]]></Implementation>
-</Method>
-
-<Method name="HeeftMockKlasseNodig">
-<FormalSpec>ClassDefinition:%Dictionary.ClassDefinition</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit ..MockCreatorBepaler.HeeftMockKlasseNodig(ClassDefinition)
-]]></Implementation>
-</Method>
-
-<Method name="CreatePushedInstanceMethod">
-<Private>1</Private>
 <Implementation><![CDATA[
 	if ##class(TECH.StringUtils).EndsWith(..Class.Name,"API") {
 
 		set Method = ##class(%Dictionary.MethodDefinition).%New()
 		set Method.Name = "MockInstance"
-		set Method.parent = ..MockClass
-		set Method.ReturnType = ..MockClass.Name
+		set Method.parent = ..GeneratedClass
+		set Method.ReturnType = ..GeneratedClass.Name
 		set Method.FormalSpec = ""
 		set Method.ClassMethod = 1
 		set Method.SequenceNumber=1
 		
 		#dim APIClassName As %String = ##class(TECH.StringUtils).GetLastPart(..Class.Name,".")
-		do Method.Implementation.WriteLine($char(9)_"do ##class("_..GetContextClassName()_").Instance().Push"_APIClassName_"ClassName(##class("_..MockClass.Name_").%ClassName(1))")
-		do Method.Implementation.WriteLine($char(9)_"quit ##class("_..GetContextClassName()_").Instance().Geef"_APIClassName_"()")
+		#dim ContextClassName As %String = ..GetContextClassName()
+		do Method.Implementation.WriteLine($char(9)_"do ##class("_ContextClassName_").Instance().Push"_APIClassName_"ClassName(##class("_..GeneratedClass.Name_").%ClassName(1))")
+		do Method.Implementation.WriteLine($char(9)_"quit ##class("_ContextClassName_").Instance().Geef"_APIClassName_"()")
 
 		do Method.%Save()
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="GetContextClassName">
+<Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim ContextClassName As %String = ""
@@ -133,25 +66,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="CreateMethod">
+<Method name="GetMethodBody">
 <FormalSpec>Method:%Dictionary.MethodDefinition</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	do ..CreateMethodWithName(Method.Name,Method)
-]]></Implementation>
-</Method>
-
-<Method name="CreateMethodWithName">
-<FormalSpec>Name:%String,Method:%Dictionary.MethodDefinition</FormalSpec>
-<Private>1</Private>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set MockMethod = ##class(%Dictionary.MethodDefinition).%New()
-	set MockMethod.Name = Name
-	set MockMethod.ClassMethod = Method.ClassMethod
-	set MockMethod.parent = ..MockClass
-	set MockMethod.ReturnType = Method.ReturnType
-	set MockMethod.FormalSpec = Method.FormalSpec
-	set MockMethod.SequenceNumber=2
-	
 	#dim CacheCommando As %String = $select($length(Method.ReturnType)>0:"quit",1:"do")
 	
 	set MethodInfo = ##class(TECH.ClassInfo.MethodDefinition).%New(Method,..Class)
@@ -163,51 +82,23 @@
 		do Parameters.Insert(Parameter.GeefNaam())
 	}
 	
-	#define TussenQuotes(%v)   """"_%v_""""
-	
 	#dim Line As %String = $char(9)_CacheCommando_" ..VerwerkMethodCall("_$$$TussenQuotes(Method.Name)
 	#dim ParametersAsString As %String = ##class(TECH.ListUtils).ListToPieces(Parameters,",")
 	if $length(ParametersAsString)>0 set Line = Line _","_##class(TECH.StringUtils).Replace(ParametersAsString,"&",".")
 	set Line = Line _ ")"
 		
-	do MockMethod.Implementation.WriteLine(Line)
-	do MockMethod.%Save()
-	quit
+	quit Line
 ]]></Implementation>
 </Method>
 
-<Method name="GetMockClassName">
+<Method name="GetTestDoubleClassName">
 <FormalSpec>ClassName:%String</FormalSpec>
 <Private>1</Private>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit "vhTest.Mock."_ClassName
 ]]></Implementation>
 </Method>
 
-<Method name="OpenOrCreate">
-<FormalSpec>MockClassName:%String,ClassName:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	if '##class(%Dictionary.ClassDefinition).%ExistsId() {
-		do ..CreateMock(MockClassName)	
-	}
-	quit ##class(%Dictionary.ClassDefinition).%OpenId(MockClassName)
-]]></Implementation>
-</Method>
-
-<Method name="CreateMock">
-<FormalSpec>MockClassName:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Dictionary.ClassDefinition</ReturnType>
-<Implementation><![CDATA[
-	set MockClass = ##class(%Dictionary.ClassDefinition).%New()
-	set MockClass.Name = MockClassName
-	set MockClass.ProcedureBlock = ..Class.ProcedureBlock
-	do MockClass.%Save()
-	
-	quit MockClass
-]]></Implementation>
-</Method>
-
 <Method name="GeefMockParentClassName">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
@@ -217,26 +108,58 @@
 	#Dim SuperKlassen As TECH.Iterator = ##class(TECH.ClassInfo.ClassDefinition).%New( ..Class.Name ).GeefSuperKlassen()
 	While( SuperKlassen.HasNext()) {
 		#Dim SuperKlasseNaam As %String = SuperKlassen.Next()
-		If ..HeeftMockKlasseNodig(##class(%ClassDefinition).%OpenId(SuperKlasseNaam)) {
+		If ..HeeftKlasseNodig(##class(%ClassDefinition).%OpenId(SuperKlasseNaam)) {
 			If '(SuperKlasseNaam[".enuVerwerker.") {
-				Set MockParentClass = ..GetMockClassName( SuperKlasseNaam )
+				Set MockParentClass = ..GetTestDoubleClassName( SuperKlasseNaam )
 			}
 		}
 	}
 	Quit MockParentClass
 ]]></Implementation>
 </Method>
 
-<Method name="ExportToSVN">
-<FormalSpec>SourceCode:%String</FormalSpec>
+<Method name="GetSuperClasses">
 <Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	#dim InternalName As %String = SourceCode
-	if $piece(SourceCode,".",$length(SourceCode,"."))'="mac" Set InternalName = SourceCode_".cls"
-	Do ..svnHelper.SVNExport(InternalName)
-	Do ..svnHelper.ToCompile.List.Insert(InternalName)
+	Set List = ##class(%ListOfDataTypes).%New()
+	Do List.Insert(..Class.Name)
+	Do List.Insert(..GeefMockParentClassName())
+	Quit List
 ]]></Implementation>
 </Method>
+
+<Method name="HeeftKlasseNodig">
+<FormalSpec>ClassDefinition:%Dictionary.ClassDefinition</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim HeeftMockKlasseNodig As %Boolean = $$$False
+	set HeeftMockKlasseNodig = 	(ClassDefinition.Abstract) && ( ..DerivesFromCorrectInterface(ClassDefinition.Name)) && 		 					
+							( $$$Not( ##class(TECH.ClassUtils).ClassDerivesFrom(ClassDefinition.Name,"TECH.Template") ) ) && 
+		 					( $$$Not( ##class(TECH.ClassUtils).ClassDerivesFrom(ClassDefinition.Name,"%Library.Base") ) )
+	set:('HeeftMockKlasseNodig) HeeftMockKlasseNodig = ClassDefinition.Super [ "TECH.Mockable"		 					
+	quit HeeftMockKlasseNodig
+]]></Implementation>
+</Method>
+
+<Method name="DerivesFromCorrectInterface">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim DerivesFromCorrectInterface As %Boolean = ##class(TECH.ClassUtils).ClassDerivesFrom(ClassName,"TECH.Interface")
+	if 'DerivesFromCorrectInterface set DerivesFromCorrectInterface = ##class(TECH.ClassUtils).ClassDerivesFrom(ClassName,"TECH.InternalInterface")
+	quit DerivesFromCorrectInterface
+]]></Implementation>
+</Method>
+
+<Method name="HasToClearMethods">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$True
+]]></Implementation>
+</Method>
 </Class>
 
 
FishEye: Tag 1266 refers to a dead (removed) revision in file `Tools/Mock/MockCreatorBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: Tools/Mock/FakeCreator.cls.xml
===================================================================
diff -u -r1257 -r1266
--- Tools/Mock/FakeCreator.cls.xml	(.../FakeCreator.cls.xml)	(revision 1257)
+++ Tools/Mock/FakeCreator.cls.xml	(.../FakeCreator.cls.xml)	(revision 1266)
@@ -1,174 +1,76 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="Tools.Mock.FakeCreator">
-<Super>TECH.RegisteredObject</Super>
+<Super>Tools.Mock.TestDoubleCreator</Super>
 
-<Property name="FakeClass">
-<Type>%Dictionary.ClassDefinition</Type>
+<Method name="GetDescription">
 <Private>1</Private>
-</Property>
-
-<Property name="Class">
-<Type>%Dictionary.ClassDefinition</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="svnHelper">
-<Type>svn.Helper</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="MockCreatorBepaler">
-<Type>Tools.Mock.MockCreatorBepaler</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="%OnNew">
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
+<ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
-	set ..svnHelper = ##class(svn.Helper).%New()
-	Set ..MockCreatorBepaler = ##class(Tools.Mock.MockCreatorBepaler).%New()
-	quit $$$OK
+	set Description = ##class(%GlobalCharacterStream).%New()
+	do Description.WriteLine("Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.")
+	do Description.Write("Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt")
+	Quit Description.Read()
 ]]></Implementation>
 </Method>
 
-<Method name="UpdateFake">
-<FormalSpec>ClassName:%String</FormalSpec>
-<Implementation><![CDATA[
-	set ..Class = ##class(%Dictionary.ClassDefinition).%OpenId(ClassName)
-	If ..HasToUpdateFake() {
-		#dim FakeClassName As %String = ..GetFakeClassName(ClassName)
-		
-		set ..FakeClass = ..OpenOrCreate(FakeClassName ,ClassName)
-		
-		set Description = ##class(%GlobalCharacterStream).%New()
-		do Description.WriteLine("Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.")
-		do Description.WriteLine("Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt")
-		do Description.Write("Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een fake klasse met overeenkomstige inheritance-structuur.")
-		
-		set ..FakeClass.Description = Description.Read()
-		set ..FakeClass.Super = ..Class.Name
-		
-		set itMethods = ##class(TECH.ListIterator).%New(..Class.Methods)
-		while itMethods.HasNext() {
-			#dim Method As %Dictionary.MethodDefinition = itMethods.Next()
-			continue:..SkipMethod(Method)
-			do ..CreateMethod(Method)
-		}
-		do ..ExportToSVN(..FakeClass.Name)
-		do ..svnHelper.CompileImportedSourceCode()
-	}
-]]></Implementation>
-</Method>
-
 <Method name="SkipMethod">
 <FormalSpec>Method:%Dictionary.MethodDefinition</FormalSpec>
+<Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim Skip As %Boolean = ##class(TECH.ClassDefinition).Instance().HasMethod(..FakeClass.Name, Method.Name)
+	#dim Skip As %Boolean = ##class(TECH.ClassDefinition).Instance().HasMethod(..GeneratedClass.Name, Method.Name)
 	quit Skip
 ]]></Implementation>
 </Method>
 
-<Method name="HasToUpdateFake">
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..HeeftFakeKlasseNodig(..Class)
-]]></Implementation>
-</Method>
-
-<Method name="HeeftFakeKlasseNodig">
-<FormalSpec>Class:%Dictionary.ClassDefinition</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..MockCreatorBepaler.HeeftMockKlasseNodig(Class)
-]]></Implementation>
-</Method>
-
-<Method name="GetFakeClassName">
+<Method name="GetTestDoubleClassName">
 <FormalSpec>ClassName:%String</FormalSpec>
 <Private>1</Private>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit "vhTest.Fake."_ClassName
 ]]></Implementation>
 </Method>
 
-<Method name="OpenOrCreate">
-<FormalSpec>FakeClassName:%String,ClassName:%String</FormalSpec>
+<Method name="GetMethodBody">
+<FormalSpec>Method:%Dictionary.MethodDefinition</FormalSpec>
 <Private>1</Private>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	if '##class(%Dictionary.ClassDefinition).%ExistsId() {
-		do ..CreateFake(FakeClassName)	
+	#dim Body As %String = ""
+	If $length(Method.ReturnType)>0 {
+		Set Body = $$$TAB_"Quit "_$$$DubbeleQuotes
 	}
-	quit ##class(%Dictionary.ClassDefinition).%OpenId(FakeClassName)
+	Quit Body
 ]]></Implementation>
 </Method>
 
-<Method name="CreateFake">
-<FormalSpec>FakeClassName:%String</FormalSpec>
+<Method name="GetSuperClasses">
 <Private>1</Private>
-<ReturnType>%Dictionary.ClassDefinition</ReturnType>
+<ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	set FakeClass = ##class(%Dictionary.ClassDefinition).%New()
-	set FakeClass.Name = FakeClassName
-	set FakeClass.ProcedureBlock = ..Class.ProcedureBlock
-	do FakeClass.%Save()
-	
-	quit FakeClass
+	Set List = ##class(%ListOfDataTypes).%New()
+	Do List.Insert(..Class.Name)
+	Quit List
 ]]></Implementation>
 </Method>
 
-<Method name="CreateMethod">
-<FormalSpec>Method:%Dictionary.MethodDefinition</FormalSpec>
+<Method name="CreateInstanceMethod">
 <Private>1</Private>
-<Implementation><![CDATA[	do ..CreateMethodWithName(Method.Name,Method)
-]]></Implementation>
 </Method>
 
-<Method name="CreateMethodWithName">
-<FormalSpec>Name:%String,Method:%Dictionary.MethodDefinition</FormalSpec>
+<Method name="HeeftKlasseNodig">
+<FormalSpec>ClassDefinition:%Dictionary.ClassDefinition</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[
-	set FakeMethod = ##class(%Dictionary.MethodDefinition).%New()
-	set FakeMethod.Name = Name
-	set FakeMethod.ClassMethod = Method.ClassMethod
-	set FakeMethod.parent = ..FakeClass
-	set FakeMethod.ReturnType = Method.ReturnType
-	set FakeMethod.FormalSpec = Method.FormalSpec
-	set FakeMethod.SequenceNumber=2
-	
-	#dim Body As %String = ""
-	If $length(Method.ReturnType)>0 {
-		Set Body = $$$TAB_"Quit "_$$$DubbeleQuotes
-	}
-
-	/*set MethodInfo = ##class(TECH.ClassInfo.MethodDefinition).%New(Method,..Class)
-	#dim itParameters As TECH.Iterator = MethodInfo.GeefParameters() 
-	
-	set Parameters = ##class(%ListOfDataTypes).%New()
-	while itParameters.HasNext() {
-		#dim Parameter As TECH.ClassInfo.ParameterDefinition = itParameters.Next()
-		do Parameters.Insert(Parameter.GeefNaam())
-	}
-	#dim ParametersAsString As %String = ##class(TECH.ListUtils).ListToPieces(Parameters,",")
-	if $length(ParametersAsString)>0 set Line = Line _","_##class(TECH.StringUtils).Replace(ParametersAsString,"&",".")
-	set Line = Line _ ")"*/
-
-	do FakeMethod.Implementation.WriteLine(Body)
-	do FakeMethod.%Save()
-	quit
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ClassDefinition.Super [ "TECH.Mockable"
 ]]></Implementation>
 </Method>
 
-<Method name="ExportToSVN">
-<FormalSpec>SourceCode:%String</FormalSpec>
+<Method name="HasToClearMethods">
 <Private>1</Private>
-<Implementation><![CDATA[
-	#dim InternalName As %String = SourceCode
-	if $piece(SourceCode,".",$length(SourceCode,"."))'="mac" Set InternalName = SourceCode_".cls"
-	Do ..svnHelper.SVNExport(InternalName)
-	Do ..svnHelper.ToCompile.List.Insert(InternalName)
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$False
 ]]></Implementation>
 </Method>
 </Class>
Index: Tools/CodeGenerator.cls.xml
===================================================================
diff -u -r1158 -r1266
--- Tools/CodeGenerator.cls.xml	(.../CodeGenerator.cls.xml)	(revision 1158)
+++ Tools/CodeGenerator.cls.xml	(.../CodeGenerator.cls.xml)	(revision 1266)
@@ -10,7 +10,8 @@
 	
 	#dim KlasseNaam As %String = ##class(TECH.SourceCodeUtils).StripExtension(InternalName)
 	
-	do ##class(Tools.Mock.MockCreator).%New().UpdateMock(KlasseNaam)
+	do ##class(Tools.Mock.MockCreator).%New().UpdateTestDouble(KlasseNaam)
+	do ##class(Tools.Mock.FakeCreator).%New().UpdateTestDouble(KlasseNaam)
 	do ##class(Tools.Mock.ImplementationMockCreator).%New().UpdateMock(KlasseNaam)
 	do ##class(Tools.CodeGen.EnumeratieVerwerkerGenerator).%New().Genereer(KlasseNaam)
 ]]></Implementation>
Index: Tools/Mock/TestDoubleCreator.cls.xml
===================================================================
diff -u
--- Tools/Mock/TestDoubleCreator.cls.xml	(revision 0)
+++ Tools/Mock/TestDoubleCreator.cls.xml	(revision 1266)
@@ -0,0 +1,194 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.Mock.TestDoubleCreator">
+<Abstract>1</Abstract>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="GeneratedClass">
+<Type>%Dictionary.ClassDefinition</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Class">
+<Type>%Dictionary.ClassDefinition</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="svnHelper">
+<Type>svn.Helper</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>svnHelper:svn.Helper</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..svnHelper = $$$Implementation(svnHelper,##class(svn.Helper).%New())
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="UpdateTestDouble">
+<Final>1</Final>
+<FormalSpec>ClassName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..Class = ..OpenClass(ClassName)
+	If ..HasToUpdate() {
+		#dim TestDoubleClassName As %String = ..GetTestDoubleClassName(ClassName)
+		
+		set ..GeneratedClass = ..OpenOrCreate(TestDoubleClassName ,ClassName)
+		set ..GeneratedClass.Description = ..GetDescription()
+		set ..GeneratedClass.Super = ##class(TECH.ListUtils).ListToPieces(..GetSuperClasses(), ",")
+		
+		Do:..HasToClearMethods() ..GeneratedClass.Methods.Clear()
+		
+		Do ..CreateInstanceMethod()
+		set itMethods = ##class(TECH.ListIterator).%New(..Class.Methods)
+		while itMethods.HasNext() {
+			#dim Method As %Dictionary.MethodDefinition = itMethods.Next()
+			continue:..SkipMethod(Method)
+			do ..CreateMethod(Method)
+		}
+		Do ..SaveGeneratedClass()
+		do ..ExportToSVN(..GeneratedClass.Name)
+		do ..svnHelper.CompileImportedSourceCode()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="HasToClearMethods">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="SaveGeneratedClass">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..GeneratedClass.%Save()
+]]></Implementation>
+</Method>
+
+<Method name="OpenClass">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Dictionary.ClassDefinition</ReturnType>
+<Implementation><![CDATA[	Quit ##class(%Dictionary.ClassDefinition).%OpenId(ClassName)
+]]></Implementation>
+</Method>
+
+<Method name="GetDescription">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>%CacheString</ReturnType>
+</Method>
+
+<Method name="SkipMethod">
+<Abstract>1</Abstract>
+<FormalSpec>Method:%Dictionary.MethodDefinition</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="ExportToSVN">
+<Final>1</Final>
+<FormalSpec>SourceCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim InternalName As %String = SourceCode
+	if $piece(SourceCode,".",$length(SourceCode,"."))'="mac" Set InternalName = SourceCode_".cls"
+	Do ..svnHelper.SVNExport(InternalName)
+	Do ..svnHelper.ToCompile.List.Insert(InternalName)
+]]></Implementation>
+</Method>
+
+<Method name="HasToUpdate">
+<Final>1</Final>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..HeeftKlasseNodig(..Class)
+]]></Implementation>
+</Method>
+
+<Method name="HeeftKlasseNodig">
+<Abstract>1</Abstract>
+<FormalSpec>ClassDefinition:%Dictionary.ClassDefinition</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="CreateMethod">
+<Final>1</Final>
+<FormalSpec>Method:%Dictionary.MethodDefinition</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set TestDoubleMethod = ##class(%Dictionary.MethodDefinition).%New()
+	set TestDoubleMethod.Name = Method.Name
+	set TestDoubleMethod.ClassMethod = Method.ClassMethod
+	set TestDoubleMethod.parent = ..GeneratedClass
+	set TestDoubleMethod.ReturnType = Method.ReturnType
+	set TestDoubleMethod.FormalSpec = Method.FormalSpec
+	set TestDoubleMethod.SequenceNumber=2
+	#dim Body As %String = ..GetMethodBody(TestDoubleMethod)
+	do TestDoubleMethod.Implementation.WriteLine(Body)
+	do TestDoubleMethod.%Save()
+]]></Implementation>
+</Method>
+
+<Method name="GetTestDoubleClassName">
+<Abstract>1</Abstract>
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GetMethodBody">
+<Abstract>1</Abstract>
+<FormalSpec>Method:%Dictionary.MethodDefinition</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GetSuperClasses">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+</Method>
+
+<Method name="CreateInstanceMethod">
+<Abstract>1</Abstract>
+<Private>1</Private>
+</Method>
+
+<Method name="OpenOrCreate">
+<FormalSpec>TestDoubleClassName:%String,ClassName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Dictionary.ClassDefinition</ReturnType>
+<Implementation><![CDATA[
+	if '##class(%Dictionary.ClassDefinition).%ExistsId() {
+		do ..CreateTestDouble(TestDoubleClassName)	
+	}
+	quit ##class(%Dictionary.ClassDefinition).%OpenId(TestDoubleClassName)
+]]></Implementation>
+</Method>
+
+<Method name="CreateTestDouble">
+<Final>1</Final>
+<FormalSpec>TestDoubleClassName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Dictionary.ClassDefinition</ReturnType>
+<Implementation><![CDATA[
+	set GeneratedClass = ##class(%Dictionary.ClassDefinition).%New()
+	set GeneratedClass.Name = TestDoubleClassName
+	set GeneratedClass.ProcedureBlock = ..Class.ProcedureBlock
+	do GeneratedClass.%Save()
+	
+	quit GeneratedClass
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>