PageRenderTime 18ms CodeModel.GetById 16ms app.highlight 0ms RepoModel.GetById 1ms app.codeStats 1ms

/components/fpcunit/ide/fpcunitproject1.pas

http://github.com/graemeg/lazarus
Pascal | 26 lines | 16 code | 7 blank | 3 comment | 0 complexity | 71d363ca7b3a693d3df21a40b64a4bbb MD5 | raw file
 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.