Index: vhUnitTest/Tools/Mock/TestDoubleCreator/UpdateTestDouble/FakeCreator.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/Mock/TestDoubleCreator/UpdateTestDouble/FakeCreator.cls.xml	(revision 0)
+++ vhUnitTest/Tools/Mock/TestDoubleCreator/UpdateTestDouble/FakeCreator.cls.xml	(revision 1267)
@@ -0,0 +1,221 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.Mock.TestDoubleCreator.UpdateTestDouble.FakeCreator">
+<Super>Tools.Mock.TestDoubleCreator</Super>
+
+<Property name="CreateInstanceMethodAantalOproepen">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="GetMethodBodyAantalOproepen">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="GetDescriptionAantalOproepen">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="GetSuperClassesAantalOproepen">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="GetTestDoubleClassNameAantalOproepen">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="GetTestDoubleClassNameParameterClassName">
+<Type>%String</Type>
+</Property>
+
+<Property name="HeeftKlasseNodigAantalOproepen">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="HeeftKlasseNodigParameterClass">
+<Type>%Dictionary.ClassDefinition</Type>
+</Property>
+
+<Property name="SkipMethodAantalOproepen">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="OpenOrCreateAantalOproepen">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="OpenOrCreateParameterTestDoubleClassName">
+<Type>%String</Type>
+</Property>
+
+<Property name="OpenOrCreateParameterClassName">
+<Type>%String</Type>
+</Property>
+
+<Property name="OpenClassAantalOproepen">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="HeeftKlasseNodig">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SkipMethods">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="GeneratedClass">
+<Type>%Dictionary.ClassDefinition</Type>
+</Property>
+
+<Property name="TestClass">
+<Type>%Dictionary.ClassDefinition</Type>
+</Property>
+
+<Method name="SetHeeftKlasseNodig">
+<FormalSpec>HeeftKlasseNodig:%Boolean</FormalSpec>
+<Implementation><![CDATA[	Set ..HeeftKlasseNodig = HeeftKlasseNodig
+]]></Implementation>
+</Method>
+
+<Method name="SetSkipMethods">
+<FormalSpec>SkipMethods:%Boolean</FormalSpec>
+<Implementation><![CDATA[	Set ..SkipMethods = SkipMethods
+]]></Implementation>
+</Method>
+
+<Method name="CreateInstanceMethod">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..CreateInstanceMethodAantalOproepen = ..CreateInstanceMethodAantalOproepen+1
+]]></Implementation>
+</Method>
+
+<Method name="GetDescription">
+<Private>1</Private>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	Set ..GetDescriptionAantalOproepen = ..GetDescriptionAantalOproepen+1
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GetMethodBody">
+<FormalSpec>Method:%Dictionary.MethodDefinition</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ..GetMethodBodyAantalOproepen = ..GetMethodBodyAantalOproepen+1
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GetSuperClasses">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set ..GetSuperClassesAantalOproepen = ..GetSuperClassesAantalOproepen+1
+	Quit ##class(%ListOfDataTypes).%New()
+]]></Implementation>
+</Method>
+
+<Method name="GetTestDoubleClassName">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ..GetTestDoubleClassNameParameterClassName = ClassName
+	Set ..GetTestDoubleClassNameAantalOproepen = ..GetTestDoubleClassNameAantalOproepen+1
+	Quit "DummyFake"_ClassName
+]]></Implementation>
+</Method>
+
+<Method name="HeeftKlasseNodig">
+<FormalSpec>ClassDefinition:%Dictionary.ClassDefinition</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set ..HeeftKlasseNodigParameterClass = ClassDefinition
+	Set ..HeeftKlasseNodigAantalOproepen = ..HeeftKlasseNodigAantalOproepen+1
+	Quit ..HeeftKlasseNodig
+]]></Implementation>
+</Method>
+
+<Method name="SkipMethod">
+<FormalSpec>Method:%Dictionary.MethodDefinition</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set ..SkipMethodAantalOproepen = ..SkipMethodAantalOproepen+1
+	Quit ..SkipMethods
+]]></Implementation>
+</Method>
+
+<Method name="OpenOrCreate">
+<FormalSpec>TestDoubleClassName:%String,ClassName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Dictionary.ClassDefinition</ReturnType>
+<Implementation><![CDATA[
+	Set ..OpenOrCreateParameterTestDoubleClassName = TestDoubleClassName
+	Set ..OpenOrCreateParameterClassName = ClassName
+	Set ..OpenOrCreateAantalOproepen = ..OpenOrCreateAantalOproepen+1
+	Set ..GeneratedClass = ..GetNewClassDefinition(TestDoubleClassName)
+	Quit ..GeneratedClass
+]]></Implementation>
+</Method>
+
+<Method name="OpenClass">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Dictionary.ClassDefinition</ReturnType>
+<Implementation><![CDATA[
+	set ..OpenClassAantalOproepen = ..OpenClassAantalOproepen+1
+	Set ..TestClass = ..GetNewClassDefinition(ClassName)
+	
+	set Method = ##class(%Dictionary.MethodDefinition).%New()
+	set Method.Name = "DummyMethod"
+	set Method.ClassMethod = $$$False
+	set Method.parent = ..TestClass
+	set Method.ReturnType = ""
+	set Method.FormalSpec = ""
+	set Method.SequenceNumber = 2
+	
+	
+	Quit ..TestClass
+]]></Implementation>
+</Method>
+
+<Method name="GetNewClassDefinition">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Dictionary.ClassDefinition</ReturnType>
+<Implementation><![CDATA[
+	Set Class = ##class(%Dictionary.ClassDefinition).%New()
+	Set Class.Name = ClassName
+	Quit Class
+]]></Implementation>
+</Method>
+
+<Method name="SaveGeneratedClass">
+<Private>1</Private>
+</Method>
+
+<Method name="HasToClearMethods">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$True
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Tools/Mock/TestDoubleCreator/UpdateTestDouble/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/Mock/TestDoubleCreator/UpdateTestDouble/Test.cls.xml	(revision 0)
+++ vhUnitTest/Tools/Mock/TestDoubleCreator/UpdateTestDouble/Test.cls.xml	(revision 1267)
@@ -0,0 +1,131 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.Mock.TestDoubleCreator.UpdateTestDouble.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="DummyClassName">
+<Type>%String</Type>
+<Default>FakeClass</Default>
+</Parameter>
+
+<Property name="FakeSvnHelper">
+<Type>vhUnitTest.Fake.svn.Helper</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FakeCreator">
+<Type>vhUnitTest.Tools.Mock.TestDoubleCreator.UpdateTestDouble.FakeCreator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..FakeSvnHelper = ##class(vhUnitTest.Fake.svn.Helper).%New()
+	Set ..FakeCreator = ##class(vhUnitTest.Tools.Mock.TestDoubleCreator.UpdateTestDouble.FakeCreator).%New(..FakeSvnHelper)
+]]></Implementation>
+</Method>
+
+<Method name="TestUpdateNietNodig">
+<Implementation><![CDATA[
+	Do ..FakeCreator.SetHeeftKlasseNodig($$$False)
+	
+	Do ..FakeCreator.UpdateTestDouble(..#DummyClassName)
+	Do ..AssertCallOpenClass()
+	Do ..AssertCallHeeftKlasseNodig()
+	Do $$$AssertEquals(..FakeCreator.OpenOrCreateAantalOproepen,0)
+	Do $$$AssertEquals(..FakeCreator.CreateInstanceMethodAantalOproepen,0)
+	Do $$$AssertEquals(..FakeCreator.GetMethodBodyAantalOproepen,0)
+	Do $$$AssertEquals(..FakeCreator.GetDescriptionAantalOproepen,0)
+	Do $$$AssertEquals(..FakeCreator.GetSuperClassesAantalOproepen,0)
+	Do $$$AssertEquals(..FakeCreator.GetTestDoubleClassNameAantalOproepen,0)
+	Do $$$AssertEquals(..FakeCreator.SkipMethodAantalOproepen,0)
+	Do ..AssertSvnHelperCalls(0)
+]]></Implementation>
+</Method>
+
+<Method name="TestClassWithoutMethods">
+<Implementation><![CDATA[
+	Do ..FakeCreator.SetHeeftKlasseNodig($$$True)
+	Do ..FakeCreator.SetSkipMethods($$$True)
+	
+	Do ..FakeCreator.UpdateTestDouble(..#DummyClassName)
+	
+	Do ..AssertCallOpenClass()
+	Do ..AssertCallHeeftKlasseNodig()
+	Do ..AssertCallGetTestDoubleClassName()
+	Do ..AssertCallOpenOrCreate()
+	Do $$$AssertEquals(..FakeCreator.GetDescriptionAantalOproepen,1)
+	Do $$$AssertEquals(..FakeCreator.CreateInstanceMethodAantalOproepen,1)
+	Do $$$AssertEquals(..FakeCreator.GetMethodBodyAantalOproepen,0)
+	Do $$$AssertEquals(..FakeCreator.GetSuperClassesAantalOproepen,1)
+	Do $$$AssertEquals(..FakeCreator.SkipMethodAantalOproepen,1)
+	Do $$$AssertTrue($IsObject(..FakeCreator.GeneratedClass))
+	Do ..AssertSvnHelperCalls(1)
+]]></Implementation>
+</Method>
+
+<Method name="TestClassWithMethods">
+<Implementation><![CDATA[
+	Do ..FakeCreator.SetHeeftKlasseNodig($$$True)
+	Do ..FakeCreator.SetSkipMethods($$$False)
+	
+	Do ..FakeCreator.UpdateTestDouble(..#DummyClassName)
+	
+	Do ..AssertCallOpenClass()
+	Do ..AssertCallHeeftKlasseNodig()
+	Do ..AssertCallGetTestDoubleClassName()
+	Do ..AssertCallOpenOrCreate()
+	Do $$$AssertEquals(..FakeCreator.GetDescriptionAantalOproepen,1)
+	Do $$$AssertEquals(..FakeCreator.CreateInstanceMethodAantalOproepen,1)
+	Do $$$AssertEquals(..FakeCreator.GetMethodBodyAantalOproepen,1)
+	Do $$$AssertEquals(..FakeCreator.GetSuperClassesAantalOproepen,1)
+	Do $$$AssertEquals(..FakeCreator.SkipMethodAantalOproepen,1)
+	Do $$$AssertTrue($IsObject(..FakeCreator.GeneratedClass))
+	Do ..AssertSvnHelperCalls(1)
+]]></Implementation>
+</Method>
+
+<Method name="AssertCallOpenClass">
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertEquals(..FakeCreator.OpenClassAantalOproepen,1)
+]]></Implementation>
+</Method>
+
+<Method name="AssertCallHeeftKlasseNodig">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(..FakeCreator.HeeftKlasseNodigAantalOproepen,1)
+	DO $$$AssertObject(..FakeCreator.TestClass, ..FakeCreator.HeeftKlasseNodigParameterClass)
+]]></Implementation>
+</Method>
+
+<Method name="AssertCallGetTestDoubleClassName">
+<Private>1</Private>
+<Implementation><![CDATA[
+    Do $$$AssertEquals(..FakeCreator.GetTestDoubleClassNameAantalOproepen,1)
+	DO $$$AssertEquals(..FakeCreator.GetTestDoubleClassNameParameterClassName,..#DummyClassName)
+]]></Implementation>
+</Method>
+
+<Method name="AssertCallOpenOrCreate">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(..FakeCreator.OpenOrCreateAantalOproepen,1)
+	Do $$$AssertEquals(..FakeCreator.OpenOrCreateParameterClassName,..#DummyClassName)
+	Do $$$AssertEquals(..FakeCreator.OpenOrCreateParameterTestDoubleClassName,"DummyFake"_..#DummyClassName)
+]]></Implementation>
+</Method>
+
+<Method name="AssertSvnHelperCalls">
+<FormalSpec>VerwachtAantalKeerOpgeroepen:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(..FakeSvnHelper.GeefAantalKeerOpgeroepen("CompileImportedSourceCode"),VerwachtAantalKeerOpgeroepen)
+	Do $$$AssertEquals(..FakeSvnHelper.GeefAantalKeerOpgeroepen("SVNExport"),VerwachtAantalKeerOpgeroepen)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>