trunk/testsuite/testsuite.lpr

(*
 *  IBX Test suite. This program is used to test the IBX non-visual
 *  components and provides 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) 2021 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, IB, Test01, IBXTestBase, Test03, Test10, Test09,
  Test04, Test05, Test23, Test14, Test15, Test12, Test02, Test06, Test11,
  Test13, Test07, Test08, Test24, Test16, Test17, Test19, Test18, Test20,
  Test21, Test22, Test25, Test26, Test27, Test28, TestApplication;

type

  { TIBXTestSuite }

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

{ TIBXTestSuite }

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

var
  Application: TIBXTestSuite;
begin
  Application := TIBXTestSuite.Create(nil);
  Application.Title := 'IBX Test Suite';
  Application.Run;
  Application.Free;
end.

Revision:	380
Committed:	Mon Jan 10 10:13:17 2022 UTC (2 years, 10 months ago) by tony
File size:	1826 byte(s)
Log Message:	propset for eol-style
#	Content
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, 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