Index: vhUnitTest/TECH/ListUtils/Unie/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ListUtils/Unie/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ListUtils/Unie/Test.cls.xml	(revision 3071)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ListUtils.Unie.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Unie van ListOfDataTypes">
+<Implementation><![CDATA[
+	#dim ListOfDataTypes1 As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim ListOfDataTypes2 As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	Do ListOfDataTypes1.Insert("String1")
+	Do ListOfDataTypes1.Insert("String2")
+	Do ListOfDataTypes1.Insert("String3")
+	
+	Do ListOfDataTypes2.Insert("String4")
+	Do ListOfDataTypes2.Insert("String5")
+	
+	#dim Unie As %ListOfDataTypes = ##class(TECH.ListUtils).Unie(ListOfDataTypes1, ListOfDataTypes2)
+	
+	Do $$$AssertEquals(Unie.Count(), 5)
+	
+	Do $$$AssertInList(Unie, "String1")
+	Do $$$AssertInList(Unie, "String2")
+	Do $$$AssertInList(Unie, "String3")
+	Do $$$AssertInList(Unie, "String4")
+	Do $$$AssertInList(Unie, "String5")
+	
+	Do $$$AssertTrue(Unie.%IsA("%ListOfDataTypes"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen dubbele waarden bij Unie van ListOfDataTypes">
+<Implementation><![CDATA[
+	#dim ListOfDataTypes1 As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim ListOfDataTypes2 As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	Do ListOfDataTypes1.Insert("String1")
+	Do ListOfDataTypes1.Insert("String2")
+	Do ListOfDataTypes1.Insert("String3")
+	
+	Do ListOfDataTypes2.Insert("String1")
+	Do ListOfDataTypes2.Insert("String2")
+	
+	#dim Unie As %ListOfDataTypes = ##class(TECH.ListUtils).Unie(ListOfDataTypes1, ListOfDataTypes2)
+	
+	Do $$$AssertEquals(Unie.Count(), 3)
+	
+	Do $$$AssertInList(Unie, "String1")
+	Do $$$AssertInList(Unie, "String2")
+	Do $$$AssertInList(Unie, "String3")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Unie van lege ListOfDataTypes">
+<Implementation><![CDATA[
+	#dim ListOfDataTypes1 As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim ListOfDataTypes2 As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	#dim Unie As %ListOfDataTypes = ##class(TECH.ListUtils).Unie(ListOfDataTypes1, ListOfDataTypes2)
+	
+	Do $$$AssertEquals(Unie.Count(), 0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Unie van ListOfDataTypes met objecten werkt niet">
+<Implementation><![CDATA[
+	// Deze test duidt aan dat de Unie van ListOfDataTypes met objecten niet correct werkt, fixen van deze functionaliteit zal deze test doen falen
+	
+	#dim ListOfDataTypes1 As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim ListOfDataTypes2 As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()	
+	
+	Do ListOfDataTypes1.Insert(##class(vhTest.Dummy.TECH.DataTransferObject).%New("Object1"))
+	
+	#dim Unie As %ListOfDataTypes = ##class(TECH.ListUtils).Unie(ListOfDataTypes1, ListOfDataTypes2)
+
+	Do $$$AssertEquals(Unie.Count(), 1)
+	Do $$$AssertFalse($IsObject(Unie.GetAt(1)))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>