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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
program dbtestframework;
{$IFDEF FPC}
{$mode objfpc}{$H+}
{$ENDIF}
{$APPTYPE CONSOLE}
uses
SysUtils,
fpcunit, testreport, testregistry,
DigestTestReport,
toolsunit,
// List of supported database connectors
sqldbtoolsunit,
dbftoolsunit,
bufdatasettoolsunit,
memdstoolsunit,
SdfDSToolsUnit,
tcsdfdata,
// Units wich contain the tests
TestBasics,
TestFieldTypes,
TestDatasources,
TestDBBasics,
TestBufDatasetStreams,
TestSQLDB,
TestSpecificTBufDataset,
TestSpecificTDBF,
TestDBExport,
consoletestrunner;
Procedure LegacyOutput;
var
FXMLResultsWriter: TXMLResultsWriter;
FDigestResultsWriter: TDigestResultsWriter;
testResult: TTestResult;
begin
testResult := TTestResult.Create;
FXMLResultsWriter := TXMLResultsWriter.Create;
FDigestResultsWriter := TDigestResultsWriter.Create(nil);
try
testResult.AddListener(FXMLResultsWriter);
testResult.AddListener(FDigestResultsWriter);
FDigestResultsWriter.Comment:=dbtype;
FDigestResultsWriter.Category:='DB';
FDigestResultsWriter.RelSrcDir:='fcl-db';
FXMLResultsWriter.WriteHeader;
// FdiDBResultsWriter.OpenConnection(dbconnectorname+';'+dbconnectorparams);
GetTestRegistry.Run(testResult);
FXMLResultsWriter.WriteResult(testResult);
finally
testResult.Free;
FXMLResultsWriter.Free;
FDigestResultsWriter.Free;
end;
end;
Var
Application : TTestRunner;
begin
InitialiseDBConnector;
Try
Application:=TTestRunner.Create(nil);
With Application do
try
if HasOption('g','legacy') then
LegacyOutput
else
begin
DefaultFormat:=fplain;
DefaultRunAllTests:=True;
Initialize;
Run;
end;
finally
Free;
end;
Finally
FreeDBConnector;
end;
end.
|
