fpcsrc/tests/utils/testsuite/testsuite.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{$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.