testcompat.lpr 674 B

1234567891011121314151617181920212223242526272829303132
  1. program testcompat;
  2. {$mode objfpc}{$H+}
  3. uses
  4. {$IFDEF UNIX}cwstring,{$ENDIF}
  5. Classes, consoletestrunner, tcnetencoding, tciotuils,
  6. utmessagemanager, utcdevices, utcanalytics, utcimagelist,
  7. utcnotifications, utcjson, utcpush, utchash, utcregex, utcregexapi;
  8. type
  9. { TMyTestRunner }
  10. TMyTestRunner = class(TTestRunner)
  11. protected
  12. // override the protected methods of TTestRunner to customize its behavior
  13. end;
  14. var
  15. Application: TMyTestRunner;
  16. begin
  17. DefaultRunAllTests:=true;
  18. DefaultFormat:=fPlain;
  19. Application := TMyTestRunner.Create(nil);
  20. Application.Initialize;
  21. Application.Title:='testcompat';
  22. Application.Run;
  23. Application.Free;
  24. end.