From 9c855c7c94f14bbe58b6d92dbf93267659d2c947 Mon Sep 17 00:00:00 2001 From: pierre Date: Sun, 3 Mar 2013 18:53:12 +0000 Subject: [PATCH] accept anyfile that has the same upeercase name for the mkAmbiguous case if FileNameCaseSensitive is true git-svn-id: trunk@23683 - --- tests/test/units/sysutils/texpfncase.pp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tests/test/units/sysutils/texpfncase.pp b/tests/test/units/sysutils/texpfncase.pp index 88ca2d56c4..3a6e1cac73 100644 --- a/tests/test/units/sysutils/texpfncase.pp +++ b/tests/test/units/sysutils/texpfncase.pp @@ -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 = ',