Index: vhUnitTest/TECH/ObjectUtils/ObjectConverter.cls.xml
===================================================================
diff -u -r2202 -r2209
--- vhUnitTest/TECH/ObjectUtils/ObjectConverter.cls.xml	(.../ObjectConverter.cls.xml)	(revision 2202)
+++ vhUnitTest/TECH/ObjectUtils/ObjectConverter.cls.xml	(.../ObjectConverter.cls.xml)	(revision 2209)
@@ -88,7 +88,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Onbekende property -&gt; Runtime exception">
+<Method name="Test: Onbekende property in input-&gt; Runtime exception">
 <Implementation><![CDATA[
 	try {
 		set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
@@ -113,14 +113,39 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Onbekende property in output-&gt; Runtime exception">
+<Implementation><![CDATA[
+	try {
+		set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+		do ConversionData.Add("AsInteger","OnbestaandeProperty")
+		
+		set ObjectTo = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
+		
+		do ..ObjectConverter.Convert(..GetObjectFrom(),ObjectTo,ConversionData)
+		
+		do ..Fail("Er was een exeptie verwacht")
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		do $$$AssertEquals(Exception.%ClassName(1),"TECH.ObjectUtils.ObjectConverterException")
+		
+		#dim ExceptionList As TECH.ExceptionList = Exception.GeefInnerExcepties()
+		if $$$AssertEquals(ExceptionList.Count(),1) {
+			do $$$AssertEquals(ExceptionList.GetAt(1).%ClassName(1),"TECH.Exceptions.RuntimeException")
+			do $$$AssertContains(ExceptionList.GetAt(1).GeefOmschrijving(),"<PROPERTY DOES NOT EXIST>")
+			do $$$AssertContains(ExceptionList.GetAt(1).GeefOmschrijving(),"*OnbestaandeProperty")	
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="Test: Ongeldige waarde in opgegeven object -&gt; Object Converter Property Exception - Input">
 <Implementation><![CDATA[
 	try {
 		set ObjectFrom = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
 		set ObjectFrom.AsEnumeration = "InvalidValue"
 		
 		set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
-		do ConversionData.Add("AsEnumeration","AsEnumeration")
+		do ConversionData.Add("AsEnumeration","AsString")
 		
 		set ObjectTo = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
 
@@ -137,8 +162,11 @@
 		if $$$AssertEquals(ExceptionList.Count(),1) {
 			do $$$AssertEquals(ExceptionList.GetAt(1).%ClassName(1),"TECH.ObjectUtils.ObjectConverterPropertyException")
 			do $$$AssertEquals(ExceptionList.GetAt(1).GeefOmschrijving(),"Invalid input validation. Value 'InvalidValue' not valid for 'AsEnumeration' on 'vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object'.")
+			do $$$AssertEquals(ExceptionList.GetAt(1).PropertyNameFrom,"AsEnumeration")
+			do $$$AssertEquals(ExceptionList.GetAt(1).PropertyNameTo,"AsString")
 			do $$$AssertFalse(ExceptionList.GetAt(1).IsOutput())
 			do $$$AssertTrue(ExceptionList.GetAt(1).IsInput())
+			
 		}
 	}
 ]]></Implementation>
@@ -168,9 +196,10 @@
 		if $$$AssertEquals(ExceptionList.Count(),1) {
 			do $$$AssertEquals(ExceptionList.GetAt(1).%ClassName(1),"TECH.ObjectUtils.ObjectConverterPropertyException")
 			do $$$AssertEquals(ExceptionList.GetAt(1).GeefOmschrijving(),"Invalid output validation. Value 'InvalidValue' not valid for 'AsEnumeration' on 'vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object'.")
+			do $$$AssertEquals(ExceptionList.GetAt(1).PropertyNameFrom,"AsString")
+			do $$$AssertEquals(ExceptionList.GetAt(1).PropertyNameTo,"AsEnumeration")
 			do $$$AssertTrue(ExceptionList.GetAt(1).IsOutput())
 			do $$$AssertFalse(ExceptionList.GetAt(1).IsInput())
-			
 		}
 	}
 ]]></Implementation>