paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 22:07:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check for proper exception type

Browse Source
This commit is contained in:
florian 2022-10-22 15:05:52 +02:00
parent 2b48afe151
commit 8f269d4540
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/webtbs/tw3157.pp
View File

@ -28,6 +28,11 @@ begin
on E:Exception do
begin
Writeln('Line "c:=..." raised ' +E.ClassName+ ': ' +E.Message);
if E.ClassType<>EInvalidOp then
begin
writeln('EInvalidOp exception expected');
halt(1);
end;
dec(notcaught);
end;
end;
@ -46,6 +51,11 @@ begin
on E:Exception do
begin
Writeln('Line "temp_int:=..." raised ' +E.ClassName+ ': ' +E.Message);
if E.ClassType<>EInvalidOp then
begin
writeln('EInvalidOp exception expected');
halt(1);
end;
dec(notcaught);
end;
end;