Index: vhUnitTest/Utils/TECH/Persistent/KeyValuePairRepository/Test.cls.xml
===================================================================
diff -u -r34164 -r34426
--- vhUnitTest/Utils/TECH/Persistent/KeyValuePairRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34164)
+++ vhUnitTest/Utils/TECH/Persistent/KeyValuePairRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34426)
@@ -18,6 +18,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: BestaatViaKeyValue geeft true weer.">
+<Implementation><![CDATA[
+	Do ..CreateKeyValuePair("Key","Value")
+
+	#dim KeyValuePairRepository As vhTest.Utils.TECH.Persistent.KeyValuePairRepository = ##class(vhTest.Utils.TECH.Persistent.KeyValuePairRepository).%New()
+	Do $$$AssertTrue(KeyValuePairRepository.BestaatViaKeyValue("Key","Value"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestaatViaKeyValue geeft false weer.">
+<Implementation><![CDATA[
+	Do ..CreateKeyValuePair("Key","Value")
+
+	#dim KeyValuePairRepository As vhTest.Utils.TECH.Persistent.KeyValuePairRepository = ##class(vhTest.Utils.TECH.Persistent.KeyValuePairRepository).%New()
+	Do $$$AssertFalse(KeyValuePairRepository.BestaatViaKeyValue("KeyBestaatNiet","Value"))
+]]></Implementation>
+</Method>
+
 <Method name="Test: GeefViaKeyValue geeft object KeyValuePair weer.">
 <Implementation><![CDATA[
 	Do ..CreateKeyValuePair("Key","Value")