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

LazUtils: TestMasks: adjust test after changes in #78148e42.

Browse Source
This commit is contained in:
Bart 2021-11-03 19:30:39 +01:00
parent 3d0b1cc901
commit d29512ae6b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -281,7 +281,7 @@ begin
TestMask('a?c', '?\??', False);
TestMask('ab*.x', '??\*.x', False);
TestMask('x \ y', '? \\ ?', False);
TestMask('abc', '?[?]?', False);
TestMask('abc', '?[?]?', True); //mocAnyCharOrNone is enabled in DefaultMaskOpCodes
TestMask('a??d', '?[?]?', False);
end;
@ -314,7 +314,7 @@ begin
TestMaskWindows('abcd.txt', 'abc*', True);
TestMaskWindows('abc.pas.bak', '*.bak', True);
TestMaskWindows('C:\x', 'C:\x', True);
TestMaskWindows('C:\ab[c]d', 'C:*[*]*', True);
TestMaskWindows('C:\ab[c]d', 'C:*[*]*', False); //sets and ranges are enabled by default on TWindowsMaks as well
TestMaskWindows('', '*', True);
TestMaskWindows('', '?', True);