/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

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