fbintf/testsuite/testsuite.lpr

program testsuite;

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

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  Classes, SysUtils, CustApp, TestManager, Test1, test2, Test3, Test4, Test5,
  Test6, Test7, Test8, Test9, Test10, Test11, Test12, Test13, Test14, Test15,
  Test16, IB;

type

  { TFBIntTestbed }

  TFBIntTestbed = class(TCustomApplication)
  private
    FTestID: integer;
  protected
    procedure DoRun; override;
  public
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
    procedure WriteHelp; virtual;
  end;

{ TFBIntTestbed }

procedure TFBIntTestbed.DoRun;
var
  ErrorMsg: String;
begin
  OutFile := stdout;
  // quick check parameters
  ErrorMsg := CheckOptions('htupensboS', 'help test user passwd employeedb newdbname secondnewdbname backupfile outfile stats');
  if ErrorMsg <> '' then begin
    ShowException(Exception.Create(ErrorMsg));
    Terminate;
    Exit;
  end;

  // parse parameters
  if HasOption('h', 'help') then begin
    WriteHelp;
    Terminate;
    Exit;
  end;

  if HasOption('t') then
    FTestID := StrToInt(GetOptionValue('t'));

  if TestMgr <> nil then
  begin
    if HasOption('u','user') then
      TestMgr.SetUserName(GetOptionValue('u'));

    if HasOption('p','passwd') then
      TestMgr.SetPassword(GetOptionValue('p'));

    if HasOption('e','employeedb') then
      TestMgr.SetEmployeeDatabaseName(GetOptionValue('e'));

    if HasOption('n','newdbname') then
      TestMgr.SetNewDatabaseName(GetOptionValue('n'));

    if HasOption('s','secondnewdbname') then
      TestMgr.SetSecondNewDatabaseName(GetOptionValue('s'));

    if HasOption('b','backupfile') then
      TestMgr.SetBackupFileName(GetOptionValue('b'));

    if HasOption('o','outfile') then
    begin
      system.Assign(outFile,GetOptionValue('o'));
      ReWrite(outFile);
    end;

    TestMgr.ShowStatistics := HasOption('S','stats');

    {Ensure consistent date reporting across platforms}
    DefaultFormatSettings.ShortDateFormat := 'd/m/yyyy';
    DefaultFormatSettings.LongTimeFormat := 'HH:MM:SS';
    DefaultFormatSettings.DateSeparator := '/';

    writeln(OutFile,Title);
    writeln(OutFile,'Copyright MWA Software 2016');
    writeln(OutFile);
    writeln(OutFile,'Starting Tests');
    writeln(OutFile,'Client API Version = ',FirebirdAPI.GetImplementationVersion);

    if FTestID = 0 then
      TestMgr.RunAll
    else
      TestMgr.Run(FTestID);
    TestMgr.Free;
  end;

  writeln(OutFile,'Test Suite Ends');
  Flush(OutFile);
  {$IFDEF WINDOWS}
  //readln; {uncomment if running from IDE and console window closes before you can view results}
  {$ENDIF}

  // stop program loop
  Terminate;
end;

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

destructor TFBIntTestbed.Destroy;
begin
  inherited Destroy;
end;

procedure TFBIntTestbed.WriteHelp;
begin
  { add your help code here }
  writeln(OutFile,'Usage: ', ExeName, ' -h');
end;

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

Revision:	56
Committed:	Mon Mar 6 10:20:02 2017 UTC (7 years, 9 months ago) by tony
File size:	3189 byte(s)
Log Message:	Committing updates for Trunk
#	User	Rev	Content
1	tony	45	program testsuite;
2
3	tony	56	{$IFDEF FPC}
4	tony	45	{$mode objfpc}{$H+}
5			{$codepage utf8}
6	tony	56	{$ENDIF}
7	tony	45
8			uses
9			{$IFDEF UNIX}
10			cthreads,
11			{$ENDIF}
12			Classes, SysUtils, CustApp, TestManager, Test1, test2, Test3, Test4, Test5,
13			Test6, Test7, Test8, Test9, Test10, Test11, Test12, Test13, Test14, Test15,
14			Test16, IB;
15
16			type
17
18			{ TFBIntTestbed }
19
20			TFBIntTestbed = class(TCustomApplication)
21			private
22			FTestID: integer;
23			protected
24			procedure DoRun; override;
25			public
26			constructor Create(TheOwner: TComponent); override;
27			destructor Destroy; override;
28			procedure WriteHelp; virtual;
29			end;
30
31			{ TFBIntTestbed }
32
33			procedure TFBIntTestbed.DoRun;
34			var
35			ErrorMsg: String;
36			begin
37			OutFile := stdout;
38			// quick check parameters
39			ErrorMsg := CheckOptions('htupensboS', 'help test user passwd employeedb newdbname secondnewdbname backupfile outfile stats');
40			if ErrorMsg <> '' then begin
41			ShowException(Exception.Create(ErrorMsg));
42			Terminate;
43			Exit;
44			end;
45
46			// parse parameters
47			if HasOption('h', 'help') then begin
48			WriteHelp;
49			Terminate;
50			Exit;
51			end;
52
53			if HasOption('t') then
54			FTestID := StrToInt(GetOptionValue('t'));
55
56			if TestMgr <> nil then
57			begin
58			if HasOption('u','user') then
59			TestMgr.SetUserName(GetOptionValue('u'));
60
61			if HasOption('p','passwd') then
62			TestMgr.SetPassword(GetOptionValue('p'));
63
64			if HasOption('e','employeedb') then
65			TestMgr.SetEmployeeDatabaseName(GetOptionValue('e'));
66
67			if HasOption('n','newdbname') then
68			TestMgr.SetNewDatabaseName(GetOptionValue('n'));
69
70			if HasOption('s','secondnewdbname') then
71			TestMgr.SetSecondNewDatabaseName(GetOptionValue('s'));
72
73			if HasOption('b','backupfile') then
74			TestMgr.SetBackupFileName(GetOptionValue('b'));
75
76			if HasOption('o','outfile') then
77			begin
78			system.Assign(outFile,GetOptionValue('o'));
79			ReWrite(outFile);
80			end;
81
82			TestMgr.ShowStatistics := HasOption('S','stats');
83
84			{Ensure consistent date reporting across platforms}
85			DefaultFormatSettings.ShortDateFormat := 'd/m/yyyy';
86	tony	56	DefaultFormatSettings.LongTimeFormat := 'HH:MM:SS';
87	tony	45	DefaultFormatSettings.DateSeparator := '/';
88
89			writeln(OutFile,Title);
90			writeln(OutFile,'Copyright MWA Software 2016');
91			writeln(OutFile);
92			writeln(OutFile,'Starting Tests');
93			writeln(OutFile,'Client API Version = ',FirebirdAPI.GetImplementationVersion);
94
95			if FTestID = 0 then
96			TestMgr.RunAll
97			else
98			TestMgr.Run(FTestID);
99			TestMgr.Free;
100			end;
101
102			writeln(OutFile,'Test Suite Ends');
103			Flush(OutFile);
104			{$IFDEF WINDOWS}
105			//readln; {uncomment if running from IDE and console window closes before you can view results}
106			{$ENDIF}
107
108			// stop program loop
109			Terminate;
110			end;
111
112			constructor TFBIntTestbed.Create(TheOwner: TComponent);
113			begin
114			inherited Create(TheOwner);
115			StopOnException := True;
116			end;
117
118			destructor TFBIntTestbed.Destroy;
119			begin
120			inherited Destroy;
121			end;
122
123			procedure TFBIntTestbed.WriteHelp;
124			begin
125			{ add your help code here }
126			writeln(OutFile,'Usage: ', ExeName, ' -h');
127			end;
128
129			var
130			Application: TFBIntTestbed;
131			begin
132			Application := TFBIntTestbed.Create(nil);
133			Application.Title := 'Firebird API Test Suite';
134			Application.Run;
135			Application.Free;
136			end.
137