paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-28 14:09:37 +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 TTestBasicCodeTools.TestFilenameIsMatching;
procedure t(aMask,aFilename: string; aExactly,Expected: boolean); procedure t(aMask,aFilename: string; aExactly,Expected: boolean; AnyCase: boolean = false);
var var
Actual: Boolean; Actual: Boolean;
begin begin
DoDirSeparators(aMask); DoDirSeparators(aMask);
DoDirSeparators(aFilename); DoDirSeparators(aFilename);
Actual:=FilenameIsMatching(aMask,aFilename,aExactly); Actual:=FilenameIsMatching(aMask,aFilename,aExactly,AnyCase);
if Actual=Expected then exit; if Actual=Expected then exit;
AssertEquals('Mask="'+aMask+'" File="'+aFilename+'" Exactly='+dbgs(aExactly),Expected,Actual); AssertEquals('Mask="'+aMask+'" File="'+aFilename+'" Exactly='+dbgs(aExactly),Expected,Actual);
end; end;
@ -444,6 +444,12 @@ begin
t('*.{p{as,p,},inc}','b.p',true,true); t('*.{p{as,p,},inc}','b.p',true,true);
t('*.{p{as,p,},inc}','b.inc',true,true); t('*.{p{as,p,},inc}','b.inc',true,true);
t('*.{p{as,p,},inc}','c.lfm',true,false); 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; end;
procedure TTestBasicCodeTools.TestExtractFileUnitname; procedure TTestBasicCodeTools.TestExtractFileUnitname;