mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-27 16:48:15 +02:00
20 lines
260 B
ObjectPascal
20 lines
260 B
ObjectPascal
{$mode objfpc}
|
|
{$h+}
|
|
program testsuite;
|
|
|
|
uses utests, tresults;
|
|
|
|
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.
|