ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/fbintf/testsuite/testsuite.lpr
Revision: 315
Committed: Thu Feb 25 11:56:36 2021 UTC (3 years, 1 month ago) by tony
Original Path: ibx/trunk/fbintf/testsuite/testsuite.lpr
File size: 1763 byte(s)
Log Message:
Updated for IBX 4 release

File Contents

# User Rev Content
1 tony 315 (*
2     * Firebird Interface (fbintf) Test suite. This program is used to
3     * test the Firebird Pascal Interface and provide a semi-automated
4     * pass/fail check for each test.
5     *
6     * The contents of this file are subject to the Initial Developer's
7     * Public License Version 1.0 (the "License"); you may not use this
8     * file except in compliance with the License. You may obtain a copy
9     * of the License here:
10     *
11     * http://www.firebirdsql.org/index.php?op=doc&id=idpl
12     *
13     * Software distributed under the License is distributed on an "AS
14     * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
15     * implied. See the License for the specific language governing rights
16     * and limitations under the License.
17     *
18     * The Initial Developer of the Original Code is Tony Whyman.
19     *
20     * The Original Code is (C) 2016-2020 Tony Whyman, MWA Software
21     * (http://www.mwasoftware.co.uk).
22     *
23     * All Rights Reserved.
24     *
25     * Contributor(s): ______________________________________.
26     *
27     *)
28 tony 45 program testsuite;
29    
30 tony 56 {$IFDEF FPC}
31 tony 45 {$mode objfpc}{$H+}
32     {$codepage utf8}
33 tony 56 {$ENDIF}
34 tony 45
35     uses
36     {$IFDEF UNIX}
37     cthreads,
38     {$ENDIF}
39 tony 315 Classes, SysUtils, CustApp, Test1, Test2, Test3, Test4, Test5,
40 tony 45 Test6, Test7, Test8, Test9, Test10, Test11, Test12, Test13, Test14, Test15,
41 tony 315 Test16, IB, Test17, Test18, TestApplication, FBTestApp;
42 tony 45
43     type
44    
45     { TFBIntTestbed }
46    
47 tony 315 TFBIntTestbed = class(TTestApplication)
48 tony 45 constructor Create(TheOwner: TComponent); override;
49     end;
50    
51     { TFBIntTestbed }
52    
53     constructor TFBIntTestbed.Create(TheOwner: TComponent);
54     begin
55     inherited Create(TheOwner);
56     StopOnException := True;
57     end;
58    
59     var
60     Application: TFBIntTestbed;
61     begin
62     Application := TFBIntTestbed.Create(nil);
63 tony 315 Application.Title:='Firebird API Test Suite';
64 tony 45 Application.Run;
65     Application.Free;
66     end.
67