Index: vhUnitTest/Utils/TECH/Persistent/KeyValuePairRepository/Test.cls.xml
===================================================================
diff -u -r34105 -r34106
--- vhUnitTest/Utils/TECH/Persistent/KeyValuePairRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34105)
+++ vhUnitTest/Utils/TECH/Persistent/KeyValuePairRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34106)
@@ -30,6 +30,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: GeefViaKeyValue geeft geen resultaat. ">
+<Implementation><![CDATA[
+	#dim QueryAPISpy As vhTest.Spy.TECH.Query.QueryAPI = ##class(vhTest.Spy.TECH.Query.QueryAPI).%New()
+	
+	#dim KeyValuePairRepository As vhTest.Utils.TECH.Persistent.KeyValuePairRepository = ##class(vhTest.Utils.TECH.Persistent.KeyValuePairRepository).%New(,QueryAPISpy)
+	#dim KeyValuePair As vhTest.Utils.TECH.Persistent.KeyValuePair = KeyValuePairRepository.GeefViaKeyValue("VerkeerdeDummyKey","DummyValue")
+	
+	Do $$$AssertNotIsObject(KeyValuePair)
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderDummyKeyValuePair">
 <Implementation><![CDATA[	Do ##class(vhTest.Utils.TECH.Persistent.KeyValuePair).%KillExtent()
 ]]></Implementation>