Index: vhUnitTest/TECH/DTODoorsnedeBepaler/ObjectListDTO.cls.xml
===================================================================
diff -u -r1179 -r1190
--- vhUnitTest/TECH/DTODoorsnedeBepaler/ObjectListDTO.cls.xml	(.../BepaalDoorsnede/ObjectListDTO.cls.xml)	(revision 1179)
+++ vhUnitTest/TECH/DTODoorsnedeBepaler/ObjectListDTO.cls.xml	(.../ObjectListDto.cls.xml)	(revision 1190)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.ObjectListDTO">
+<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.ObjectListDto">
 <Super>TECH.DataTransferObject</Super>
 
 <Property name="WaardeListOfObjects">
-<Type>vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.SimpleDTO</Type>
+<Type>vhUnitTest.TECH.DTODoorsnedeBepaler.SimpleDto</Type>
 <Collection>list</Collection>
 </Property>
 </Class>
FishEye: Tag 1190 refers to a dead (removed) revision in file `vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/SimpleDTO.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/TECH/DTODoorsnedeBepaler/AdvancedDTO.cls.xml
===================================================================
diff -u -r1179 -r1190
--- vhUnitTest/TECH/DTODoorsnedeBepaler/AdvancedDTO.cls.xml	(.../BepaalDoorsnede/AdvancedDTO.cls.xml)	(revision 1179)
+++ vhUnitTest/TECH/DTODoorsnedeBepaler/AdvancedDTO.cls.xml	(.../AdvancedDto.cls.xml)	(revision 1190)
@@ -1,14 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.AdvancedDTO">
+<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.AdvancedDto">
 <Super>TECH.DataTransferObject</Super>
 
 <Property name="WaardeListOfDataTypes">
 <Type>%ListOfDataTypes</Type>
 </Property>
 
 <Property name="WaardeAdvancedDTO">
-<Type>vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.AdvancedDTO</Type>
+<Type>vhUnitTest.TECH.DTODoorsnedeBepaler.AdvancedDto</Type>
 </Property>
 </Class>
 
FishEye: Tag 1190 refers to a dead (removed) revision in file `vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/AdvancedDTO.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/TestAdvancedDto.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/TestAdvancedDto.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/TestAdvancedDto.cls.xml	(revision 1190)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.TestAdvancedDto">
+<Super>vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.Base</Super>
+
+<Method name="TestAdvancedDto">
+<Implementation><![CDATA[
+	Set Dto1 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.AdvancedDto).%New()
+	Set Dto1.WaardeListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Waarde1","Waarde2","Waarde3","Waarde4")
+	Set SubDto1 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.AdvancedDto).%New()
+	Set SubDto1.WaardeListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("SubWaarde1","SubWaarde2","SubWaarde3")
+	Set Dto1.WaardeAdvancedDTO = SubDto1
+	Set Dto2 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.AdvancedDto).%New()
+	Set Dto2.WaardeListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Waarde1","Waarde2","Waarde4")
+	Set SubDto2 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.AdvancedDto).%New()
+	Set SubDto2.WaardeListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("SubWaarde1","SubWaarde2","SubWaarde4")
+	Set Dto2.WaardeAdvancedDTO = SubDto2
+	
+	#dim UniDto As vhUnitTest.TECH.DTODoorsnedeBepaler.AdvancedDto = ..DtoDoorsnedeBepaler.BepaalDoorsnede(Dto1, Dto2)
+	
+	Do $$$AssertEquals(UniDto.%ClassName(1),##class(vhUnitTest.TECH.DTODoorsnedeBepaler.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.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>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/DoorsnedeBepaler/BepaalDoorsnedeArrayOfDto/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DoorsnedeBepaler/BepaalDoorsnedeArrayOfDto/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DoorsnedeBepaler/BepaalDoorsnedeArrayOfDto/Test.cls.xml	(revision 1190)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DoorsnedeBepaler.BepaalDoorsnedeArrayOfDto.Test">
+<Super>vhUnitTest.TECH.DoorsnedeBepaler.Base</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim MogelijkeWaarden1 As Array Of APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = ##class(%ArrayOfObjects).%New()
+	Set KenmerkenWaardenLijst = ##class(APPS.PM.Maatwerk.dto.KenmerkWaardenLijst).%New()
+	Set KenmerkenWaardenLijst.Waarden = ##class(TECH.ListUtils).CreateListOfDataTypes("BZ", "DG", "WI")
+	Do MogelijkeWaarden1.SetAt(KenmerkenWaardenLijst, "BodemKleur")
+	Set KenmerkenWaardenLijst = ##class(APPS.PM.Maatwerk.dto.KenmerkWaardenLijst).%New()
+	Set KenmerkenWaardenLijst.Waarden = ##class(TECH.ListUtils).CreateListOfDataTypes(40, 70)
+	Do MogelijkeWaarden1.SetAt(KenmerkenWaardenLijst, "Draagkracht")
+	
+	#dim MogelijkeWaarden2 As Array Of APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = ##class(%ArrayOfObjects).%New()
+	Set KenmerkenWaardenLijst = ##class(APPS.PM.Maatwerk.dto.KenmerkWaardenLijst).%New()
+	Set KenmerkenWaardenLijst.Waarden = ##class(TECH.ListUtils).CreateListOfDataTypes("BZ", "WI")
+	Do MogelijkeWaarden2.SetAt(KenmerkenWaardenLijst, "BodemKleur")
+	Set KenmerkenWaardenLijst = ##class(APPS.PM.Maatwerk.dto.KenmerkWaardenLijst).%New()
+	Set KenmerkenWaardenLijst.Waarden = ##class(TECH.ListUtils).CreateListOfDataTypes(40, 70)
+	Do MogelijkeWaarden2.SetAt(KenmerkenWaardenLijst, "Draagkracht")
+	Do MogelijkeWaarden2.SetAt(KenmerkenWaardenLijst, "NietInDoorsnede")
+
+	#dim MogelijkeWaarden As Array of APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = ..DoorsnedeBepaler.BepaalDoorsnedeArrayOfDto(MogelijkeWaarden1, MogelijkeWaarden2)
+	
+	If $$$AssertEquals(MogelijkeWaarden.Count(),2) {
+		If $$$AssertTrue(MogelijkeWaarden.IsDefined("BodemKleur")) {
+			#dim Waarden As List of %String = MogelijkeWaarden.GetAt("BodemKleur").Waarden
+			If $$$AssertEquals(Waarden.Count(),2) {
+				Do $$$AssertEquals(Waarden.GetAt(1),"BZ")
+				Do $$$AssertEquals(Waarden.GetAt(2),"WI")
+			}
+		}
+		If $$$AssertTrue(MogelijkeWaarden.IsDefined("Draagkracht")) {
+			Set Waarden = MogelijkeWaarden.GetAt("Draagkracht").Waarden
+			If $$$AssertEquals(Waarden.Count(),2) {
+				Do $$$AssertEquals(Waarden.GetAt(1),40)
+				Do $$$AssertEquals(Waarden.GetAt(2),70)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 1190 refers to a dead (removed) revision in file `vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/TECH/DTODoorsnedeBepaler/ListDTO.cls.xml
===================================================================
diff -u -r1179 -r1190
--- vhUnitTest/TECH/DTODoorsnedeBepaler/ListDTO.cls.xml	(.../BepaalDoorsnede/ListDTO.cls.xml)	(revision 1179)
+++ vhUnitTest/TECH/DTODoorsnedeBepaler/ListDTO.cls.xml	(.../ListDto.cls.xml)	(revision 1190)
@@ -1,11 +1,16 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.ListDTO">
+<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.ListDto">
 <Super>TECH.DataTransferObject</Super>
 
 <Property name="WaardeListOfDataTypes">
 <Type>%ListOfDataTypes</Type>
 </Property>
+
+<Property name="WaardeListOfString">
+<Type>%String</Type>
+<Collection>list</Collection>
+</Property>
 </Class>
 
 
Index: vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/TestVerschillendeTypes.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/TestVerschillendeTypes.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/TestVerschillendeTypes.cls.xml	(revision 1190)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.TestVerschillendeTypes">
+<Super>vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.Base</Super>
+
+<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.SimpleDto).%New()
+	Set Dto2 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.AdvancedDto).%New()
+	Do ..DtoDoorsnedeBepaler.BepaalDoorsnede(Dto1, Dto2)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/DTODoorsnedeBepaler/ArrayDto.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DTODoorsnedeBepaler/ArrayDto.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DTODoorsnedeBepaler/ArrayDto.cls.xml	(revision 1190)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.ArrayDto">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="WaardeArrayOfDataTypes">
+<Type>%ArrayOfDataTypes</Type>
+</Property>
+
+<Property name="WaardeArrayOfString">
+<Type>%String</Type>
+<Collection>array</Collection>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/DoorsnedeBepaler/Base.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DoorsnedeBepaler/Base.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DoorsnedeBepaler/Base.cls.xml	(revision 1190)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DoorsnedeBepaler.Base">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="DoorsnedeBepaler">
+<Type>TECH.DoorsnedeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+	Set ..DoorsnedeBepaler = ##class(TECH.DoorsnedeBepaler).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/Base.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/Base.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/Base.cls.xml	(revision 1190)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.Base">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="DtoDoorsnedeBepaler">
+<Type>TECH.DTODoorsnedeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+ 	Set ..DtoDoorsnedeBepaler = ##class(TECH.DTODoorsnedeBepaler).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnedeVanArrayVanDTO/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnedeVanArrayVanDTO/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnedeVanArrayVanDTO/Test.cls.xml	(revision 1190)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnedeVanArrayVanDTO.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim MogelijkeWaarden1 As Array Of APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = ##class(%ArrayOfObjects).%New()
+	Set KenmerkenWaardenLijst = ##class(APPS.PM.Maatwerk.dto.KenmerkWaardenLijst).%New()
+	Set KenmerkenWaardenLijst.Waarden = ##class(TECH.ListUtils).CreateListOfDataTypes("BZ", "DG", "WI")
+	Do MogelijkeWaarden1.SetAt(KenmerkenWaardenLijst, "BodemKleur")
+	Set KenmerkenWaardenLijst = ##class(APPS.PM.Maatwerk.dto.KenmerkWaardenLijst).%New()
+	Set KenmerkenWaardenLijst.Waarden = ##class(TECH.ListUtils).CreateListOfDataTypes(40, 70)
+	Do MogelijkeWaarden1.SetAt(KenmerkenWaardenLijst, "Draagkracht")
+	
+	#dim MogelijkeWaarden2 As Array Of APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = ##class(%ArrayOfObjects).%New()
+	Set KenmerkenWaardenLijst = ##class(APPS.PM.Maatwerk.dto.KenmerkWaardenLijst).%New()
+	Set KenmerkenWaardenLijst.Waarden = ##class(TECH.ListUtils).CreateListOfDataTypes("BZ", "WI")
+	Do MogelijkeWaarden2.SetAt(KenmerkenWaardenLijst, "BodemKleur")
+	Set KenmerkenWaardenLijst = ##class(APPS.PM.Maatwerk.dto.KenmerkWaardenLijst).%New()
+	Set KenmerkenWaardenLijst.Waarden = ##class(TECH.ListUtils).CreateListOfDataTypes(40, 70)
+	Do MogelijkeWaarden2.SetAt(KenmerkenWaardenLijst, "Draagkracht")
+	Do MogelijkeWaarden2.SetAt(KenmerkenWaardenLijst, "NietInDoorsnede")
+
+	Set DTODoorsnedeBepaler = ##class(TECH.DoorsnedeBepaler).%New()
+	#dim MogelijkeWaarden As Array of APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = DTODoorsnedeBepaler.BepaalDoorsnedeArrayOfDto(MogelijkeWaarden1, MogelijkeWaarden2)
+	If $$$AssertEquals(MogelijkeWaarden.Count(),2) {
+		If $$$AssertTrue(MogelijkeWaarden.IsDefined("BodemKleur")) {
+			#dim Waarden As List of %String = MogelijkeWaarden.GetAt("BodemKleur").Waarden
+			If $$$AssertEquals(Waarden.Count(),2) {
+				Do $$$AssertEquals(Waarden.GetAt(1),"BZ")
+				Do $$$AssertEquals(Waarden.GetAt(2),"WI")
+			}
+		}
+		If $$$AssertTrue(MogelijkeWaarden.IsDefined("Draagkracht")) {
+			Set Waarden = MogelijkeWaarden.GetAt("Draagkracht").Waarden
+			If $$$AssertEquals(Waarden.Count(),2) {
+				Do $$$AssertEquals(Waarden.GetAt(1),40)
+				Do $$$AssertEquals(Waarden.GetAt(2),70)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 1190 refers to a dead (removed) revision in file `vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/ObjectListDTO.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/TestListOfDataTypesDto.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/TestListOfDataTypesDto.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/TestListOfDataTypesDto.cls.xml	(revision 1190)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.TestListOfDataTypesDto">
+<Super>vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.Base</Super>
+
+<Method name="TestListDto">
+<Implementation><![CDATA[
+	Set Dto1 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.ListDto).%New()
+	Set Dto1.WaardeListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Waarde1","Waarde2","Waarde3","Waarde4")
+	Set Dto1.WaardeListOfString = ##class(TECH.ListUtils).CreateListOfDataTypes("Waarde1","Waarde2","Waarde3","Waarde4")
+	Set Dto2 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.ListDto).%New()
+	Set Dto2.WaardeListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Waarde1","Waarde2","Waarde4")
+	Set Dto2.WaardeListOfString = ##class(TECH.ListUtils).CreateListOfDataTypes("Waarde1","Waarde2","Waarde4")
+	
+	#dim UniDto As vhUnitTest.TECH.DTODoorsnedeBepaler.ListDto = ..DtoDoorsnedeBepaler.BepaalDoorsnede(Dto1, Dto2)
+	
+	Do $$$AssertEquals(UniDto.%ClassName(1),##class(vhUnitTest.TECH.DTODoorsnedeBepaler.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")
+	}
+	If $$$AssertEquals(UniDto.WaardeListOfString.Count(),3) {
+		Do $$$AssertEquals(UniDto.WaardeListOfString.GetAt(1),"Waarde1")
+		Do $$$AssertEquals(UniDto.WaardeListOfString.GetAt(2),"Waarde2")
+		Do $$$AssertEquals(UniDto.WaardeListOfString.GetAt(3),"Waarde4")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/DTODoorsnedeBepaler/SimpleDTO.cls.xml
===================================================================
diff -u -r1179 -r1190
--- vhUnitTest/TECH/DTODoorsnedeBepaler/SimpleDTO.cls.xml	(.../BepaalDoorsnede/SimpleDTO.cls.xml)	(revision 1179)
+++ vhUnitTest/TECH/DTODoorsnedeBepaler/SimpleDTO.cls.xml	(.../SimpleDto.cls.xml)	(revision 1190)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.SimpleDTO">
+<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.SimpleDto">
 <Super>TECH.DataTransferObject</Super>
 
 <Property name="WaardeString">
FishEye: Tag 1190 refers to a dead (removed) revision in file `vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/ListDTO.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/TestSimpleDto.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/TestSimpleDto.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DTODoorsnedeBepaler/BepaalDoorsnede/TestSimpleDto.cls.xml	(revision 1190)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.TestSimpleDto">
+<Super>vhUnitTest.TECH.DTODoorsnedeBepaler.BepaalDoorsnede.Base</Super>
+
+<Method name="TestSimpleDto">
+<Implementation><![CDATA[
+	Set Dto1 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.SimpleDto).%New()
+	Set Dto1.WaardeString = $$$DummyString
+	Set Dto1.WaardeInteger = 1
+	Set Dto2 = ##class(vhUnitTest.TECH.DTODoorsnedeBepaler.SimpleDto).%New()
+	Set Dto2.WaardeString = ""
+	Set Dto2.WaardeInteger = 1
+	
+	#dim UniDto As vhUnitTest.TECH.DTODoorsnedeBepaler.SimpleDto = ..DtoDoorsnedeBepaler.BepaalDoorsnede(Dto1, Dto2)
+	
+	Do $$$AssertEquals(UniDto.%ClassName(1),##class(vhUnitTest.TECH.DTODoorsnedeBepaler.SimpleDto).%ClassName(1))
+	Do $$$AssertEquals(UniDto.WaardeString,"")
+	Do $$$AssertEquals(UniDto.WaardeInteger,1)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>