Index: vhUnitTest/TECH/ListUtils/Object.cls.xml
===================================================================
diff -u -r957 -r1590
--- vhUnitTest/TECH/ListUtils/Object.cls.xml	(.../Object.cls.xml)	(revision 957)
+++ vhUnitTest/TECH/ListUtils/Object.cls.xml	(.../Object.cls.xml)	(revision 1590)
@@ -10,6 +10,11 @@
 <Property name="Data">
 <Type>%String</Type>
 </Property>
+
+<Method name="GeefData">
+<Implementation><![CDATA[	quit ..Data
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/TECH/ListUtils/Test.cls.xml
===================================================================
diff -u -r1582 -r1590
--- vhUnitTest/TECH/ListUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 1582)
+++ vhUnitTest/TECH/ListUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 1590)
@@ -255,6 +255,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestExitsGetMethodWithValue">
+<Implementation><![CDATA[
+	set List = ##class(%ListOfObjects).%New()
+	
+	set Object = ##class(vhUnitTest.TECH.ListUtils.Object).%New()
+	set Object.Data = "1"
+	do List.Insert(Object)
+	
+	set Object = ##class(vhUnitTest.TECH.ListUtils.Object).%New()
+	set Object.Data = "2"
+	do List.Insert(Object)
+	
+	do $$$AssertTrue(##class(TECH.ListUtils).ExistsGetMethodWithValue(List,"GeefData",1),"waarde 1 moet gevonden worden")
+	do $$$AssertTrue(##class(TECH.ListUtils).ExistsGetMethodWithValue(List,"GeefData",2),"waarde 2 moet gevonden worden")
+	do $$$AssertFalse(##class(TECH.ListUtils).ExistsGetMethodWithValue(List,"GeefData",3),"waarde 3 mag niet gevonden worden")
+]]></Implementation>
+</Method>
+
 <Method name="TestIsValueInIterator">
 <Implementation><![CDATA[
 	#dim Multidim As %String = ""