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

* Not supporting an ending slash is Dos specific

Browse Source
This commit is contained in:
peter 2002-12-06 16:48:02 +00:00
parent e61f5e847d
commit 2e864d0cee
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -125,12 +125,15 @@ Begin
CheckDosError(3); CheckDosError(3);
WriteLn('Success!'); WriteLn('Success!');
} }
{ Should normally fail, because of end directory separator } {$ifdef go32v2}
{ Should normally fail, because of end directory separator. This is
allowed under unixes so the test is go32v2 only }
WriteLn('Trying to open a directory file...Success!'); WriteLn('Trying to open a directory file...Success!');
GetDir(0,s); GetDir(0,s);
Assign(f,s+DirectorySeparator); Assign(f,s+DirectorySeparator);
GetFAttr(f, Attr); GetFAttr(f, Attr);
CheckDosError(3); CheckDosError(3);
{$endif}
Write('Trying to open a directory file...'); Write('Trying to open a directory file...');
GetDir(0,s); GetDir(0,s);
@ -315,7 +318,10 @@ Begin
end. end.
{ {
$Log$ $Log$
Revision 1.2 2002-11-18 09:49:49 pierre Revision 1.3 2002-12-06 16:48:02 peter
* Not supporting an ending slash is Dos specific
Revision 1.2 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.1 2002/11/08 21:01:18 carl Revision 1.1 2002/11/08 21:01:18 carl