blob: dcd6af419e995056033098a1c2e2a26015afcc03 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
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.
|
