fpc/packages/fcl-registry/tests/regtestframework.pp
michael 27329429d9 * Fix possible buffer overflow (bug ID 31203)
git-svn-id: trunk@35330 -
2017-01-25 20:59:35 +00:00

32 lines
463 B
ObjectPascal

program regtestframework;
{$IFDEF FPC}
{$mode objfpc}{$H+}
{$ENDIF}
{$IFDEF WINDOWS}
{$APPTYPE CONSOLE}
{$ENDIF}
uses
SysUtils,
fpcunit, testreport, testregistry,
// Units wich contains the tests
tcxmlreg,
testbasics, consoletestrunner;
Var
A : TTestRunner;
begin
DefaultFormat:=fPlain;
DefaultRunAllTests:=True;
A:=TTestRunner.Create(Nil);
try
A.Initialize;
A.Run;
finally
A.Free;
end;
end.