Index: vhUnitTest/TECH/Files.cls.xml
===================================================================
diff -u -r3424 -r3425
--- vhUnitTest/TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 3424)
+++ vhUnitTest/TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 3425)
@@ -72,6 +72,14 @@
 	Do $$$AssertEquals(FileList.Count(),0)
 ]]></Implementation>
 </Method>
+
+<Method name="Test GetFileList backward compatibility : default allle bestanden">
+<Implementation><![CDATA[
+	set FileList = ##class(vhTest.Fake.TECH.Files).%New().GetFileList("c:\directory1","*.*")
+	
+	Do $$$AssertEquals(FileList.Count(),5)
+]]></Implementation>
+</Method>
 </Class>