mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 00:05:53 +01:00
83 lines
1.6 KiB
ObjectPascal
83 lines
1.6 KiB
ObjectPascal
unit TestSupportAppendersU;
|
|
|
|
interface
|
|
|
|
uses
|
|
LoggerPro, System.SysUtils;
|
|
|
|
type
|
|
TMyAppender = class(TLoggerProAppenderBase)
|
|
private
|
|
FSetupCallback: TProc;
|
|
FTearDownCallback: TProc;
|
|
FWriteLogCallback: TProc<TLogItem>;
|
|
public
|
|
constructor Create(aSetupCallback, aTearDownCallback: TProc;
|
|
aWriteLogCallback: TProc<TLogItem>); reintroduce;
|
|
procedure Setup; override;
|
|
procedure TearDown; override;
|
|
procedure WriteLog(const aLogItem: TLogItem); override;
|
|
end;
|
|
|
|
TMyVerySlowAppender = class(TLoggerProAppenderBase)
|
|
private
|
|
FDelay: Cardinal;
|
|
public
|
|
constructor Create(const aDelay: Cardinal); reintroduce;
|
|
procedure Setup; override;
|
|
procedure TearDown; override;
|
|
procedure WriteLog(const aLogItem: TLogItem); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TMyAppender }
|
|
|
|
constructor TMyAppender.Create(aSetupCallback, aTearDownCallback: TProc;
|
|
aWriteLogCallback: TProc<TLogItem>);
|
|
begin
|
|
inherited Create;
|
|
FSetupCallback := aSetupCallback;
|
|
FTearDownCallback := aTearDownCallback;
|
|
FWriteLogCallback := aWriteLogCallback;
|
|
end;
|
|
|
|
procedure TMyAppender.Setup;
|
|
begin
|
|
FSetupCallback();
|
|
end;
|
|
|
|
procedure TMyAppender.TearDown;
|
|
begin
|
|
FTearDownCallback();
|
|
end;
|
|
|
|
procedure TMyAppender.WriteLog(const aLogItem: TLogItem);
|
|
begin
|
|
FWriteLogCallback(aLogItem);
|
|
end;
|
|
|
|
{ TMyVerySlowAppender }
|
|
|
|
constructor TMyVerySlowAppender.Create(const aDelay: Cardinal);
|
|
begin
|
|
FDelay := aDelay;
|
|
end;
|
|
|
|
procedure TMyVerySlowAppender.Setup;
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TMyVerySlowAppender.TearDown;
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TMyVerySlowAppender.WriteLog(const aLogItem: TLogItem);
|
|
begin
|
|
// Sleep(FDelay);
|
|
end;
|
|
|
|
end.
|