mirror of
https://github.com/keymanapp/keyman.git
synced 2026-08-06 00:45:32 +00:00
1a3cc078b5
Addresses review comments. Use SENTRY_SDK_VERSION where possible, and codesign sentry components during build.
70 lines
1.3 KiB
ObjectPascal
70 lines
1.3 KiB
ObjectPascal
unit Sentry.Client.Test.SentryClientTestMain;
|
|
|
|
interface
|
|
|
|
procedure main;
|
|
|
|
implementation
|
|
|
|
uses
|
|
sentry,
|
|
Sentry.Client,
|
|
System.SysUtils;
|
|
|
|
procedure DoCrash; forward;
|
|
procedure DoEvent; forward;
|
|
|
|
procedure main;
|
|
begin
|
|
if ParamStr(1) = 'crash'
|
|
then DoCrash
|
|
else DoEvent;
|
|
end;
|
|
|
|
function Init: TSentryClient;
|
|
var
|
|
o: TSentryClientOptions;
|
|
begin
|
|
o.Debug := False;
|
|
o.DSN := 'https://92eb58e6005d47daa33c9c9e39458eb7@o1005580.ingest.sentry.io/5983518';
|
|
//o.DSN := 'https://7b1ff1dae2c8495b84f90dadcf512b84@sentry.io/4853461';
|
|
o.Release := 'keyman-14.0.22-alpha-local';
|
|
o.HandlerPath := 'c:\Projects\keyman\app\windows\src\ext\sentry\test\Win32\Release\crashpad_handler.exe';
|
|
o.DatabasePath := '.\sentry-'+SENTRY_SDK_VERSION+'-db';
|
|
Result := TSentryClient.Create(o);
|
|
end;
|
|
|
|
type
|
|
EFoo = class(Exception);
|
|
|
|
procedure DoCrash;
|
|
var
|
|
c: TSentryClient;
|
|
begin
|
|
c := Init;
|
|
try
|
|
try
|
|
raise EFoo.Create('This should be captured by TSentryClient');
|
|
except
|
|
on E:Exception do
|
|
SentryHandleException(E);
|
|
end;
|
|
finally
|
|
c.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure DoEvent;
|
|
var
|
|
c: TSentryClient;
|
|
begin
|
|
c := Init;
|
|
try
|
|
// c.ExceptionEvent('fpp');
|
|
c.MessageEvent(SENTRY_LEVEL_INFO, 'customer', 'Now testing with TSentryClient');
|
|
finally
|
|
c.Free;
|
|
end;
|
|
end;
|
|
|
|
end.
|