Index: vhUnitTest/TECH/ObjectUtils/ObjectConverterException/ConverteerOutputExceptionsNaarInput/Test.cls.xml
===================================================================
diff -u -r2221 -r2223
--- vhUnitTest/TECH/ObjectUtils/ObjectConverterException/ConverteerOutputExceptionsNaarInput/Test.cls.xml	(.../Test.cls.xml)	(revision 2221)
+++ vhUnitTest/TECH/ObjectUtils/ObjectConverterException/ConverteerOutputExceptionsNaarInput/Test.cls.xml	(.../Test.cls.xml)	(revision 2223)
@@ -37,11 +37,11 @@
 <Implementation><![CDATA[
 	Do ..VoegToeObjectConverterPropertyException("UT_OnbestaandeProperty","output")
 	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen mapping gevonden voor Property","UT_OnbestaandeProperty")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	
 	#dim ConvertData As TECH.ObjectUtils.ObjectConvertData = ..GeefConvertData()
 	Do ..ObjectConverterException.ConverteerOutputExceptionsNaarInput(ConvertData)
-
-	#dim VerwachtePropertyNamen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("")   ; Beter een exceptie smijten i.p.v. waarde "" (leeg) !!!
-	Do ..AssertOmgezetteException(VerwachtePropertyNamen)
 ]]></Implementation>
 </Method>
 
@@ -81,12 +81,12 @@
 	While (ExceptionsIterator.HasNext()) {
 		#dim Exception As TECH.ObjectUtils.ObjectConverterPropertyException = ExceptionsIterator.Next()
 		#dim VerwachtePropertyNaam As %String = VerwachtePropertyNamen.GetAt($Increment(i))
-		Do $$$AssertEquals(Exception.InputOutput,"input")
+		Do $$$AssertEquals(Exception.InputOutput,"input","i="_i)
 		Do $$$AssertEquals(Exception.PropertyName,VerwachtePropertyNaam)
 		
 		Do $$$AssertEquals(Exception.PropertyNameFrom,VerwachtePropertyNaam)
 		Do $$$AssertEquals(Exception.PropertyNameTo,"")
-		Do $$$AssertEquals(Exception.ClassName,"")
+		Do $$$AssertEquals(Exception.ClassName,"","i="_i)
 	}
 ]]></Implementation>
 </Method>