testfpreport.lpr 436 B

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