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

accept anyfile that has the same upeercase name for the mkAmbiguous case if FileNameCaseSensitive is true

Browse Source 
git-svn-id: trunk@23683 -
This commit is contained in:
pierre 2013-03-03 18:53:12 +00:00
parent 1eeeb309c7
commit 9c855c7c94
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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