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

* adapted test: the correct result of ExtractFileDrive('\\server\share\path\file') is '\\server\share'

Browse Source 
git-svn-id: trunk@13393 -
This commit is contained in:
florian 2009-07-15 21:36:13 +00:00
parent 6dfd5cb5b8
commit 297bddba4a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test/units/sysutils/tfilename.pp
View File

@ -40,7 +40,7 @@ begin
TestFuncs(13,ExtractFilePath('\\server\share\file'),'\\server\share\');
TestFuncs(14,ExtractFileName('\\server\share\file'),'file');
TestFuncs(15,ExtractFileDrive('\\server\share\file'),'\\server');
TestFuncs(15,ExtractFileDrive('\\server\share\file'),'\\server\share');
// Kylix compatibility mode
AllowDirectorySeparators:=['/'];
@ -86,7 +86,7 @@ begin
TestFuncs(213,ExtractFilePath('\\server\share\file'),'\\server\share\');
TestFuncs(214,ExtractFileName('\\server\share\file'),'file');
TestFuncs(215,ExtractFileDrive('\\server\share\file'),'\\server');
TestFuncs(215,ExtractFileDrive('\\server\share\file'),'\\server\share');
// Windows/DOS/SO2 Delphi Compatibility
AllowDirectorySeparators:=['\'];
@ -109,7 +109,7 @@ begin
TestFuncs(313,ExtractFilePath('\\server\share\file'),'\\server\share\');
TestFuncs(314,ExtractFileName('\\server\share\file'),'file');
TestFuncs(315,ExtractFileDrive('\\server\share\file'),'\\server');
TestFuncs(315,ExtractFileDrive('\\server\share\file'),'\\server\share');
if err then
halt(1);