/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
- program FPCUnitProject1;
- {$mode objfpc}{$H+}
- uses
- Classes, consoletestrunner;
- type
- { TLazTestRunner }
- TMyTestRunner = class(TTestRunner)
- protected
- // override the protected methods of TTestRunner to customize its behavior
- end;
- var
- Application: TMyTestRunner;
- begin
- Application := TMyTestRunner.Create(nil);
- Application.Initialize;
- Application.Title := 'FPCUnit Console test runner';
- Application.Run;
- Application.Free;
- end.