Index: vhUnitTest/TECH/Files.cls.xml
===================================================================
diff -u -r1911 -r3420
--- vhUnitTest/TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 1911)
+++ vhUnitTest/TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 3420)
@@ -40,6 +40,38 @@
 	do $$$AssertEquals(Resultaat,VerwachtResultaat)
 ]]></Implementation>
 </Method>
+
+<Method name="Test GetFileList met aantalbestanden 0 geeft alle bestanden terug">
+<Implementation><![CDATA[
+	set FileList = ##class(vhTest.Fake.TECH.Files).%New().GetFileList("c:\directory1","*.*",,,0)
+	
+	Do $$$AssertEquals(FileList.Count(),5)
+]]></Implementation>
+</Method>
+
+<Method name="Test GetFileList met aantalbestanden 2 geeft 2 bestanden terug">
+<Implementation><![CDATA[
+	set FileList = ##class(vhTest.Fake.TECH.Files).%New().GetFileList("c:\directory1","*.*",,,2)
+	
+	Do $$$AssertEquals(FileList.Count(),2)
+]]></Implementation>
+</Method>
+
+<Method name="Test GetFileList met aantalbestanden 10 geeft 5 bestanden terug als er maar 5 zijn">
+<Implementation><![CDATA[
+	set FileList = ##class(vhTest.Fake.TECH.Files).%New().GetFileList("c:\directory1","*.*",,,2)
+	
+	Do $$$AssertEquals(FileList.Count(),2)
+]]></Implementation>
+</Method>
+
+<Method name="Test GetFileList met aantalbestanden 10 geeft 0 bestanden terug als er geen zijn">
+<Implementation><![CDATA[
+	set FileList = ##class(vhTest.Fake.TECH.Files).%New().GetFileList("c:\directory1","*.*",,,2)
+	
+	Do $$$AssertEquals(FileList.Count(),2)
+]]></Implementation>
+</Method>
 </Class>