From 6154d2c4821795db9fc21911baac292fe4aa7cbc Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Sat, 6 Jul 2002 11:46:08 +0000
Subject: [PATCH] + fsearch testing added

---
 tests/test/units/dos/tdos.pp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/tests/test/units/dos/tdos.pp b/tests/test/units/dos/tdos.pp
index 016a705d5b..436a1416e7 100644
--- a/tests/test/units/dos/tdos.pp
+++ b/tests/test/units/dos/tdos.pp
@@ -179,6 +179,8 @@ begin
   Writeln('FSearch ls: ',FSearch('ls.exe',test));
 {$endif not noexesuffix}
 
+  Writeln('Empty FSearch (should return empty string):',FSearch('',test));
+
   write('Press Enter');
   Readln;
 end;
@@ -195,7 +197,10 @@ end.
 
 {
   $Log$
-  Revision 1.4  2002-06-01 19:08:52  marco
+  Revision 1.5  2002-07-06 11:46:08  carl
+  + fsearch testing added
+
+  Revision 1.4  2002/06/01 19:08:52  marco
    * Renamefest
 
   Revision 1.3  2001/12/10 02:25:08  carl