Index: vhUnitTest/Tools/Mock/TestMock.cls.xml
===================================================================
diff -u -r1444 -r1805
--- vhUnitTest/Tools/Mock/TestMock.cls.xml	(.../TestMock.cls.xml)	(revision 1444)
+++ vhUnitTest/Tools/Mock/TestMock.cls.xml	(.../TestMock.cls.xml)	(revision 1805)
@@ -18,150 +18,150 @@
 </Method>
 
 <Method name="TestExceptionBijGeenIndien">
-<Implementation><![CDATA[		Do $$$AssertException("DoeExceptionBijGeenIndien","TECH.Exceptions.MockException","is niet voorzien door de mock")
+<Implementation><![CDATA[	Do $$$AssertException("DoeExceptionBijGeenIndien","TECH.Exceptions.MockException","is niet voorzien door 'vhUnitTest.Tools.Mock.MockVoorbeeld'")
 ]]></Implementation>
 </Method>
 
 <Method name="DoeExceptionBijGeenIndien">
-<Implementation><![CDATA[		Do ..MockVoorbeeld.GeenParametersGeenReturn()
+<Implementation><![CDATA[	Do ..MockVoorbeeld.GeenParametersGeenReturn()
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeenParametersGeenReturn">
 <Implementation><![CDATA[
-		Do ..MockVoorbeeld.IndienMethodCall("GeenParametersGeenReturn")
+	Do ..MockVoorbeeld.IndienMethodCall("GeenParametersGeenReturn")
 		
-		Do ..MockVoorbeeld.GeenParametersGeenReturn()
+	Do ..MockVoorbeeld.GeenParametersGeenReturn()
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeenParametersDataTypeReturn">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-		Do ..MockVoorbeeld.IndienMethodCall("GeenParametersDataTypeReturn").DanReturn("A1")
+	Do ..MockVoorbeeld.IndienMethodCall("GeenParametersDataTypeReturn").DanReturn("A1")
 		
-		Do $$$AssertEquals( "A1", ..MockVoorbeeld.GeenParametersDataTypeReturn() )
-		Do $$$AssertEquals( "A1", ..MockVoorbeeld.GeenParametersDataTypeReturn() )
+	Do $$$AssertEquals( "A1", ..MockVoorbeeld.GeenParametersDataTypeReturn() )
+	Do $$$AssertEquals( "A1", ..MockVoorbeeld.GeenParametersDataTypeReturn() )
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeenParameterObjectReturn">
 <Implementation><![CDATA[
-		Set ReturnObject = ##class(%ListOfDataTypes).%New()
-		Do ..MockVoorbeeld.IndienMethodCall("GeenParameterObjectReturn").DanReturn( ReturnObject )
+	Set ReturnObject = ##class(%ListOfDataTypes).%New()
+	Do ..MockVoorbeeld.IndienMethodCall("GeenParameterObjectReturn").DanReturn( ReturnObject )
 		
-		Do $$$AssertEquals( ReturnObject, ..MockVoorbeeld.GeenParameterObjectReturn() )
-		Do $$$AssertEquals( ReturnObject, ..MockVoorbeeld.GeenParameterObjectReturn() )
+	Do $$$AssertEquals( ReturnObject, ..MockVoorbeeld.GeenParameterObjectReturn() )
+	Do $$$AssertEquals( ReturnObject, ..MockVoorbeeld.GeenParameterObjectReturn() )
 ]]></Implementation>
 </Method>
 
 <Method name="TestDataTypeParameterDataTypeReturn">
 <Implementation><![CDATA[
-		Do ..MockVoorbeeld.IndienMethodCall("DataTypeParameterDataTypeReturn", "A" ).DanReturn( "1" )
-		Do ..MockVoorbeeld.IndienMethodCall("DataTypeParameterDataTypeReturn", "B" ).DanReturn( "2" )
-		
-		// Test ok indien juiste param
-		Do $$$AssertEquals( "1", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("A") )
-		Do $$$AssertEquals( "2", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("B") )
-		
-		// Test nogmaals ok indien juiste param
-		Do $$$AssertEquals( "1", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("A") )
-		Do $$$AssertEquals( "2", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("B") )
-				
-		// Test exc indien verkeerde param
-		try {
-			Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn("C")
-			Do $$$AssertFalse(1, "Exception verwacht")
-		} catch E {
-			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-			Do $$$AssertContains( Exception.ToString(), "is niet voorzien door de mock" )
-		}
-		
-		// Test exc indien verkeerde aantal params
-		try {
-			Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn()
-			Do $$$AssertFalse(1, "Exception verwacht")
-		} catch E {
-			Do $$$AssertEquals( "<UNDEFINED>", E.Name )
-		}
+	Do ..MockVoorbeeld.IndienMethodCall("DataTypeParameterDataTypeReturn", "A" ).DanReturn( "1" )
+	Do ..MockVoorbeeld.IndienMethodCall("DataTypeParameterDataTypeReturn", "B" ).DanReturn( "2" )
+	
+	// Test ok indien juiste param
+	Do $$$AssertEquals( "1", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("A") )
+	Do $$$AssertEquals( "2", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("B") )
+	
+	// Test nogmaals ok indien juiste param
+	Do $$$AssertEquals( "1", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("A") )
+	Do $$$AssertEquals( "2", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("B") )
+			
+	// Test exc indien verkeerde param
+	try {
+		Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn("C")
+		Do $$$AssertFalse(1, "Exception verwacht")
+	} catch E {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertContains( Exception.ToString(), "is niet voorzien door 'vhUnitTest.Tools.Mock.MockVoorbeeld'" )
+	}
+	
+	// Test exc indien verkeerde aantal params
+	try {
+		Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn()
+		Do $$$AssertFalse(1, "Exception verwacht")
+	} catch E {
+		Do $$$AssertEquals( "<UNDEFINED>", E.Name )
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="TestObjectParameterDataTypeReturn">
 <Implementation><![CDATA[
-		Set ObjectA = ##class(%ListOfObjects).%New()
-		Set ObjectB = ##class(%ListOfObjects).%New()
-		
-		Do ..MockVoorbeeld.IndienMethodCall("ObjectParameterDataTypeReturn", ObjectA ).DanReturn( "1" )
-		Do ..MockVoorbeeld.IndienMethodCall("ObjectParameterDataTypeReturn", ObjectB ).DanReturn( "2" )
-		
-		// Test ok indien juiste param
-		Do $$$AssertEquals( "1", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectA ) )
-		Do $$$AssertEquals( "2", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectB ) )
-		
-		// Test nogmaals ok indien juiste param
-		Do $$$AssertEquals( "1", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectA ) )
-		Do $$$AssertEquals( "2", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectB ) )
-				
-		// Test exc indien verkeerde param
-		try {
-			Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn("C")
-			Do $$$AssertFalse(1, "Exception verwacht")
-		} catch E {
-			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-			Do $$$AssertContains( Exception.ToString(), "is niet voorzien door de mock" )
-		}
-		
-		// Test exc indien verkeerde aantal params
-		try {
-			Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn()
-			Do $$$AssertFalse(1, "Exception verwacht")
-		} catch E {
-			Do $$$AssertEquals( "<UNDEFINED>", E.Name )
-		}
+	Set ObjectA = ##class(%ListOfObjects).%New()
+	Set ObjectB = ##class(%ListOfObjects).%New()
+	
+	Do ..MockVoorbeeld.IndienMethodCall("ObjectParameterDataTypeReturn", ObjectA ).DanReturn( "1" )
+	Do ..MockVoorbeeld.IndienMethodCall("ObjectParameterDataTypeReturn", ObjectB ).DanReturn( "2" )
+	
+	// Test ok indien juiste param
+	Do $$$AssertEquals( "1", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectA ) )
+	Do $$$AssertEquals( "2", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectB ) )
+	
+	// Test nogmaals ok indien juiste param
+	Do $$$AssertEquals( "1", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectA ) )
+	Do $$$AssertEquals( "2", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectB ) )
+			
+	// Test exc indien verkeerde param
+	try {
+		Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn("C")
+		Do $$$AssertFalse(1, "Exception verwacht")
+	} catch E {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertContains( Exception.ToString(), "is niet voorzien door 'vhUnitTest.Tools.Mock.MockVoorbeeld'" )
+	}
+	
+	// Test exc indien verkeerde aantal params
+	try {
+		Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn()
+		Do $$$AssertFalse(1, "Exception verwacht")
+	} catch E {
+		Do $$$AssertEquals( "<UNDEFINED>", E.Name )
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="TestTweeParametersDataTypeReturn">
 <Implementation><![CDATA[
-		Set ObjectA = ##class(%ListOfObjects).%New()
-		Set ObjectB = ##class(%ListOfObjects).%New()
-		
-		Do ..MockVoorbeeld.IndienMethodCall("TweeParametersDataTypeReturn", ObjectA, 1 ).DanReturn( "1" )
-		Do ..MockVoorbeeld.IndienMethodCall("TweeParametersDataTypeReturn", 2, ObjectB ).DanReturn( "2" )
-		
-		// Test ok indien juiste param
-		Do $$$AssertEquals( "1", ..MockVoorbeeld.TweeParametersDataTypeReturn( ObjectA, 1 ) )
-		Do $$$AssertEquals( "2", ..MockVoorbeeld.TweeParametersDataTypeReturn( 2, ObjectB ) )
-		
-		// Test nogmaals ok indien juiste param
-		Do $$$AssertEquals( "1", ..MockVoorbeeld.TweeParametersDataTypeReturn( ObjectA, 1 ) )
-		Do $$$AssertEquals( "2", ..MockVoorbeeld.TweeParametersDataTypeReturn( 2, ObjectB ) )
-				
-		// Test exc indien verkeerde param
-		try {
-			Do ..MockVoorbeeld.TweeParametersDataTypeReturn( ObjectA, ObjectB )
-			Do $$$AssertFalse(1, "Exception verwacht")
-		} catch E {
-			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-			Do $$$AssertContains( Exception.ToString(), "is niet voorzien door de mock" )
-		}
-		
-		try {
-			Do ..MockVoorbeeld.TweeParametersDataTypeReturn( 2, 1 )
-			Do $$$AssertFalse(1, "Exception verwacht")
-		} catch E {
-			Set Exception = ##class(TECH.ExceptionHandler).Catch()
-			Do $$$AssertContains( Exception.ToString(), "is niet voorzien door de mock" )
-		}
-		
-		// Test exc indien verkeerde aantal params
-		try {
-			Do ..MockVoorbeeld.TweeParametersDataTypeReturn( 2 )
-			Do $$$AssertFalse(1, "Exception verwacht")
-		} catch E {
-			Do $$$AssertEquals( "<UNDEFINED>", E.Name )
-		}
+	Set ObjectA = ##class(%ListOfObjects).%New()
+	Set ObjectB = ##class(%ListOfObjects).%New()
+	
+	Do ..MockVoorbeeld.IndienMethodCall("TweeParametersDataTypeReturn", ObjectA, 1 ).DanReturn( "1" )
+	Do ..MockVoorbeeld.IndienMethodCall("TweeParametersDataTypeReturn", 2, ObjectB ).DanReturn( "2" )
+	
+	// Test ok indien juiste param
+	Do $$$AssertEquals( "1", ..MockVoorbeeld.TweeParametersDataTypeReturn( ObjectA, 1 ) )
+	Do $$$AssertEquals( "2", ..MockVoorbeeld.TweeParametersDataTypeReturn( 2, ObjectB ) )
+	
+	// Test nogmaals ok indien juiste param
+	Do $$$AssertEquals( "1", ..MockVoorbeeld.TweeParametersDataTypeReturn( ObjectA, 1 ) )
+	Do $$$AssertEquals( "2", ..MockVoorbeeld.TweeParametersDataTypeReturn( 2, ObjectB ) )
+			
+	// Test exc indien verkeerde param
+	try {
+		Do ..MockVoorbeeld.TweeParametersDataTypeReturn( ObjectA, ObjectB )
+		Do $$$AssertFalse(1, "Exception verwacht")
+	} catch E {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertContains( Exception.ToString(), "is niet voorzien door 'vhUnitTest.Tools.Mock.MockVoorbeeld'" )
+	}
+	
+	try {
+		Do ..MockVoorbeeld.TweeParametersDataTypeReturn( 2, 1 )
+		Do $$$AssertFalse(1, "Exception verwacht")
+	} catch E {
+		Set Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertContains( Exception.ToString(), "is niet voorzien door 'vhUnitTest.Tools.Mock.MockVoorbeeld'" )
+	}
+	
+	// Test exc indien verkeerde aantal params
+	try {
+		Do ..MockVoorbeeld.TweeParametersDataTypeReturn( 2 )
+		Do $$$AssertFalse(1, "Exception verwacht")
+	} catch E {
+		Do $$$AssertEquals( "<UNDEFINED>", E.Name )
+	}
 ]]></Implementation>
 </Method>
 </Class>