delphi - 如何使用 LeakCheck 处理 DUnit 中的 "false"/expected 内存？

Question

为了消除所有内存泄漏，我尝试将 LeakCheck 库合并到 DUnit 中。问题是 LeakCheck 会向我报告不是真正泄漏的内存泄漏。这些是由 RTL 分配并在程序退出时销毁的对象或其他内容。

LeakCheck 包含许多例程，允许您指定要忽略的内容，我能够使用它们来忽略大多数此类“泄漏”。但是，我不知道如何特别摆脱其中一个:

program LeakCheckMemLeak;
{$APPTYPE CONSOLE}
uses
  LeakCheck, TestFramework, LeakCheck.DUnit, LeakCheck.Utils,  LeakCheck.Setup.Trace, System.SysUtils,
  Forms, System.Classes;

{$R *.RES}

procedure LeakMemory;
var
  LThread: TThread;
begin
  LThread := TThread.Create(True);
  LThread.Free;
end;

procedure DetectLeak;
var
  Snapshot: TLeakCheck.TSnapshot;
  Report: LeakString;
begin
  Snapshot.Create;
  LeakMemory;
  Report := TLeakCheck.GetReport(Snapshot.Snapshot);
  try
    Writeln(string(Report));
  finally
    Report.Free;
  end;
end;

begin
  Application.Initialize;
  DetectLeak;
  Readln;
end.

创建 TThread 实例(最初是 TThread.CreateAnonymousThread 但结果相同)导致 64 字节内存泄漏:

Total allocation count: 297 (12592 B)
Leak detected 02BB3DC0 size 64 B
  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 E8 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ????????????????????????????????
  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ????????????????????????????????
Stack trace when the memory block was allocated:
  $00406E76 - LeakCheckMemLeak.exe - System.AllocMem + $A (4562 +25)
  $004C4A53 - LeakCheckMemLeak.exe - System.Classes.TThread.WaitFor + $8F (15565 +23)
  $005E4EB0 - LeakCheckMemLeak.exe - LeakCheckMemLeak.DetectLeak + $34 (24 +3)
  $005ED5B9 - LeakCheckMemLeak.exe - LeakCheckMemLeak.LeakCheckMemLeak + $29 (35 +3)
  $763E343D - kernel32.dll
  $76F19832 - ntdll.dll

在其他情况下，LeakCheck 为我提供了实例泄漏的类的名称，以便我可以将其添加到忽略列表中，但在本例中却没有。我怎样才能抑制这种“泄漏”？

附带说明一下，我遇到的这种泄漏和其他泄漏不会在 GUI 应用程序中发生。我猜想，RTL 在测试运行之前为大多数这些对象预分配内存。

Answer 1

FWIW 删除 Forms 和 Application.Initialize 后得到的结果是这样的:

Total allocation count: 113 (4152 B)
Leak detected 0262F540 size 44 B for class: TExternalThread
Leak detected 0260A988 size 20 B for class: TThreadList<System.Classes.TThread>
Leak detected 02618A90 size 8 B for class: TObject
Leak detected 026451F8 size 52 B for class: TList<System.Classes.TThread>
Leak detected 02618AC8 size 12 B
  01 00 00 00 01 00 00 00 40 F5 62 02 | ????????@?b?

通过在 Spring4D 单元测试中使用 LeakCheck，我知道这来自于 TThread.GetCurrentThread 中某些实例的延迟初始化，这些实例在您的 LeakMemory 例程中被调用 - 更准确地说在 TThread.Destroy 期间调用 WaitFor(请参阅 Delphi 10.2.3 中的 System.Classes.pas 第 15764 行)。这将创建您在我发布的报告中看到的实例。

我们在 Spring4D 以及工作测试中所做的就是在运行之前调用我们知道会导致实例某些延迟初始化的各种方法和例程(例如，TEncoding 是另一个候选者)任何测试。这可以防止测试运行期间的延迟初始化，然后在测试前后的内存增量中体现出来。请参阅 Spring.TestRunner.pas

中的 InitializeLeakCheck

虽然您可以配置 LeakCheck 来忽略​​这些泄漏，但这会显着影响性能，因为它首先会发现泄漏。如果这些实例在更改之前初始化，那么以后就没有什么可以忽略的。