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 = ""