paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 22:10:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix for failures on FileNameCaseSensitive systems

Browse Source 
git-svn-id: trunk@29609 -
This commit is contained in:
pierre 2015-02-02 21:49:36 +00:00
parent 7001a02ac6
commit 488024ea5c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/test/units/sysutils/texpfncase.pp
View File

@ -57,8 +57,9 @@ var
Match: TFilenameCaseMatch;
begin
FN2 := ExpandFileNameCase (FN1, Match);
if ((ExpReturn <> '') and (FN2 <> ExpReturn) or (Match <> ExpMatch)) and
not(FileNameCaseSensitive and (Match=mkAmbiguous) and (UpperCase(FN2)<>UpperCase(ExpReturn))) then
if (Match <> ExpMatch) or ((ExpReturn <> '') and (FN2 <> ExpReturn) and
((Match <> mkAmbiguous) or not (FileNameCaseSensitive) or
(UpperCase (FN2) <> UpperCase (ExpReturn)))) then
begin
Inc (Failed);
WriteLn ('Error: Input = ', FN1, ', Output = ', FN2, ' (expected ', ExpReturn, '), MatchFound = ',