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');
    {$IF declared(SetTextCodePage)}
    {Ensure consistent UTF-8 output}
    SetTextCodePage(OutFile,cp_utf8);
    {$IFEND}

    {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:	68
Committed:	Tue Oct 17 10:07:58 2017 UTC (7 years, 2 months ago) by tony
File size:	3313 byte(s)
Log Message:	IBX: Editor Positioning tidy up FBINTF: Trap uninitialised SQL parameters on SQL Exec. Avoids Unknown SQL Type errors. Consistent setting of Modified (SQLParam).
#	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	tony	68	{$IF declared(SetTextCodePage)}
84			{Ensure consistent UTF-8 output}
85			SetTextCodePage(OutFile,cp_utf8);
86			{$IFEND}
87	tony	45
88			{Ensure consistent date reporting across platforms}
89			DefaultFormatSettings.ShortDateFormat := 'd/m/yyyy';
90	tony	56	DefaultFormatSettings.LongTimeFormat := 'HH:MM:SS';
91	tony	45	DefaultFormatSettings.DateSeparator := '/';
92
93			writeln(OutFile,Title);
94			writeln(OutFile,'Copyright MWA Software 2016');
95			writeln(OutFile);
96			writeln(OutFile,'Starting Tests');
97			writeln(OutFile,'Client API Version = ',FirebirdAPI.GetImplementationVersion);
98
99			if FTestID = 0 then
100			TestMgr.RunAll
101			else
102			TestMgr.Run(FTestID);
103			TestMgr.Free;
104			end;
105
106			writeln(OutFile,'Test Suite Ends');
107			Flush(OutFile);
108			{$IFDEF WINDOWS}
109			//readln; {uncomment if running from IDE and console window closes before you can view results}
110			{$ENDIF}
111
112			// stop program loop
113			Terminate;
114			end;
115
116			constructor TFBIntTestbed.Create(TheOwner: TComponent);
117			begin
118			inherited Create(TheOwner);
119			StopOnException := True;
120			end;
121
122			destructor TFBIntTestbed.Destroy;
123			begin
124			inherited Destroy;
125			end;
126
127			procedure TFBIntTestbed.WriteHelp;
128			begin
129			{ add your help code here }
130			writeln(OutFile,'Usage: ', ExeName, ' -h');
131			end;
132
133			var
134			Application: TFBIntTestbed;
135			begin
136			Application := TFBIntTestbed.Create(nil);
137			Application.Title := 'Firebird API Test Suite';
138			Application.Run;
139			Application.Free;
140			end.
141