/components/fpcunit/ide/fpcunitproject1.pas

 1program FPCUnitProject1;
 2
 3{$mode objfpc}{$H+}
 4
 5uses
 6  Classes, consoletestrunner;
 7
 8type
 9
10  { TLazTestRunner }
11
12  TMyTestRunner = class(TTestRunner)
13  protected
14  // override the protected methods of TTestRunner to customize its behavior
15  end;
16
17var
18  Application: TMyTestRunner;
19
20begin
21  Application := TMyTestRunner.Create(nil);
22  Application.Initialize;
23  Application.Title := 'FPCUnit Console test runner';
24  Application.Run;
25  Application.Free;
26end.