ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/testsuite/testsuite.dpr
Revision: 315
Committed: Thu Feb 25 11:56:36 2021 UTC (16 months, 1 week ago) by tony
Original Path: ibx/trunk/fbintf/testsuite/testsuite.dpr
File size: 818 byte(s)
Log Message:
Updated for IBX 4 release
Line File contents
1 program testsuite;
2
3 {$APPTYPE CONSOLE}
4
5 {$R *.res}
6
7 uses
8 SysUtils,
9 Test1 in 'Test1.pas',
10 Test3 in 'Test3.pas',
11 Test4 in 'Test4.pas',
12 Test5 in 'Test5.pas',
13 Test6 in 'Test6.pas',
14 Test7 in 'Test7.pas',
15 Test8 in 'Test8.pas',
16 Test9 in 'Test9.pas',
17 Test10 in 'Test10.pas',
18 Test11 in 'Test11.pas',
19 Test12 in 'Test12.pas',
20 Test13 in 'Test13.pas',
21 Test14 in 'Test14.pas',
22 Test15 in 'Test15.pas',
23 Test16 in 'Test16.pas',
24 Test17 in 'Test17.pas',
25 Test18 in 'Test18.pas',
26 Test2 in 'Test2.pas',
27 TestApplication in 'testApp\TestApplication.pas',
28 FBTestApp in 'FBTestApp.pas';
29
30 var
31 Application: TTestApplication;
32 begin
33 Application := TTestApplication.Create(nil);
34 Application.Title:='Firebird API Test Suite';
35 Application.Run;
36 Application.Free;
37 end.