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

@@ -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 = ',