Index: vhUnitTest/TECH/KeyValue/UniqueList/RemoveByKey/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/KeyValue/UniqueList/RemoveByKey/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/KeyValue/UniqueList/RemoveByKey/Test.cls.xml	(revision 3596)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.KeyValue.UniqueList.RemoveByKey.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: verwijderen van aanwezige key uit lijst met 1 item">
+<Implementation><![CDATA[
+	#dim KeyValuePair1 As TECH.KeyValuePair = ##class(TECH.KeyValuePair).%New("Key1", "Value1")
+	
+	Set KeyValueList = ##class(TECH.KeyValue.UniqueList).%New()
+	Do KeyValueList.InsertAt(KeyValuePair1, 1)
+	
+	Do $$$AssertEquals(KeyValueList.Count(),"1")
+	Do $$$AssertTrue($$$ISOK(KeyValueList.RemoveByKey("Key1")),"")
+	Do $$$AssertEquals(KeyValueList.Count(),"0")
+]]></Implementation>
+</Method>
+
+<Method name="Test: verwijderen van aanwezige key uit lijst met 2 items">
+<Implementation><![CDATA[
+	#dim KeyValuePair1 As TECH.KeyValuePair = ##class(TECH.KeyValuePair).%New("Key1", "Value1")
+	#dim KeyValuePair2 As TECH.KeyValuePair = ##class(TECH.KeyValuePair).%New("Key2", "Value2")
+	
+	Set KeyValueList = ##class(TECH.KeyValue.UniqueList).%New()
+	Do KeyValueList.InsertAt(KeyValuePair1, 1)
+	Do KeyValueList.InsertAt(KeyValuePair2, 2)
+	
+	Do $$$AssertEquals(KeyValueList.Count(),"2")
+	Do $$$AssertTrue($$$ISOK(KeyValueList.RemoveByKey("Key1")),"")
+	Do $$$AssertEquals(KeyValueList.Count(),"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: verwijderen van onbestaande key uit lege lijst">
+<Implementation><![CDATA[
+	Set KeyValueList = ##class(TECH.KeyValue.UniqueList).%New()
+	
+	Do $$$AssertEquals(KeyValueList.Count(),"0")
+	Do $$$AssertFalse($$$ISOK(KeyValueList.RemoveByKey("Key1")),"")
+	Do $$$AssertEquals(KeyValueList.Count(),"0")
+]]></Implementation>
+</Method>
+
+<Method name="Test: verwijderen van onbestaande key uit lijst met 1 item">
+<Implementation><![CDATA[
+	#dim KeyValuePair1 As TECH.KeyValuePair = ##class(TECH.KeyValuePair).%New("Key1", "Value1")
+	
+	Set KeyValueList = ##class(TECH.KeyValue.UniqueList).%New()
+	Do KeyValueList.InsertAt(KeyValuePair1, 1)
+	
+	Do $$$AssertEquals(KeyValueList.Count(),"1")
+	Do $$$AssertFalse($$$ISOK(KeyValueList.RemoveByKey("Key42")),"")
+	Do $$$AssertEquals(KeyValueList.Count(),"1")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>