fbintf/testsuite/Test16.pas

unit Test16;
{$IFDEF MSWINDOWS} 
{$DEFINE WINDOWS} 
{$ENDIF}

{$IFDEF FPC}
{$mode delphi}
{$codepage UTF8}
{$ENDIF}

{Test 16: Error handling}

{ This test tests for correct responses to various error conditions:

  - Malformed database name.
  - Invalid User Name
  - Invalid password
  - Invalid Update SQL Statement
  - Invalid Select SQL
  - Transaction not started
  - Invalid parameter by name when should be positional
  - Invalid server name
  - invalid user name - logon to server
  - invalid password
}

interface

uses
  Classes, SysUtils, TestManager, IB;

type

  { TTest16 }

  TTest16 = class(TTestBase)
  private
    procedure DBTests(CharSet: AnsiString; SQLDialect: integer);
    procedure ServiceTests(CharSet: AnsiString; SQLDialect: integer);
  public
    function TestTitle: AnsiString; override;
    procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
  end;


implementation

{ TTest16 }

procedure TTest16.DBTests(CharSet: AnsiString; SQLDialect: integer);
var DPB: IDPB;
    Attachment: IAttachment;
    Transaction: ITransaction;
    Statement: IStatement;
begin
  DPB := FirebirdAPI.AllocateDPB;
  DPB.Add(isc_dpb_user_name).setAsString(Owner.GetUserName);
  DPB.Add(isc_dpb_password).setAsString(Owner.GetPassword);
  DPB.Add(isc_dpb_lc_ctype).setAsString('UTF8');
  DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect);
  try
    writeln(OutFile,'Invalid Database Name Test');
    Attachment := FirebirdAPI.OpenDatabase('localhost:Malformed Name',DPB);
  except on E: Exception do
    writeln(OutFile,'Error Handled: ',E.Message);
  end;
  DPB.Find(isc_dpb_user_name).setAsString('Captain Nemo');
  try
    writeln(OutFile,'Invalid User Name Test');
    Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);
  except on E: Exception do
    writeln(OutFile,'Error Handled: ',E.Message);
  end;
  DPB.Find(isc_dpb_user_name).setAsString(Owner.GetUserName);
  DPB.Find(isc_dpb_password).setAsString('not a pwd');
  try
    writeln(OutFile,'Invalid password Test');
    Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);
  except on E: Exception do
    writeln(OutFile,'Error Handled: ',E.Message);
  end;
  DPB.Find(isc_dpb_password).setAsString(Owner.GetPassword);
  Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);
  Transaction := Attachment.StartTransaction([isc_tpb_write,isc_tpb_nowait,isc_tpb_concurrency],taRollback);
  try
    writeln(OutFile,'Invalid Prepare SQL Test');
    Statement := Attachment.Prepare(Transaction,'Update Employee Set Unknown_Date = ? Where EMP_NO = ?',3);
  except on E: Exception do
    writeln(OutFile,'Error Handled: ',E.Message);
  end;
  try
    writeln(OutFile,'Invalid Open Cursor SQL Test');
    Attachment.OpenCursorAtStart(Transaction,
           'Select X,count(*) As Counter from EMPLOYEE',3);
  except on E: Exception do
    writeln(OutFile,'Error Handled: ',E.Message);
  end;
  Transaction.Rollback;
  try
    writeln(OutFile,'Transaction not started Test');
    Attachment.OpenCursorAtStart(Transaction,
           'Select count(*) As Counter from EMPLOYEE',3);
  except on E: Exception do
    writeln(OutFile,'Error Handled: ',E.Message);
  end;
  Transaction.Start;
  try
    writeln(OutFile,'Invalid Param SQL Type Test');
    Statement := Attachment.Prepare(Transaction,'Update Employee Set Hire_Date = ? Where EMP_NO = ?',3);
    Statement.SQLParams.ByName('EMP_NO').AsDate := EncodeDate(2016,11,5);
  except on E: Exception do
    writeln(OutFile,'Error Handled: ',E.Message);
  end;
end;

procedure TTest16.ServiceTests(CharSet: AnsiString; SQLDialect: integer);
var SPB: ISPB;
    Service: IServiceManager;
    I: integer;
    ServerName: AnsiString;
    DBName: AnsiString;
begin
  if not FirebirdAPI.HasServiceAPI then Exit;

  ServerName := Owner.GetEmployeeDatabaseName;
  I := Pos(':',ServerName);
  if i > 0 then
    DBName := system.copy(ServerName,i+1,length(ServerName) - 2);
  system.Delete(ServerName,i,Length(ServerName)-i+1);

  SPB := FirebirdAPI.AllocateSPB;
  SPB.Add(isc_spb_user_name).setAsString(Owner.GetUserName);
  SPB.Add(isc_spb_password).setAsString(Owner.GetPassword);
  try
    writeln(OutFile,'Invalid Server Name Test');
    Service := FirebirdAPI.GetServiceManager('unknown',TCP,SPB);
  except on E: Exception do
    writeln(OutFile,'Error Handled: ',E.Message);
  end;

  SPB.Find(isc_spb_user_name).setAsString('Captain Nemo');
  try
    writeln(OutFile,'Invalid User Name Test');
    Service := FirebirdAPI.GetServiceManager(ServerName,TCP,SPB);
  except on E: Exception do
    writeln(OutFile,'Error Handled: ',E.Message);
  end;
  SPB.Find(isc_spb_user_name).setAsString(Owner.GetUserName);
  SPB.Find(isc_spb_password).setAsString('Bad pwd');
  try
    writeln(OutFile,'Invalid password Test');
    Service := FirebirdAPI.GetServiceManager(ServerName,TCP,SPB);
  except on E: Exception do
    writeln(OutFile,'Error Handled: ',E.Message);
  end;
end;

function TTest16.TestTitle: AnsiString;
begin
  Result := 'Test 16: Error handling';
end;

procedure TTest16.RunTest(CharSet: AnsiString; SQLDialect: integer);
begin
  DBTests(Charset,SQLDialect);
  ServiceTests(Charset,SQLDialect);
end;

initialization
  RegisterTest(TTest16);
end.

Revision:	56
Committed:	Mon Mar 6 10:20:02 2017 UTC (7 years, 9 months ago) by tony
Content type:	text/x-pascal
File size:	5252 byte(s)
Log Message:	Committing updates for Trunk
#	Content
1	unit Test16;
2	{$IFDEF MSWINDOWS}
3	{$DEFINE WINDOWS}
4	{$ENDIF}
5
6	{$IFDEF FPC}
7	{$mode delphi}
8	{$codepage UTF8}
9	{$ENDIF}
10
11	{Test 16: Error handling}
12
13	{ This test tests for correct responses to various error conditions:
14
15	- Malformed database name.
16	- Invalid User Name
17	- Invalid password
18	- Invalid Update SQL Statement
19	- Invalid Select SQL
20	- Transaction not started
21	- Invalid parameter by name when should be positional
22	- Invalid server name
23	- invalid user name - logon to server
24	- invalid password
25	}
26
27	interface
28
29	uses
30	Classes, SysUtils, TestManager, IB;
31
32	type
33
34	{ TTest16 }
35
36	TTest16 = class(TTestBase)
37	private
38	procedure DBTests(CharSet: AnsiString; SQLDialect: integer);
39	procedure ServiceTests(CharSet: AnsiString; SQLDialect: integer);
40	public
41	function TestTitle: AnsiString; override;
42	procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
43	end;
44
45
46	implementation
47
48	{ TTest16 }
49
50	procedure TTest16.DBTests(CharSet: AnsiString; SQLDialect: integer);
51	var DPB: IDPB;
52	Attachment: IAttachment;
53	Transaction: ITransaction;
54	Statement: IStatement;
55	begin
56	DPB := FirebirdAPI.AllocateDPB;
57	DPB.Add(isc_dpb_user_name).setAsString(Owner.GetUserName);
58	DPB.Add(isc_dpb_password).setAsString(Owner.GetPassword);
59	DPB.Add(isc_dpb_lc_ctype).setAsString('UTF8');
60	DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect);
61	try
62	writeln(OutFile,'Invalid Database Name Test');
63	Attachment := FirebirdAPI.OpenDatabase('localhost:Malformed Name',DPB);
64	except on E: Exception do
65	writeln(OutFile,'Error Handled: ',E.Message);
66	end;
67	DPB.Find(isc_dpb_user_name).setAsString('Captain Nemo');
68	try
69	writeln(OutFile,'Invalid User Name Test');
70	Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);
71	except on E: Exception do
72	writeln(OutFile,'Error Handled: ',E.Message);
73	end;
74	DPB.Find(isc_dpb_user_name).setAsString(Owner.GetUserName);
75	DPB.Find(isc_dpb_password).setAsString('not a pwd');
76	try
77	writeln(OutFile,'Invalid password Test');
78	Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);
79	except on E: Exception do
80	writeln(OutFile,'Error Handled: ',E.Message);
81	end;
82	DPB.Find(isc_dpb_password).setAsString(Owner.GetPassword);
83	Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);
84	Transaction := Attachment.StartTransaction([isc_tpb_write,isc_tpb_nowait,isc_tpb_concurrency],taRollback);
85	try
86	writeln(OutFile,'Invalid Prepare SQL Test');
87	Statement := Attachment.Prepare(Transaction,'Update Employee Set Unknown_Date = ? Where EMP_NO = ?',3);
88	except on E: Exception do
89	writeln(OutFile,'Error Handled: ',E.Message);
90	end;
91	try
92	writeln(OutFile,'Invalid Open Cursor SQL Test');
93	Attachment.OpenCursorAtStart(Transaction,
94	'Select X,count(*) As Counter from EMPLOYEE',3);
95	except on E: Exception do
96	writeln(OutFile,'Error Handled: ',E.Message);
97	end;
98	Transaction.Rollback;
99	try
100	writeln(OutFile,'Transaction not started Test');
101	Attachment.OpenCursorAtStart(Transaction,
102	'Select count(*) As Counter from EMPLOYEE',3);
103	except on E: Exception do
104	writeln(OutFile,'Error Handled: ',E.Message);
105	end;
106	Transaction.Start;
107	try
108	writeln(OutFile,'Invalid Param SQL Type Test');
109	Statement := Attachment.Prepare(Transaction,'Update Employee Set Hire_Date = ? Where EMP_NO = ?',3);
110	Statement.SQLParams.ByName('EMP_NO').AsDate := EncodeDate(2016,11,5);
111	except on E: Exception do
112	writeln(OutFile,'Error Handled: ',E.Message);
113	end;
114	end;
115
116	procedure TTest16.ServiceTests(CharSet: AnsiString; SQLDialect: integer);
117	var SPB: ISPB;
118	Service: IServiceManager;
119	I: integer;
120	ServerName: AnsiString;
121	DBName: AnsiString;
122	begin
123	if not FirebirdAPI.HasServiceAPI then Exit;
124
125	ServerName := Owner.GetEmployeeDatabaseName;
126	I := Pos(':',ServerName);
127	if i > 0 then
128	DBName := system.copy(ServerName,i+1,length(ServerName) - 2);
129	system.Delete(ServerName,i,Length(ServerName)-i+1);
130
131	SPB := FirebirdAPI.AllocateSPB;
132	SPB.Add(isc_spb_user_name).setAsString(Owner.GetUserName);
133	SPB.Add(isc_spb_password).setAsString(Owner.GetPassword);
134	try
135	writeln(OutFile,'Invalid Server Name Test');
136	Service := FirebirdAPI.GetServiceManager('unknown',TCP,SPB);
137	except on E: Exception do
138	writeln(OutFile,'Error Handled: ',E.Message);
139	end;
140
141	SPB.Find(isc_spb_user_name).setAsString('Captain Nemo');
142	try
143	writeln(OutFile,'Invalid User Name Test');
144	Service := FirebirdAPI.GetServiceManager(ServerName,TCP,SPB);
145	except on E: Exception do
146	writeln(OutFile,'Error Handled: ',E.Message);
147	end;
148	SPB.Find(isc_spb_user_name).setAsString(Owner.GetUserName);
149	SPB.Find(isc_spb_password).setAsString('Bad pwd');
150	try
151	writeln(OutFile,'Invalid password Test');
152	Service := FirebirdAPI.GetServiceManager(ServerName,TCP,SPB);
153	except on E: Exception do
154	writeln(OutFile,'Error Handled: ',E.Message);
155	end;
156	end;
157
158	function TTest16.TestTitle: AnsiString;
159	begin
160	Result := 'Test 16: Error handling';
161	end;
162
163	procedure TTest16.RunTest(CharSet: AnsiString; SQLDialect: integer);
164	begin
165	DBTests(Charset,SQLDialect);
166	ServiceTests(Charset,SQLDialect);
167	end;
168
169	initialization
170	RegisterTest(TTest16);
171	end.
172