paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 13:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Disable UNC tests for go32v2 without LFNSupport (like dosbox on Linux)

Browse Source 
git-svn-id: trunk@38779 -
This commit is contained in:
pierre 2018-04-16 13:16:05 +00:00
parent e495d73239
commit 49caa8fcef
1 changed files with 27 additions and 16 deletions

43
tests/test/units/dos/tfexpand.pp
View File

@ -281,6 +281,7 @@ begin
{$ENDIF DIRECT}
{$I+}
GetDir (0, CurDir);
Writeln('CurDir is "',CurDir,'"');
{$IFDEF DIRECT}
{$IFNDEF FPC_FEXPAND_DRIVES}
I := Pos (System.DriveSeparator, CurDir);
@ -290,6 +291,7 @@ begin
{$ENDIF DIRECT}
{$IFNDEF NODRIVEC}
GetDir (3, CDir);
Writeln('GetDir(3,X) gives X="',CurDir,'"');
{$ENDIF NODRIVEC}
Check (' ', CurDir + DirSep + ' ');
{$IFDEF HASAMIGA}
@ -470,22 +472,31 @@ if CDir [Length (CDir)] = DirSep then Check ('c:anything', CDir + 'anything')
{$I+}
{$IFDEF FPC}
Check ('d\d/d', CurDir + DirSep + 'd' + DirSep + 'd' + DirSep + 'd');
Check ('\\server\share\directory', '\\server\share\directory');
Check ('\\server\share\directory1\directory2\..',
'\\server\share\directory1');
Check ('\\', '\\');
Check ('\\.', '\\.\');
Check ('\\.\', '\\.\');
Check ('\\.\.', '\\.\.');
Check ('\\.\..', '\\.\..');
Check ('\\.\...', '\\.\...');
Check ('\\.\TEST', '\\.\TEST');
Check ('\\..\', '\\..\');
Check ('\\..\TEST', '\\..\TEST');
Check ('\\..\TEST\.', '\\..\TEST');
Check ('\\..\TEST1\TEST2\..', '\\..\TEST1');
Check ('\\..\TEST\..', '\\..\TEST');
Check ('\\..\TEST\..\..', '\\..\TEST');
{$ifdef go32v2}
{ for go32v2 target UNC paths are only handled if LFNSupport is true }
if not LFNSupport then
writeln('Go32v2 without LFN, no UNC support')
else
{$endif}
begin
{ Check UNC style paths }
Check ('\\server\share\directory', '\\server\share\directory');
Check ('\\server\share\directory1\directory2\..',
'\\server\share\directory1');
Check ('\\', '\\');
Check ('\\.', '\\.\');
Check ('\\.\', '\\.\');
Check ('\\.\.', '\\.\.');
Check ('\\.\..', '\\.\..');
Check ('\\.\...', '\\.\...');
Check ('\\.\TEST', '\\.\TEST');
Check ('\\..\', '\\..\');
Check ('\\..\TEST', '\\..\TEST');
Check ('\\..\TEST\.', '\\..\TEST');
Check ('\\..\TEST1\TEST2\..', '\\..\TEST1');
Check ('\\..\TEST\..', '\\..\TEST');
Check ('\\..\TEST\..\..', '\\..\TEST');
end;
{$ENDIF FPC}
{$ENDIF NODRIVEC}
{$ENDIF UNIX}