Index: vhUnitTest/TECH/ListUtils/Test.cls.xml
===================================================================
diff -u -r2923 -r3275
--- vhUnitTest/TECH/ListUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 2923)
+++ vhUnitTest/TECH/ListUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 3275)
@@ -482,6 +482,42 @@
 <Implementation><![CDATA[	do $$$AssertEquals($$$LCVT(List),$$$LCVT(RefList), Commentaar)
 ]]></Implementation>
 </Method>
+
+<Method name="TestStartsWithGeeftTrueZodraEenWaardeBegintMetDeMeegegevenString">
+<Implementation><![CDATA[
+	Set Lijst = ##class(%ListOfDataTypes).%New()
+	Do Lijst.Insert("Begin")
+	Do Lijst.Insert("Startstring")
+	Do Lijst.Insert("Einde")
+	
+	Do $$$AssertTrue(##class(TECH.ListUtils).StartsWith(Lijst,"Start"))
+]]></Implementation>
+</Method>
+
+<Method name="TestStartsWithGeeftFalseAlsGeenEnkeleWaardeBegintMetDeMeegegevenString">
+<Implementation><![CDATA[
+	Set Lijst1 = ##class(%ListOfDataTypes).%New()
+	Do Lijst1.Insert("Begin")
+	Do Lijst1.Insert("Midden")
+	Do Lijst1.Insert("Einde")
+	
+	Set Lijst2 = ##class(%ListOfDataTypes).%New()
+	Do Lijst2.Insert("Begin")
+	Do Lijst2.Insert("Stringstart")
+	Do Lijst2.Insert("Einde")
+		
+	Do $$$AssertFalse(##class(TECH.ListUtils).StartsWith(Lijst1,"Start"))
+	Do $$$AssertFalse(##class(TECH.ListUtils).StartsWith(Lijst2,"Start"))
+]]></Implementation>
+</Method>
+
+<Method name="TestStartsWithGeeftFalseAlsErEenLegeListMeegegevenWordt">
+<Implementation><![CDATA[
+	Set Lijst = ##class(%ListOfDataTypes).%New()
+	
+	Do $$$AssertFalse(##class(TECH.ListUtils).StartsWith(Lijst,"Start"))
+]]></Implementation>
+</Method>
 </Class>