journaling/testsuite/testsuite.lpr

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:	315
Committed:	Thu Feb 25 11:56:36 2021 UTC (3 years, 1 month ago) by tony
Original Path:	*ibx/trunk/testsuite/testsuite.lpr*
File size:	875 byte(s)
Log Message:	Updated for IBX 4 release
#	User	Rev	Content
1	tony	315	program testsuite;
2
3			{$IFDEF FPC}
4			{$mode objfpc}{$H+}
5			{$codepage utf8}
6			{$ENDIF}
7
8			uses
9			{$IFDEF UNIX}
10			cthreads,
11			{$ENDIF}
12			Classes, SysUtils, CustApp, IB, Test01, IBXTestBase, Test03, Test10, Test09,
13			Test04, Test05, Test23, Test14, Test15, Test12, Test02, Test06, Test11,
14			Test13, Test07, Test08, Test24, Test16, Test17, Test19, Test18, Test20,
15			Test21, Test22, Test25, Test26, Test27, Test28, TestApplication;
16
17			type
18
19			{ TIBXTestSuite }
20
21			TIBXTestSuite = class(TTestApplication)
22			public
23			constructor Create(TheOwner: TComponent); override;
24			end;
25
26			{ TIBXTestSuite }
27
28			constructor TIBXTestSuite.Create(TheOwner: TComponent);
29			begin
30			inherited Create(TheOwner);
31			StopOnException := True;
32			end;
33
34			var
35			Application: TIBXTestSuite;
36			begin
37			Application := TIBXTestSuite.Create(nil);
38			Application.Title := 'IBX Test Suite';
39			Application.Run;
40			Application.Free;
41			end.
42