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

* volumeid is dos specific

Browse Source
This commit is contained in:
peter 2002-11-27 16:41:46 +00:00
parent 67153fd9a1
commit ff90992212
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/test/units/dos/tdos2.pp
View File

@ -491,7 +491,7 @@ Begin
Failure := True; Failure := True;
FoundDir := False; FoundDir := False;
s:='Searching using * wildcard (normal files + directories)...'; s:='Searching using * wildcard (normal files + directories)...';
FindFirst('*',Directory,Search); FindFirst('*',Archive+Directory,Search);
WriteLn(#9'Resources found (full path should not be displayed):'); WriteLn(#9'Resources found (full path should not be displayed):');
while DosError = 0 do while DosError = 0 do
Begin Begin
@ -567,6 +567,7 @@ Begin
{$IFDEF FPC} {$IFDEF FPC}
FindClose(Search); FindClose(Search);
{$ENDIF} {$ENDIF}
{$ifdef go32v2}
{ search for volume ID } { search for volume ID }
s:='Searching using * wildcard in ROOT (normal files + volume ID)...'; s:='Searching using * wildcard in ROOT (normal files + volume ID)...';
FindFirst(RootPath+'*',Directory+VolumeID,Search); FindFirst(RootPath+'*',Directory+VolumeID,Search);
@ -590,7 +591,7 @@ Begin
{$IFDEF FPC} {$IFDEF FPC}
FindClose(Search); FindClose(Search);
{$ENDIF} {$ENDIF}
{$endif}
end; end;
@ -687,7 +688,10 @@ end.
{ {
$Log$ $Log$
Revision 1.9 2002-11-18 09:49:49 pierre Revision 1.10 2002-11-27 16:41:46 peter
* volumeid is dos specific
Revision 1.9 2002/11/18 09:49:49 pierre
* tried to make as many as possible tests non interactive * tried to make as many as possible tests non interactive
Revision 1.8 2002/11/08 21:01:18 carl Revision 1.8 2002/11/08 21:01:18 carl