Index: Tools/Mock/FakeCreator.cls.xml
===================================================================
diff -u
--- Tools/Mock/FakeCreator.cls.xml	(revision 0)
+++ Tools/Mock/FakeCreator.cls.xml	(revision 1256)
@@ -0,0 +1,178 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.Mock.FakeCreator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FakeClass">
+<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>
+
+<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>
+<Implementation><![CDATA[
+	set ..svnHelper = ##class(svn.Helper).%New()
+	Set ..MockCreatorBepaler = ##class(Tools.Mock.MockCreatorBepaler).%New()
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="UpdateFake">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Implementation><![CDATA[
+	set ..Class = ##class(%Dictionary.ClassDefinition).%OpenId(ClassName)
+	If ..HasToUpdateFake() {
+		Do WLIP^vhDBG(26, $$LCVT^vhLib(##class(TECH.ClassUtils).GetCurrentMethod())_"-> Update")
+		#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>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Skip As %Boolean = ##class(TECH.ClassDefinition).Instance().HasMethod(..FakeClass.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">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	quit "vhTest.Fake."_ClassName
+]]></Implementation>
+</Method>
+
+<Method name="OpenOrCreate">
+<FormalSpec>FakeClassName:%String,ClassName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if '##class(%Dictionary.ClassDefinition).%ExistsId() {
+		do ..CreateFake(FakeClassName)	
+	}
+	quit ##class(%Dictionary.ClassDefinition).%OpenId(FakeClassName)
+]]></Implementation>
+</Method>
+
+<Method name="CreateFake">
+<FormalSpec>FakeClassName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Dictionary.ClassDefinition</ReturnType>
+<Implementation><![CDATA[
+	set FakeClass = ##class(%Dictionary.ClassDefinition).%New()
+	set FakeClass.Name = FakeClassName
+	set FakeClass.ProcedureBlock = ..Class.ProcedureBlock
+	do FakeClass.%Save()
+	
+	quit FakeClass
+]]></Implementation>
+</Method>
+
+<Method name="CreateMethod">
+<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>
+<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
+]]></Implementation>
+</Method>
+
+<Method name="ExportToSVN">
+<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>
+</Class>
+
+
+</Export>