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

* Also catch javascript errors

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-02-03 11:13:56 +01:00
parent 296638644a
commit 37b7f89a39
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fpcunit/src/fpcunit.pas
View File

@ -570,14 +570,16 @@ begin
try
protect(ATestCase, Self);
except
on E: EIgnoredTest do
AddFailure(ATestCase, E, FIgnoredTests{, ExceptAddr});
on E: EAssertionFailedError do
AddFailure(ATestCase, E, FFailures{, ExceptAddr});
on E: Exception do
on EI: EIgnoredTest do
AddFailure(ATestCase, EI, FIgnoredTests{, ExceptAddr});
on EF: EAssertionFailedError do
AddFailure(ATestCase, EF, FFailures{, ExceptAddr});
on EE: Exception do
begin
AddError(ATestCase, E{, ExceptAddr});
AddError(ATestCase, EE{, ExceptAddr});
end;
on EJ: TJSError do
AddError(ATestCase, EJSException.Create(EJ){, ExceptAddr});
end;
end;