Index: vhUnitTest/TECH/ObjectUtils/ObjectConverterException/ConverteerOutputExceptionsNaarInput/Test.cls.xml =================================================================== diff -u -r2219 -r2221 --- vhUnitTest/TECH/ObjectUtils/ObjectConverterException/ConverteerOutputExceptionsNaarInput/Test.cls.xml (.../Test.cls.xml) (revision 2219) +++ vhUnitTest/TECH/ObjectUtils/ObjectConverterException/ConverteerOutputExceptionsNaarInput/Test.cls.xml (.../Test.cls.xml) (revision 2221) @@ -28,10 +28,8 @@ Do ..VoegToeObjectConverterPropertyException("Dummy3","output") #dim ConvertData As TECH.ObjectUtils.ObjectConvertData = ..GeefConvertData() - Do ..ObjectConverterException.ConverteerOutputExceptionsNaarInput(ConvertData) - #dim VerwachtePropertyNamen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Dummy1From", "Dummy2", "Dummy3From") - Do ..AssertOmgezetteException(VerwachtePropertyNamen) + Do ..AssertOmgezetteException(ConvertData,VerwachtePropertyNamen) ]]> @@ -56,10 +54,8 @@ Do ..ObjectConverterException.VoegToeInnerExceptie(Exception) #dim NoObjectConvertData As TECH.ObjectUtils.ObjectConvertData = "" - Do ..ObjectConverterException.ConverteerOutputExceptionsNaarInput(NoObjectConvertData) - #dim VerwachtePropertyNamen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(PropertyNameFrom) - Do ..AssertOmgezetteException(VerwachtePropertyNamen) + Do ..AssertOmgezetteException(NoObjectConvertData,VerwachtePropertyNamen) ]]> @@ -75,11 +71,13 @@ -VerwachtePropertyNamen:%ListOfDataTypes +ConvertData:TECH.ObjectUtils.ObjectConvertData,VerwachtePropertyNamen:%ListOfDataTypes 1