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

program regtestframework;

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

{ $DEFINE STOREDB}

{$APPTYPE CONSOLE}

uses
  SysUtils,
  fpcunit,  testreport, testregistry,
{$IFDEF STOREDB}
  DBResultsWriter,
{$ENDIF}
// Units wich contains the tests
  testbasics;

var
  FXMLResultsWriter: TXMLResultsWriter;
{$IFDEF STOREDB}
  FDBResultsWriter: TDBResultsWriter;
{$ENDIF}
  testResult: TTestResult;
begin
  testResult := TTestResult.Create;
  FXMLResultsWriter := TXMLResultsWriter.Create;
{$IFDEF STOREDB}
  FDBResultsWriter := TDBResultsWriter.Create;
{$ENDIF}
  try
    testResult.AddListener(FXMLResultsWriter);
{$IFDEF STOREDB}
    testResult.AddListener(FDBResultsWriter);
{$ENDIF}
    FXMLResultsWriter.WriteHeader;
{$IFDEF STOREDB}
    FDBResultsWriter.OpenConnection(dbconnectorname+';'+dbconnectorparams);
{$ENDIF}
    GetTestRegistry.Run(testResult);
    FXMLResultsWriter.WriteResult(testResult);
{$IFDEF STOREDB}
    FDBResultsWriter.CloseConnection;
{$ENDIF}
  finally
    testResult.Free;
    FXMLResultsWriter.Free;
{$IFDEF STOREDB}
    FDBResultsWriter.Free;
{$ENDIF}
  end;
end.