mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-06 15:46:34 +02:00
54 lines
1.1 KiB
ObjectPascal
54 lines
1.1 KiB
ObjectPascal
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.
|