paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 01:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ fsearch testing added

Browse Source
This commit is contained in:
carl 2002-07-06 11:46:08 +00:00
parent 479a745096
commit 6154d2c482
1 changed files with 6 additions and 1 deletions

7
tests/test/units/dos/tdos.pp
View File

@ -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