ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/testsuite/testsuite.lpr
Revision: 363
Committed: Tue Dec 7 13:30:05 2021 UTC (8 months, 1 week ago) by tony
File size: 1834 byte(s)
Log Message:
add fbintf
Line File contents
1 (*
2 * IBX Test suite. This program is used to test the IBX non-visual
3 * components and provides a semi-automated pass/fail check for each test.
4 *
5 * The contents of this file are subject to the Initial Developer's
6 * Public License Version 1.0 (the "License"); you may not use this
7 * file except in compliance with the License. You may obtain a copy
8 * of the License here:
9 *
10 * http://www.firebirdsql.org/index.php?op=doc&id=idpl
11 *
12 * Software distributed under the License is distributed on an "AS
13 * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
14 * implied. See the License for the specific language governing rights
15 * and limitations under the License.
16 *
17 * The Initial Developer of the Original Code is Tony Whyman.
18 *
19 * The Original Code is (C) 2021 Tony Whyman, MWA Software
20 * (http://www.mwasoftware.co.uk).
21 *
22 * All Rights Reserved.
23 *
24 * Contributor(s): ______________________________________.
25 *
26 *)
27 program testsuite;
28
29 {$IFDEF FPC}
30 {$mode objfpc}{$H+}
31 {$codepage utf8}
32 {$ENDIF}
33
34 uses
35 {$IFDEF UNIX}
36 cthreads,
37 {$ENDIF}
38 Classes, SysUtils, CustApp, IB, Test01, IBXTestBase, Test03, Test10, Test09,
39 Test04, Test05, Test23, Test14, Test15, Test12, Test02, Test06, Test11,
40 Test13, Test07, Test08, Test24, Test16, Test17, Test19, Test18, Test20,
41 Test21, Test22, Test25, Test26, Test27, Test28, Test29, TestApplication;
42
43 type
44
45 { TIBXTestSuite }
46
47 TIBXTestSuite = class(TTestApplication)
48 public
49 constructor Create(TheOwner: TComponent); override;
50 end;
51
52 { TIBXTestSuite }
53
54 constructor TIBXTestSuite.Create(TheOwner: TComponent);
55 begin
56 inherited Create(TheOwner);
57 StopOnException := True;
58 end;
59
60 var
61 Application: TIBXTestSuite;
62 begin
63 Application := TIBXTestSuite.Create(nil);
64 Application.Title := 'IBX Test Suite';
65 Application.Run;
66 Application.Free;
67 end.
68