mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-17 02:20:37 +01:00
27 lines
284 B
ObjectPascal
27 lines
284 B
ObjectPascal
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.
|