freepascal.compiler/packages/fcl-pdf/tests/unittests_gui.lpr

program unittests_gui;

{$mode objfpc}{$H+}

uses
  Classes
  ,Interfaces
  ,Forms
  ,GuiTestRunner
  {$i testunits.inc}
  ;




procedure MainProc;
begin
  Application.Initialize;
  Application.CreateForm(TGUITestRunner, TestRunner);
  Application.Run;
end;


begin
  MainProc;
end.