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;

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:	315
Committed:	Thu Feb 25 11:56:36 2021 UTC (3 years, 8 months ago) by tony
File size:	1763 byte(s)
Log Message:	Updated for IBX 4 release
#	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