testpassrc.lpr 691 B

12345678910111213141516171819202122232425262728293031
  1. program testpassrc;
  2. {$mode objfpc}{$H+}
  3. uses
  4. //MemCheck,
  5. Classes, consoletestrunner, tcscanner, tctypeparser, tcstatements,
  6. tcbaseparser, tcmoduleparser, tconstparser, tcvarparser, tcclasstype,
  7. tcexprparser, tcprocfunc, tcpassrcutil, tcresolver, tcgenerics,
  8. tcuseanalyzer, pasresolveeval, tcresolvegenerics;
  9. type
  10. { TLazTestRunner }
  11. TMyTestRunner = class(TTestRunner)
  12. protected
  13. // override the protected methods of TTestRunner to customize its behavior
  14. end;
  15. var
  16. Application: TMyTestRunner;
  17. begin
  18. Application := TMyTestRunner.Create(nil);
  19. DefaultFormat:=fplain;
  20. DefaultRunAllTests:=True;
  21. Application.Initialize;
  22. Application.Run;
  23. Application.Free;
  24. end.