1
program dbtestframework;
13
fpcunit, testreport, testregistry,
18
// Units wich contains the tests
19
testbasics, testsqlfieldtypes, testdbbasics;
22
FXMLResultsWriter: TXMLResultsWriter;
24
FDBResultsWriter: TDBResultsWriter;
26
testResult: TTestResult;
28
testResult := TTestResult.Create;
29
FXMLResultsWriter := TXMLResultsWriter.Create;
31
FDBResultsWriter := TDBResultsWriter.Create;
34
testResult.AddListener(FXMLResultsWriter);
36
testResult.AddListener(FDBResultsWriter);
38
FXMLResultsWriter.WriteHeader;
40
FDBResultsWriter.OpenConnection(dbconnectorname+';'+dbconnectorparams);
42
GetTestRegistry.Run(testResult);
43
FXMLResultsWriter.WriteResult(testResult);
45
FDBResultsWriter.CloseConnection;
49
FXMLResultsWriter.Free;
51
FDBResultsWriter.Free;