mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-07 22:12:48 +02:00
34 lines
654 B
ObjectPascal
34 lines
654 B
ObjectPascal
program FpTest;
|
|
|
|
{$mode objfpc}{$H+}
|
|
{off $DEFINE TESTGUI}
|
|
|
|
uses
|
|
{$ifdef TESTGUI} Interfaces, Forms, GuiTestRunner, {$ELSE} consoletestrunner, {$ENDIF}
|
|
TestHelperClasses,
|
|
TestDwarfVarious, TestMemManager, TestPascalParser,
|
|
TestErrorHandler, TestLineMap, TestAsm;
|
|
|
|
{$R *.res}
|
|
|
|
{$ifNdef TESTGUI}
|
|
var
|
|
Application: TTestRunner;
|
|
{$ENDIF}
|
|
|
|
begin
|
|
{$ifdef TESTGUI}
|
|
Application.Initialize;
|
|
Application.CreateForm(TGuiTestRunner, TestRunner);
|
|
Application.Run;
|
|
{$ELSE}
|
|
DefaultRunAllTests:=True;
|
|
DefaultFormat:=fXML;
|
|
Application := TTestRunner.Create(nil);
|
|
Application.Initialize;
|
|
Application.Run;
|
|
Application.Free;
|
|
{$ENDIF}
|
|
end.
|
|
|