Index: vhUnitTest/TECH/KeyValue/List/Test.cls.xml
===================================================================
diff -u -r1890 -r2582
--- vhUnitTest/TECH/KeyValue/List/Test.cls.xml	(.../Test.cls.xml)	(revision 1890)
+++ vhUnitTest/TECH/KeyValue/List/Test.cls.xml	(.../Test.cls.xml)	(revision 2582)
@@ -8,6 +8,50 @@
 <Implementation><![CDATA[	Set ..KeyValueList = ##class(TECH.KeyValue.List).%New()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: GetValuesByKey - 0 relevante values">
+<Implementation><![CDATA[
+	Do ..KeyValueList.InsertKeyValue("Key1", "Value1")
+	Do ..KeyValueList.InsertKeyValue("Key2", "Value2")
+	Do ..KeyValueList.InsertKeyValue("Key2", "Value3")
+	Do ..KeyValueList.InsertKeyValue("Key3", "Value2")
+		
+	#Dim Values As %ListOfDataTypes = ..KeyValueList.GetValuesForKey("KeyElvenDertig")
+
+	Do $$$AssertEquals(Values.Count(), 0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GetValuesByKey - 1 relevante value">
+<Implementation><![CDATA[
+	Do ..KeyValueList.InsertKeyValue("Key1", "Value1")
+	Do ..KeyValueList.InsertKeyValue("Key2", "Value2")
+	Do ..KeyValueList.InsertKeyValue("Key2", "Value3")
+	Do ..KeyValueList.InsertKeyValue("Key3", "Value2")
+		
+	#Dim Values As %ListOfDataTypes = ..KeyValueList.GetValuesForKey("Key1")
+
+	If $$$AssertEquals(Values.Count(), 1) {
+		Do $$$AssertEquals(Values.GetAt(1), "Value1")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: GetValuesByKey - 2 relevante values">
+<Implementation><![CDATA[
+	Do ..KeyValueList.InsertKeyValue("Key1", "Value1")
+	Do ..KeyValueList.InsertKeyValue("Key2", "Value2")
+	Do ..KeyValueList.InsertKeyValue("Key2", "Value3")
+	Do ..KeyValueList.InsertKeyValue("Key3", "Value2")
+		
+	#Dim Values As %ListOfDataTypes = ..KeyValueList.GetValuesForKey("Key2")
+
+	If $$$AssertEquals(Values.Count(), 2) {
+		Do $$$AssertEquals(Values.GetAt(1), "Value2")
+		Do $$$AssertEquals(Values.GetAt(2), "Value3")
+	}
+]]></Implementation>
+</Method>
 </Class>