paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-16 10:00:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Fix compilation of the unit test project for TMask.

Browse Source
This commit is contained in:
Juha 2021-11-02 12:58:19 +02:00
parent 0ed2398c32
commit 3c7586c0f8
1 changed files with 30 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -35,7 +35,7 @@ type
procedure Test;
procedure TestMask(const S, Mask: String; Result: Boolean);
procedure TestMaskDisableRange(const S, Mask: String; Result: Boolean);
procedure TestMaskLegacy(const S, Mask: String; Result: Boolean);
procedure TestMaskAdvanced(const S, Mask: String; Result: Boolean);
procedure TestMaskWindows(const S, Mask: String; Result: Boolean);
procedure TestMaskException(const S, Mask: String; AFail: Boolean);
published
@ -46,8 +46,8 @@ type
procedure TestCharSet;
procedure TestDisableRange;
procedure TestCase;
procedure TestLegacy;
procedure TestSpecial;
procedure TestDefault;
procedure TestAdvanced;
procedure TestWindows;
end;
@ -67,9 +67,10 @@ begin
MatchesMask(S, Mask, False, MaskOpCodesDisableRange));
end;
procedure TTestMask.TestMaskLegacy(const S, Mask: String; Result: Boolean);
procedure TTestMask.TestMaskAdvanced(const S, Mask: String; Result: Boolean);
begin
AssertEquals(S + ' match ' + Mask + ': ', Result, MatchesMaskLegacy(S, Mask));
AssertEquals(S + ' match ' + Mask + ': ', Result,
MatchesMask(S, Mask, False, AllMaskOpCodes));
end;
procedure TTestMask.TestMaskWindows(const S, Mask: String; Result: Boolean);
@ -272,33 +273,33 @@ begin
TestMask('abcÖ', '*[äũö]', True);
end;
procedure TTestMask.TestLegacy;
begin
TestMaskLegacy('a?c', '?[?]?', True);
TestMaskLegacy('C:\x', 'C:\x', True);
TestMaskLegacy('a?c', '?\??', False);
TestMaskLegacy('ab*.x', '??\*.x', False);
TestMaskLegacy('x \ y', '? \\ ?', False);
TestMaskLegacy('abc', '?[?]?', False);
TestMaskLegacy('a??d', '?[?]?', False);
end;
procedure TTestMask.TestSpecial;
procedure TTestMask.TestDefault;
begin
TestMask('a?c', '?[?]?', True);
TestMask('abc', '?[?]?', True);
TestMask('ac', '?[?]?', True);
TestMask('a?c', '?\??', True);
TestMask('ab*.x', '??\*.x', True);
TestMask('a[c]d', '?\[*', True);
TestMask('x \ y', '? \\ ?', True);
TestMask('abcd', 'a[??]d', True);
TestMask('abd', 'a[??]d', True);
TestMask('ad', 'a[??]d', True);
TestMask('C:\x', 'C:\x', True);
TestMask('C:\x', 'C:\x', False);
TestMask('abcd', '?[?]?', False);
TestMask('a?c', '?\??', False);
TestMask('ab*.x', '??\*.x', False);
TestMask('x \ y', '? \\ ?', False);
TestMask('abc', '?[?]?', False);
TestMask('a??d', '?[?]?', False);
end;
procedure TTestMask.TestAdvanced;
begin
TestMaskAdvanced('a?c', '?[?]?', True);
TestMaskAdvanced('abc', '?[?]?', True);
TestMaskAdvanced('ac', '?[?]?', True);
TestMaskAdvanced('a?c', '?\??', True);
TestMaskAdvanced('ab*.x', '??\*.x', True);
TestMaskAdvanced('a[c]d', '?\[*', True);
TestMaskAdvanced('x \ y', '? \\ ?', True);
TestMaskAdvanced('abcd', 'a[??]d', True);
TestMaskAdvanced('abd', 'a[??]d', True);
TestMaskAdvanced('ad', 'a[??]d', True);
TestMaskAdvanced('C:\x', 'C:\x', False);
TestMaskAdvanced('abcd', '?[?]?', False);
end;
procedure TTestMask.TestWindows;