ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/testsuite/testsuite.dpr
Revision: 381
Committed: Sat Jan 15 00:06:22 2022 UTC (2 years, 2 months ago) by tony
File size: 933 byte(s)
Log Message:
Release Candidate 1

File Contents

# Content
1 program testsuite;
2
3 {$APPTYPE CONSOLE}
4
5 {$R *.res}
6
7 uses
8 System.SysUtils,
9 FBTestApp in 'FBTestApp.pas',
10 Test1 in 'Test1.pas',
11 Test2 in 'Test2.pas',
12 Test3 in 'Test3.pas',
13 Test4 in 'Test4.pas',
14 Test5 in 'Test5.pas',
15 Test6 in 'Test6.pas',
16 Test7 in 'Test7.pas',
17 Test8 in 'Test8.pas',
18 Test9 in 'Test9.pas',
19 Test10 in 'Test10.pas',
20 Test11 in 'Test11.pas',
21 Test12 in 'Test12.pas',
22 Test13 in 'Test13.pas',
23 Test14 in 'Test14.pas',
24 Test15 in 'Test15.pas',
25 Test16 in 'Test16.pas',
26 Test17 in 'Test17.pas',
27 Test18 in 'Test18.pas',
28 Test19 in 'Test19.pas',
29 Test20 in 'Test20.pas',
30 Test21 in 'Test21.pas',
31 Test22 in 'Test22.pas',
32 TestApplication in 'testApp\TestApplication.pas';
33
34 var
35 Application: TTestApplication;
36 begin
37 Application := TTestApplication.Create(nil);
38 Application.Title:='Firebird API Test Suite';
39 Application.Run;
40 Application.Free;
41 end.