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

LazUtils: Test: TestMasks: adjust Windows tests after the the removal of wqFileNameEnd from DefaultWindowsQuirks.

Browse Source
This commit is contained in:
Bart 2021-11-10 22:15:14 +01:00
parent eb63676746
commit 1643927f8f
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/lazutils/test/testmasks.lpr
View File

@ -37,6 +37,7 @@ type
procedure TestMaskDisableRange(const S, Mask: String; Result: Boolean);
procedure TestMaskAdvanced(const S, Mask: String; Result: Boolean);
procedure TestMaskWindows(const S, Mask: String; Result: Boolean);
procedure TestMaskWindowsNonDefaultQuirks(const S, Mask: String; Result: Boolean);
procedure TestMaskException(const S, Mask: String; AFail: Boolean);
published
procedure TestMaskSyntax;
@ -78,6 +79,12 @@ begin
AssertEquals(S + ' match ' + Mask + ': ', Result, MatchesWindowsMask(S, Mask));
end;
procedure TTestMask.TestMaskWindowsNonDefaultQuirks(const S, Mask: String;
Result: Boolean);
begin
AssertEquals(S + ' match ' + Mask + ': ', Result, MatchesWindowsMask(S, Mask, False, DefaultMaskOpCodes, [wqFilenameEnd,wqExtension3More,wqAllByExtension]));
end;
procedure TTestMask.TestMaskException(const S, Mask: String; AFail: Boolean);
begin
FS := S;
@ -309,15 +316,17 @@ begin
TestMaskWindows('abc.txt', '*', True);
TestMaskWindows('abc', '*', True);
TestMaskWindows('abc', '*.', True);
TestMaskWindows('abcd.txt', 'abc???.*', True);
TestMaskWindows('abcd.txt', 'abc???.txt?', True);
TestMaskWindows('abcd.txt', 'abc???.*', False);
TestMaskWindows('abcd.txt', 'abc???.txt?', False);
TestMaskWindowsNonDefaultQuirks('abcd.txt', 'abc???.*', True);
TestMaskWindowsNonDefaultQuirks('abcd.txt', 'abc???.txt?', True);
TestMaskWindows('abcd.txt', 'abc*', True);
TestMaskWindows('abc.pas.bak', '*.bak', True);
TestMaskWindows('C:\x', 'C:\x', True);
TestMaskWindows('C:\ab[c]d', 'C:*[*]*', False); //sets and ranges are enabled by default on TWindowsMaks as well
TestMaskWindows('C:\ab[c]d', 'C:*[*]*', False); //sets and ranges are enabled by default on TWindowsMask as well
TestMaskWindows('', '*', True);
TestMaskWindows('', '?', True);
TestMaskWindows('', '?', False);
TestMaskWindowsNonDefaultQuirks('', '?', True); //requires wqFileNameEnd
TestMaskWindows('abcd.txt', '*.txtx', False);
TestMaskWindows('abc.txt', '*.', False);
TestMaskWindows('abc.txt', '.*', False);