paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-27 15:08:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: test case insensitive

Browse Source
This commit is contained in:
mattias 2023-08-06 09:55:56 +02:00
parent f03d205c06
commit a8cde74bcf
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/tests/testbasiccodetools.pas
View File

@ -351,13 +351,13 @@ end;
procedure TTestBasicCodeTools.TestFilenameIsMatching;
procedure t(aMask,aFilename: string; aExactly,Expected: boolean);
procedure t(aMask,aFilename: string; aExactly,Expected: boolean; AnyCase: boolean = false);
var
Actual: Boolean;
begin
DoDirSeparators(aMask);
DoDirSeparators(aFilename);
Actual:=FilenameIsMatching(aMask,aFilename,aExactly);
Actual:=FilenameIsMatching(aMask,aFilename,aExactly,AnyCase);
if Actual=Expected then exit;
AssertEquals('Mask="'+aMask+'" File="'+aFilename+'" Exactly='+dbgs(aExactly),Expected,Actual);
end;
@ -444,6 +444,12 @@ begin
t('*.{p{as,p,},inc}','b.p',true,true);
t('*.{p{as,p,},inc}','b.inc',true,true);
t('*.{p{as,p,},inc}','c.lfm',true,false);
// any case
t('/aBc/','/abC/d',false,true,true);
{$IFDEF MSWindows}
t('/aBc/','/abC/d',false,true,false);
{$ENDIF}
end;
procedure TTestBasicCodeTools.TestExtractFileUnitname;