freepascal.compiler/packages/fcl-registry/tests/regtestframework.pp

program regtestframework;

{$IFDEF FPC}
{$mode objfpc}{$H+}
{$ENDIF}

{$IFDEF WINDOWS}
{$APPTYPE CONSOLE}
{$ENDIF}

uses
  {$ifdef unix}
  cwstring,
  {$endif}
  SysUtils,
  fpcunit,  testreport, testregistry, consoletestrunner,
// Units wich contains the tests
  tcxmlreg,
  testbasics;

Var
  A : TTestRunner;

begin
  DefaultFormat:=fPlain;
  DefaultRunAllTests:=True;
  A:=TTestRunner.Create(Nil);
  try
    A.Initialize;
    A.Run;
  finally
    A.Free;
  end;
end.