ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/testsuite/testsuite.lpr
Revision: 379
Committed: Mon Jan 10 10:08:03 2022 UTC (2 years, 2 months ago) by tony
File size: 1798 byte(s)
Log Message:
set line ending property

File Contents

# Content
1 (*
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 program testsuite;
29
30 {$IFDEF FPC}
31 {$mode objfpc}{$H+}
32 {$codepage utf8}
33 {$ENDIF}
34
35 uses
36 {$IFDEF UNIX}
37 cthreads,
38 {$ENDIF}
39 Classes, SysUtils, CustApp, Test1, Test2, Test3, Test4, Test5,
40 Test6, Test7, Test8, Test9, Test10, Test11, Test12, Test13, Test14, Test15,
41 Test16, IB, Test17, Test18, TestApplication, FBTestApp, Test19, Test20,
42 Test21, Test22;
43
44 type
45
46 { TFBIntTestbed }
47
48 TFBIntTestbed = class(TTestApplication)
49 constructor Create(TheOwner: TComponent); override;
50 end;
51
52 { TFBIntTestbed }
53
54 constructor TFBIntTestbed.Create(TheOwner: TComponent);
55 begin
56 inherited Create(TheOwner);
57 StopOnException := True;
58 end;
59
60 var
61 Application: TFBIntTestbed;
62 begin
63 Application := TFBIntTestbed.Create(nil);
64 Application.Title:='Firebird API Test Suite';
65 Application.Run;
66 Application.Free;
67 end.
68

Properties

Name Value
svn:eol-style native