From 297bddba4ae47e40ca0659c3c372843f1f59a087 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 15 Jul 2009 21:36:13 +0000
Subject: [PATCH] * adapted test: the correct result of
 ExtractFileDrive('\\server\share\path\file') is '\\server\share'

git-svn-id: trunk@13393 -
---
 tests/test/units/sysutils/tfilename.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/test/units/sysutils/tfilename.pp b/tests/test/units/sysutils/tfilename.pp
index 464c96bc1a..21dfd8b98b 100644
--- a/tests/test/units/sysutils/tfilename.pp
+++ b/tests/test/units/sysutils/tfilename.pp
@@ -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);