12345678910111213141516171819202122232425262728293031 |
- program testpassrc;
- {$mode objfpc}{$H+}
- uses
- //MemCheck,
- Classes, consoletestrunner, tcscanner, tctypeparser, tcstatements,
- tcbaseparser, tcmoduleparser, tconstparser, tcvarparser, tcclasstype,
- tcexprparser, tcprocfunc, tcpassrcutil, tcresolver, tcgenerics,
- tcuseanalyzer, pasresolveeval, tcresolvegenerics;
- type
- { TLazTestRunner }
- TMyTestRunner = class(TTestRunner)
- protected
- // override the protected methods of TTestRunner to customize its behavior
- end;
- var
- Application: TMyTestRunner;
- begin
- Application := TMyTestRunner.Create(nil);
- DefaultFormat:=fplain;
- DefaultRunAllTests:=True;
- Application.Initialize;
- Application.Run;
- Application.Free;
- end.
|