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

* made more tests go32v2 specific because they expect (buggy?) Dos

Browse Source 
findfirst behaviour
This commit is contained in:
peter 2002-12-06 16:36:17 +00:00
parent 773c99e9ba
commit ab924aa4eb
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -380,12 +380,14 @@ Begin
FindClose(Search); FindClose(Search);
{$ENDIF} {$ENDIF}
{$ifdef go32v2}
WriteLn('Trying to find an invalid file ('''') with VolumeID attribute...'); WriteLn('Trying to find an invalid file ('''') with VolumeID attribute...');
FindFirst('',VolumeID,Search); FindFirst('',VolumeID,Search);
CheckDosError(3); CheckDosError(3);
{$IFDEF FPC} {$IFDEF FPC}
FindClose(Search); FindClose(Search);
{$ENDIF} {$ENDIF}
{$endif go32v2}
WriteLn('Trying to find an invalid file (''''zz.dat'''') with Any Attribute...'); WriteLn('Trying to find an invalid file (''''zz.dat'''') with Any Attribute...');
FindFirst('zz.dat',AnyFile,Search); FindFirst('zz.dat',AnyFile,Search);
@ -429,7 +431,7 @@ Begin
{ In addition to normal files } { In addition to normal files }
{ directory files should also be found } { directory files should also be found }
s:='Looking for '+TestFName +' with Directory Attribute...'; s:='Looking for '+TestFName +' with Directory Attribute...';
FindFirst('*.DAT',Directory,Search); FindFirst('*.DAT',Archive+Directory,Search);
if DosError<> 0 then if DosError<> 0 then
WriteLn(s+'FAILURE. ',TestFName,' should be found.') WriteLn(s+'FAILURE. ',TestFName,' should be found.')
else else
@ -444,7 +446,6 @@ Begin
FindClose(Search); FindClose(Search);
{$ENDIF} {$ENDIF}
Write('Checking file stats of ',TestFName,'...'); Write('Checking file stats of ',TestFName,'...');
UnpackTime(Search.Time,DT); UnpackTime(Search.Time,DT);
GetDate(Year, Month, Day, DayOfWeek); GetDate(Year, Month, Day, DayOfWeek);
@ -537,6 +538,7 @@ Begin
FindClose(Search); FindClose(Search);
{$ENDIF} {$ENDIF}
{$ifdef go32v2}
s:='Searching using ??? wildcard (normal files + all special files)...'; s:='Searching using ??? wildcard (normal files + all special files)...';
FindFirst('???',AnyFile,Search); FindFirst('???',AnyFile,Search);
FoundDot := False; FoundDot := False;
@ -567,7 +569,6 @@ 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);
@ -688,7 +689,11 @@ end.
{ {
$Log$ $Log$
Revision 1.10 2002-11-27 16:41:46 peter Revision 1.11 2002-12-06 16:36:17 peter
* made more tests go32v2 specific because they expect (buggy?) Dos
findfirst behaviour
Revision 1.10 2002/11/27 16:41:46 peter
* volumeid is dos specific * volumeid is dos specific
Revision 1.9 2002/11/18 09:49:49 pierre Revision 1.9 2002/11/18 09:49:49 pierre