mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 08:37:58 +02:00
20 lines
237 B
ObjectPascal
20 lines
237 B
ObjectPascal
{$mode objfpc}
|
|
{$h+}
|
|
program testsuite;
|
|
|
|
uses utests;
|
|
|
|
Var
|
|
App : TTestSuite;
|
|
|
|
begin
|
|
App:=TTestSuite.Create(nil);
|
|
Try
|
|
App.Title:='Lazarus Test Suite Results';
|
|
App.Initialize;
|
|
App.Run;
|
|
Finally
|
|
App.Free;
|
|
end;
|
|
end.
|