utils/Tests/UtilsTests.lpr

program UtilsTests;

{$mode objfpc}{$H+}

uses
  sysutils, Interfaces, Forms, GuiTestRunner, uGenericsTests;

{$R *.res}

var
  heaptrcFile: String;

begin
  heaptrcFile := ChangeFileExt(Application.ExeName, '.heaptrc');
  if (FileExists(heaptrcFile)) then
    DeleteFile(heaptrcFile);
  SetHeapTraceOutput(heaptrcFile);

  Application.Initialize;
  Application.CreateForm(TGuiTestRunner, TestRunner);
  Application.Run;
end.