Index: vhUnitTest/TECH/ListUtils/Test.cls.xml
===================================================================
diff -u -r3274 -r3275
--- vhUnitTest/TECH/ListUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 3274)
+++ vhUnitTest/TECH/ListUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 3275)
@@ -483,31 +483,41 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestStartsWith">
+<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("Startstring")
+	Do Lijst1.Insert("Midden")
 	Do Lijst1.Insert("Einde")
 	
 	Set Lijst2 = ##class(%ListOfDataTypes).%New()
 	Do Lijst2.Insert("Begin")
-	Do Lijst2.Insert("Midden")
+	Do Lijst2.Insert("Stringstart")
 	Do Lijst2.Insert("Einde")
-	
-	Set Lijst3 = ##class(%ListOfDataTypes).%New()
-	Do Lijst3.Insert("Begin")
-	Do Lijst3.Insert("Stringstart")
-	Do Lijst3.Insert("Einde")
-	
-	Set Lijst4 = ##class(%ListOfDataTypes).%New()
 		
-	Do $$$AssertTrue(##class(TECH.ListUtils).StartsWith(Lijst1,"Start"))
+	Do $$$AssertFalse(##class(TECH.ListUtils).StartsWith(Lijst1,"Start"))
 	Do $$$AssertFalse(##class(TECH.ListUtils).StartsWith(Lijst2,"Start"))
-	Do $$$AssertFalse(##class(TECH.ListUtils).StartsWith(Lijst3,"Start"))
-	Do $$$AssertFalse(##class(TECH.ListUtils).StartsWith(Lijst4,"Start"))
 ]]></Implementation>
 </Method>
+
+<Method name="TestStartsWithGeeftFalseAlsErEenLegeListMeegegevenWordt">
+<Implementation><![CDATA[
+	Set Lijst = ##class(%ListOfDataTypes).%New()
+	
+	Do $$$AssertFalse(##class(TECH.ListUtils).StartsWith(Lijst,"Start"))
+]]></Implementation>
+</Method>
 </Class>