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

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

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