paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 05:09:19 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -179,6 +179,8 @@ begin
Writeln('FSearch ls: ',FSearch('ls.exe',test)); Writeln('FSearch ls: ',FSearch('ls.exe',test));
{$endif not noexesuffix} {$endif not noexesuffix}
Writeln('Empty FSearch (should return empty string):',FSearch('',test));
write('Press Enter'); write('Press Enter');
Readln; Readln;
end; end;
@ -195,7 +197,10 @@ end.
{ {
$Log$ $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 * Renamefest
Revision 1.3 2001/12/10 02:25:08 carl Revision 1.3 2001/12/10 02:25:08 carl