ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/fbintf/testsuite/Test16.pas

Comparing ibx/trunk/fbintf/testsuite/Test16.pas (file contents):
Revision 308 by tony, Sat Jul 18 10:26:30 2020 UTC vs.
Revision 380 by tony, Mon Jan 10 10:13:17 2022 UTC

#	Line 1 | Line 1
1	+	(*
2	+	*  Firebird Interface (fbintf) Test suite. This program is used to
3	+	*  test the Firebird Pascal Interface and provide a semi-automated
4	+	*  pass/fail check for each test.
5	+	*
6	+	*  The contents of this file are subject to the Initial Developer's
7	+	*  Public License Version 1.0 (the "License"); you may not use this
8	+	*  file except in compliance with the License. You may obtain a copy
9	+	*  of the License here:
10	+	*
11	+	*    http://www.firebirdsql.org/index.php?op=doc&id=idpl
12	+	*
13	+	*  Software distributed under the License is distributed on an "AS
14	+	*  IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
15	+	*  implied. See the License for the specific language governing rights
16	+	*  and limitations under the License.
17	+	*
18	+	*  The Initial Developer of the Original Code is Tony Whyman.
19	+	*
20	+	*  The Original Code is (C) 2016 Tony Whyman, MWA Software
21	+	*  (http://www.mwasoftware.co.uk).
22	+	*
23	+	*  All Rights Reserved.
24	+	*
25	+	*  Contributor(s): ______________________________________.
26	+	*
27	+	*)
28	+
29		unit Test16;
30		{$IFDEF MSWINDOWS}
31		{$DEFINE WINDOWS}
#	Line 27 | Line 55 | unit Test16;
55		interface
56
57		uses
58	<	Classes, SysUtils, TestManager, IB;
58	>	Classes, SysUtils, TestApplication, FBTestApp, IB;
59
60		type
61
62		{ TTest16 }
63
64	<	TTest16 = class(TTestBase)
64	>	TTest16 = class(TFBTestBase)
65		private
66		procedure DBTests(CharSet: AnsiString; SQLDialect: integer);
67		procedure ServiceTests(CharSet: AnsiString; SQLDialect: integer);
#	Line 122 | Line 150 | begin
150		except on E: Exception do
151		writeln(OutFile,'Error Handled: ',E.Message);
152		end;
153	+	Transaction.Rollback;
154	+	Transaction.Start;
155	+	writeln(Outfile,'Stale Reference Check');
156	+	writeln(Outfile,'First test correct usage');
157	+	Statement :=  Attachment.Prepare(Transaction,'Select count(*) As Counter from EMPLOYEE Where Hire_Date < ?',3);
158	+	Statement.SQLParams[0].AsDate := EncodeDate(2016,11,5);
159	+	ReportResults(Statement);
160	+	try
161	+	writeln(Outfile,'New Transaction before param set');
162	+	Statement.Prepare(Transaction);
163	+	Transaction.Rollback;
164	+	Transaction.Start;
165	+	Statement.SQLParams[0].AsDate := EncodeDate(2016,11,5);
166	+	ReportResults(Statement);
167	+	except on E: Exception do
168	+	writeln(OutFile,'Error Handled: ',E.Message);
169	+	end;
170	+	Transaction.Rollback;
171	+	Transaction.Start;
172	+	try
173	+	writeln(Outfile,'New Transaction before Open Cursor');
174	+	Statement.Prepare(Transaction);
175	+	Statement.SQLParams[0].AsDate := EncodeDate(2016,11,5);
176	+	Transaction.Rollback;
177	+	Transaction.Start;
178	+	ReportResults(Statement);
179	+	except on E: Exception do
180	+	writeln(OutFile,'Error Handled: ',E.Message);
181	+	end;
182	+	Transaction.Rollback;
183	+	Transaction.Start;
184	+	writeln(Outfile,'Stop Stale Reference Checks');
185	+	Statement.SetStaleReferenceChecks(false);
186	+	try
187	+	writeln(Outfile,'New Transaction before param set');
188	+	Statement.Prepare(Transaction);
189	+	Transaction.Rollback;
190	+	Transaction.Start;
191	+	Statement.SQLParams[0].AsDate := EncodeDate(2016,11,5);
192	+	ReportResults(Statement);
193	+	except on E: Exception do
194	+	writeln(OutFile,'Error Handled: ',E.Message);
195	+	end;
196	+	try
197	+	writeln(Outfile,'New Transaction before Open Cursor');
198	+	Statement.Prepare(Transaction);
199	+	Statement.SQLParams[0].AsDate := EncodeDate(2016,11,5);
200	+	Transaction.Rollback;
201	+	Transaction.Start;
202	+	ReportResults(Statement);
203	+	except on E: Exception do
204	+	writeln(OutFile,'Error Handled: ',E.Message);
205	+	end;
206		end;
207
208		procedure TTest16.ServiceTests(CharSet: AnsiString; SQLDialect: integer);
209		var SPB: ISPB;
210		Service: IServiceManager;
130	–	I: integer;
211		ServerName: AnsiString;
212		DBName: AnsiString;
213		begin
214		if not FirebirdAPI.HasServiceAPI then Exit;
215
216	+	DBName := ExtractDBName(Owner.GetEmployeeDatabaseName);
217		ServerName := Owner.Server;
218
219		SPB := FirebirdAPI.AllocateSPB;

Comparing ibx/trunk/fbintf/testsuite/Test16.pas (property svn:eol-style):
Revision 308 by tony, Sat Jul 18 10:26:30 2020 UTC vs.
Revision 380 by tony, Mon Jan 10 10:13:17 2022 UTC

#	Line 0 | Line 1
1	+	native

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines