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