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

LazUtils: Use a new exception type EMaskError for TMask. Helps testing a new implementation.

Browse Source 
git-svn-id: trunk@64665 -
This commit is contained in:
juha 2021-02-25 10:13:11 +00:00
parent 99b12d5c6b
commit 4113f5b16f
3 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/masks.pas
View File

@ -25,6 +25,8 @@ type
TUtf8Char = String[7];
EMaskError=class(EConvertError);
TMaskChar = record
case CharType: TMaskCharType of
mcChar: (CharValue: TUtf8Char);
@ -229,7 +231,7 @@ var
procedure CharSetError;
begin
raise EConvertError.CreateFmt(lrsInvalidCharSet, [AValue]);
raise EMaskError.CreateFmt(lrsInvalidCharSet, [AValue]);
end;
procedure AddAnyText;

8
components/lazutils/test/testmasks.lpi
View File

@ -62,13 +62,7 @@
<Debugging>
<Exceptions>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
<Item>
<Name Value="EConvertError"/>
<Name Value="EMaskError"/>
</Item>
</Exceptions>
</Debugging>

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

@ -58,8 +58,8 @@ procedure TTestMask.TestMaskException(const S, Mask: String; AFail: Boolean);
begin
FS := S;
FMask := Mask;
if AFail then // Exception type will be EMaskError
AssertException('Invalid syntax: ' + S + ' match ' + Mask + ': ', EConvertError, @Test)
if AFail then
AssertException('Invalid syntax: ' + S + ' match ' + Mask + ': ', EMaskError, @Test)
else
try
Test;