Index: vhUnitTest/TECH/DTO/Unificeerder/Unificeer/AdvancedDTO.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DTO/Unificeerder/Unificeer/AdvancedDTO.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DTO/Unificeerder/Unificeer/AdvancedDTO.cls.xml	(revision 1179)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DTO.Unificeerder.Unificeer.AdvancedDTO">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="WaardeListOfDataTypes">
+<Type>%ListOfDataTypes</Type>
+</Property>
+
+<Property name="WaardeAdvancedDTO">
+<Type>vhUnitTest.TECH.DTO.Unificeerder.Unificeer.AdvancedDTO</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/ListDTO.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/ListDTO.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/ListDTO.cls.xml	(revision 1179)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.ListDTO">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="WaardeListOfDataTypes">
+<Type>%ListOfDataTypes</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/Test.cls.xml	(revision 1179)
@@ -0,0 +1,95 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="DTODoorsnedeBepaler">
+<Type>TECH.DTODoorsnedeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="TestxxxIllegalArgumentException">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("De argumenten zijn niet van hetzelfde ObjectType.")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.IllegalArgumentException).%ClassName(1),Substrings))
+
+	Set DTO1 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.SimpleDTO).%New()
+	Set DTO2 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.AdvancedDTO).%New()
+	Do ..DTODoorsnedeBepaler.BepaalDoorsnede(DTO1, DTO2)
+]]></Implementation>
+</Method>
+
+<Method name="TestSimpleDTO">
+<Implementation><![CDATA[
+	Set DTO1 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.SimpleDTO).%New()
+	Set DTO1.WaardeString = $$$DummyString
+	Set DTO1.WaardeInteger = 1
+	Set DTO2 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.SimpleDTO).%New()
+	Set DTO2.WaardeString = ""
+	Set DTO2.WaardeInteger = 1
+	
+	#dim UniDTO As vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.SimpleDTO = ..DTODoorsnedeBepaler.BepaalDoorsnede(DTO1, DTO2)
+	
+	Do $$$AssertEquals(UniDTO.%ClassName(1),##class(vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.SimpleDTO).%ClassName(1))
+	Do $$$AssertEquals(UniDTO.WaardeString,"")
+	Do $$$AssertEquals(UniDTO.WaardeInteger,1)
+]]></Implementation>
+</Method>
+
+<Method name="TestListDTO">
+<Implementation><![CDATA[
+	Set DTO1 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.ListDTO).%New()
+	Set DTO1.WaardeListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Waarde1","Waarde2","Waarde3","Waarde4")
+	Set DTO2 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.ListDTO).%New()
+	Set DTO2.WaardeListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Waarde1","Waarde2","Waarde4")
+	
+	#dim UniDTO As vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.ListDTO = ..DTODoorsnedeBepaler.BepaalDoorsnede(DTO1, DTO2)
+	
+	Do $$$AssertEquals(UniDTO.%ClassName(1),##class(vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.ListDTO).%ClassName(1))
+	If $$$AssertEquals(UniDTO.WaardeListOfDataTypes.Count(),3) {
+		Do $$$AssertEquals(UniDTO.WaardeListOfDataTypes.GetAt(1),"Waarde1")
+		Do $$$AssertEquals(UniDTO.WaardeListOfDataTypes.GetAt(2),"Waarde2")
+		Do $$$AssertEquals(UniDTO.WaardeListOfDataTypes.GetAt(3),"Waarde4")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="TestAdvancedDTO">
+<Implementation><![CDATA[
+	Set DTO1 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.AdvancedDTO).%New()
+	Set DTO1.WaardeListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Waarde1","Waarde2","Waarde3","Waarde4")
+	Set SubDTO1 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.AdvancedDTO).%New()
+	Set SubDTO1.WaardeListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("SubWaarde1","SubWaarde2","SubWaarde3")
+	Set DTO1.WaardeAdvancedDTO = SubDTO1
+	Set DTO2 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.AdvancedDTO).%New()
+	Set DTO2.WaardeListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Waarde1","Waarde2","Waarde4")
+	Set SubDTO2 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.AdvancedDTO).%New()
+	Set SubDTO2.WaardeListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("SubWaarde1","SubWaarde2","SubWaarde4")
+	Set DTO2.WaardeAdvancedDTO = SubDTO2
+	
+	#dim UniDTO As vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.AdvancedDTO = ..DTODoorsnedeBepaler.BepaalDoorsnede(DTO1, DTO2)
+	
+	Do $$$AssertEquals(UniDTO.%ClassName(1),##class(vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.AdvancedDTO).%ClassName(1))
+	If $$$AssertEquals(UniDTO.WaardeListOfDataTypes.Count(),3) {
+		Do $$$AssertEquals(UniDTO.WaardeListOfDataTypes.GetAt(1),"Waarde1")
+		Do $$$AssertEquals(UniDTO.WaardeListOfDataTypes.GetAt(2),"Waarde2")
+		Do $$$AssertEquals(UniDTO.WaardeListOfDataTypes.GetAt(3),"Waarde4")
+	}
+	Do $$$AssertEquals(UniDTO.WaardeAdvancedDTO.%ClassName(1),##class(vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.AdvancedDTO).%ClassName(1))
+	If $$$AssertEquals(UniDTO.WaardeAdvancedDTO.WaardeListOfDataTypes.Count(),2) {
+		Do $$$AssertEquals(UniDTO.WaardeAdvancedDTO.WaardeListOfDataTypes.GetAt(1),"SubWaarde1")
+		Do $$$AssertEquals(UniDTO.WaardeAdvancedDTO.WaardeListOfDataTypes.GetAt(2),"SubWaarde2")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+ 	Set ..DTODoorsnedeBepaler = ##class(TECH.DTODoorsnedeBepaler).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/DTO/DTODoorsnedeBepaler/BepaalDoorsnede/AdvancedDTO.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DTO/DTODoorsnedeBepaler/BepaalDoorsnede/AdvancedDTO.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DTO/DTODoorsnedeBepaler/BepaalDoorsnede/AdvancedDTO.cls.xml	(revision 1179)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DTO.DTODoorsnedeBepaler.BepaalDoorsnede.AdvancedDTO">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="WaardeListOfDataTypes">
+<Type>%ListOfDataTypes</Type>
+</Property>
+
+<Property name="WaardeAdvancedDTO">
+<Type>vhUnitTest.TECH.DTO.DTODoorsnedeBepaler.BepaalDoorsnede.AdvancedDTO</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/AdvancedDTO.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/AdvancedDTO.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/AdvancedDTO.cls.xml	(revision 1179)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.AdvancedDTO">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="WaardeListOfDataTypes">
+<Type>%ListOfDataTypes</Type>
+</Property>
+
+<Property name="WaardeAdvancedDTO">
+<Type>vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.AdvancedDTO</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/SimpleDTO.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/SimpleDTO.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/SimpleDTO.cls.xml	(revision 1179)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.SimpleDTO">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="WaardeString">
+<Type>%String</Type>
+</Property>
+
+<Property name="WaardeInteger">
+<Type>%Integer</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/ObjectListDTO.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/ObjectListDTO.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/ObjectListDTO.cls.xml	(revision 1179)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.ObjectListDTO">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="WaardeListOfObjects">
+<Type>vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.SimpleDTO</Type>
+<Collection>list</Collection>
+</Property>
+</Class>
+
+
+</Export>