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 (5 months, 2 weeks ago) by tony
File size: 933 byte(s)
Log Message:
Release Candidate 1
Line User Rev File contents
1 tony 56 program testsuite;
2    
3     {$APPTYPE CONSOLE}
4    
5     {$R *.res}
6    
7     uses
8 tony 381 System.SysUtils,
9     FBTestApp in 'FBTestApp.pas',
10 tony 56 Test1 in 'Test1.pas',
11 tony 381 Test2 in 'Test2.pas',
12 tony 56 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 tony 315 Test17 in 'Test17.pas',
27     Test18 in 'Test18.pas',
28 tony 345 Test19 in 'Test19.pas',
29 tony 350 Test20 in 'Test20.pas',
30 tony 363 Test21 in 'Test21.pas',
31 tony 381 Test22 in 'Test22.pas',
32     TestApplication in 'testApp\TestApplication.pas';
33 tony 56
34     var
35 tony 315 Application: TTestApplication;
36     begin
37     Application := TTestApplication.Create(nil);
38     Application.Title:='Firebird API Test Suite';
39     Application.Run;
40     Application.Free;
41 tony 56 end.