Index: Tools/Mock/MockCreator.cls.xml
===================================================================
diff -u
--- Tools/Mock/MockCreator.cls.xml	(revision 0)
+++ Tools/Mock/MockCreator.cls.xml	(revision 648)
@@ -0,0 +1,145 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.Mock.MockCreator">
+<Super>%RegisteredObject</Super>
+
+<Property name="MockClass">
+<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">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..svnHelper = ##class(svn.Helper).%New()
+	quit $$$OK
+]]></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)
+	
+		do ..MockClass.Methods.Clear()
+	
+		set itMethods = ##class(TECH.ListIterator).%New(..Class.Methods)
+		while itMethods.HasNext() {
+			#dim Method As %Dictionary.MethodDefinition = itMethods.Next()
+			continue:'Method.Abstract
+			do ..CreateMethod(Method)
+		}
+	
+		do ..ExportToSVN(..MockClass.Name)
+		do ..svnHelper.CompileImportedSourceCode()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="HasToUpdateMock">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit (..Class.Abstract) && ( ..Class.Super [ "TECH.Interface")
+]]></Implementation>
+</Method>
+
+<Method name="CreateMethod">
+<FormalSpec>Method:%Dictionary.MethodDefinition</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set MockMethod = ##class(%Dictionary.MethodDefinition).%New()
+	set MockMethod.Name = Method.Name
+	set MockMethod.ClassMethod = Method.ClassMethod
+	set MockMethod.parent = ..MockClass
+	set MockMethod.ReturnType = Method.ReturnType
+	set MockMethod.FormalSpec = Method.FormalSpec
+	
+	#dim CacheCommando As %String = $select($length(Method.ReturnType)>0:"quit",1:"do")
+	
+	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())
+	}
+	
+	#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 _","_ParametersAsString
+	set Line = Line _ ")"
+		
+	do MockMethod.Implementation.WriteLine(Line)
+	do MockMethod.%Save()
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="GetMockClassName">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<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.Super = ..Class.Name_",Tools.Mock.MockClassBase"
+	set MockClass.ProcedureBlock = ..Class.ProcedureBlock
+	do MockClass.%Save()
+	
+	quit MockClass
+]]></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>