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
|
program dbtestframework_gui;
{$mode objfpc}{$H+}
// Note that this Lazarus project by default re-compiles all DB units! This eases
// developing, but requires some attention from the developer.
// It could very well be that after compiling this project, you have to manually clean
// the .ppu files before you can build fcl-db in the regular way. (Using fpmake)
// If you want to use the default installed db units, use the
// Default_no_local_ppus build mode which clears the search path in the compiler
// options.
uses
Interfaces, Forms,
// GUI:
StdCtrls {to extend GuiTestRunner},
DBGuiTestRunner, inieditor,
// Generic DB test framework units
ToolsUnit,
// Connectors for different database types
sqldbtoolsunit,
dbftoolsunit,
bufdatasettoolsunit,
memdstoolsunit,
SdfDSToolsUnit,
tcsdfdata,
// DB unittest
testbasics,
TestFieldTypes,
TestDBBasics,
TestDatasources,
TestBufDatasetStreams,
TestSQLDB,
TestSpecificTBufDataset,
TestSpecificTDBF,
TestDBExport;
{$R *.res}
begin
Application.Title:='DBTestFramework';
Application.Initialize;
Application.CreateForm(TDBGuiTestRunnerForm, DBGuiTestRunnerForm);
Application.Run;
end.
|