mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-02 21:38:16 +02:00
15 lines
247 B
ObjectPascal
15 lines
247 B
ObjectPascal
program runtestsgui;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Interfaces, Forms, GuiTestRunner, TestLpi;
|
|
|
|
begin
|
|
Application.Title:='Run Lazarus tests';
|
|
Application.Initialize;
|
|
Application.CreateForm(TGuiTestRunner, TestRunner);
|
|
Application.Run;
|
|
end.
|
|
|