fbintf/testsuite/testsuite.lpr

(*
 *  Firebird Interface (fbintf) Test suite. This program is used to
 *  test the Firebird Pascal Interface and provide a semi-automated
 *  pass/fail check for each test.
 *
 *  The contents of this file are subject to the Initial Developer's
 *  Public License Version 1.0 (the "License"); you may not use this
 *  file except in compliance with the License. You may obtain a copy
 *  of the License here:
 *
 *    http://www.firebirdsql.org/index.php?op=doc&id=idpl
 *
 *  Software distributed under the License is distributed on an "AS
 *  IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
 *  implied. See the License for the specific language governing rights
 *  and limitations under the License.
 *
 *  The Initial Developer of the Original Code is Tony Whyman.
 *
 *  The Original Code is (C) 2016-2020 Tony Whyman, MWA Software
 *  (http://www.mwasoftware.co.uk).
 *
 *  All Rights Reserved.
 *
 *  Contributor(s): ______________________________________.
 *
*)
program testsuite;

{$IFDEF FPC}
{$mode objfpc}{$H+}
{$codepage utf8}
{$ENDIF}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  Classes, SysUtils, CustApp, Test1, Test2, Test3, Test4, Test5,
  Test6, Test7, Test8, Test9, Test10, Test11, Test12, Test13, Test14, Test15,
  Test16, IB, Test17, Test18, TestApplication, FBTestApp, Test19, Test20, 
Test21;

type

  { TFBIntTestbed }

  TFBIntTestbed = class(TTestApplication)
    constructor Create(TheOwner: TComponent); override;
  end;

{ TFBIntTestbed }

constructor TFBIntTestbed.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  StopOnException := True;
end;

var
  Application: TFBIntTestbed;
begin
  Application := TFBIntTestbed.Create(nil);
  Application.Title:='Firebird API Test Suite';
  Application.Run;
  Application.Free;
end.

Revision:	380
Committed:	Mon Jan 10 10:13:17 2022 UTC (2 years, 11 months ago) by tony
File size:	1788 byte(s)
Log Message:	propset for eol-style
#	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	349	Test16, IB, Test17, Test18, TestApplication, FBTestApp, Test19, Test20,
42			Test21;
43	tony	45
44			type
45
46			{ TFBIntTestbed }
47
48	tony	315	TFBIntTestbed = class(TTestApplication)
49	tony	45	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	tony	315	Application.Title:='Firebird API Test Suite';
65	tony	45	Application.Run;
66			Application.Free;
67			end.
68