testjsonconf.pp 421 B

12345678910111213141516171819202122232425
  1. program testjsonconf;
  2. {$mode objfpc}{$H+}
  3. uses
  4. Classes, consoletestrunner, jsonconftest, jsonconf;
  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.Run;
  17. Application.Free;
  18. end.