Mybe I am doing it wrong but I am trying to have the logs flush and so I made a method:
implementation
uses
Quick.Logger,
Quick.Logger.Provider.Files,
Quick.Logger.ExceptionHook;
procedure FinalizeLogger; stdcall;
var
count: Integer;
begin
Log('Logger shutdown', etInfo);
// Force the logger to flush any buffered messages.
if Assigned(Logger) then
begin
count := Logger.QueueCount;
Log('There are %d log items in queue.', [count], etInfo);
end;
if Assigned(GlobalLogFileProvider) then
begin
GlobalLogFileProvider.Drain;
GlobalLogFileProvider.Stop;
end;
end;
procedure FinalizeLogger; stdcall;
var
count: Integer;
begin
Log('Logger shutdown', etInfo);
// Force the logger to flush any buffered messages.
if Assigned(Logger) then
begin
count := Logger.QueueCount;
Log('There are %d log items in queue.', [count], etInfo);
end;
if Assigned(GlobalLogFileProvider) then
begin
GlobalLogFileProvider.Drain;
GlobalLogFileProvider.Stop;
end;
end;
In my test I initialize and Finalize the log to make sure i capture it all:
[TestFixture]
EncyptionTest = class
public
[Setup]
procedure Setup;
[TearDown]
procedure TearDown;
[Test]
procedure DeriveKeyFromPasswordTest;
[Test]
procedure DeriveSameKeyFromPasswordTest;
[Test]
procedure RoundTripTest;
end;
procedure EncyptionTest.Setup;
begin
InitializeLogger;
end;
procedure EncyptionTest.TearDown;
begin
FinalizeLogger;
end;
Hi,
Mybe I am doing it wrong but I am trying to have the logs flush and so I made a method:
In my test I initialize and Finalize the log to make sure i capture it all:
When the test ends I get a warning box
I enabled the detail logs and attached them
WalterNativeTests_MemoryManager_EventLog.txt
Am I doing something wrong, what am I missing?