ViewVC Help

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

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

Comparing ibx/trunk/fbintf/testsuite/Test14.pas (file contents):
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 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 Test14;
30	+	{$IFDEF MSWINDOWS}
31	+	{$DEFINE WINDOWS}
32	+	{$ENDIF}
33
34	<	{$mode objfpc}{$H+}
34	>	{$IFDEF FPC}
35	>	{$mode delphi}
36		{$codepage UTF8}
37	+	{$ENDIF}
38
39		{Test 14: Non select procedures}
40
#	Line 15 | Line 48 | unit Test14;
48		interface
49
50		uses
51	<	Classes, SysUtils, TestManager, IB;
51	>	Classes, SysUtils, TestApplication, FBTestApp, IB;
52
53		type
54		{ TTest14 }
55
56	<	TTest14 = class(TTestBase)
56	>	TTest14 = class(TFBTestBase)
57		private
58		procedure UpdateDatabase(Attachment: IAttachment);
59		procedure QueryDatabase(Attachment: IAttachment);
60		public
61	<	function TestTitle: string; override;
62	<	procedure RunTest(CharSet: string; SQLDialect: integer); override;
61	>	function TestTitle: AnsiString; override;
62	>	procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
63		end;
64
65		implementation
#	Line 52 | Line 85 | const
85		procedure TTest14.QueryDatabase(Attachment: IAttachment);
86		var Transaction, Transaction2: ITransaction;
87		Statement: IStatement;
55	–	ResultSet: IResultSet;
88		begin
89		Transaction := Attachment.StartTransaction([isc_tpb_write,isc_tpb_nowait,isc_tpb_concurrency],taCommit);
90		Statement := Attachment.Prepare(Transaction,sqlCallQueryProc);
#	Line 69 | Line 101 | begin
101		ReportResult(Statement.Execute);
102		end;
103
104	<	function TTest14.TestTitle: string;
104	>	function TTest14.TestTitle: AnsiString;
105		begin
106		Result := 'Test 14: Non select procedures';
107		end;
#	Line 96 | Line 128 | const
128
129
130
131	<	procedure TTest14.RunTest(CharSet: string; SQLDialect: integer);
131	>	procedure TTest14.RunTest(CharSet: AnsiString; SQLDialect: integer);
132		var DPB: IDPB;
133		Attachment: IAttachment;
134		begin
#	Line 106 | Line 138 | begin
138		DPB.Add(isc_dpb_lc_ctype).setAsString('UTF8');
139		DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect);
140		Attachment := FirebirdAPI.CreateDatabase(Owner.GetNewDatabaseName,DPB);
141	<	writeln(OutFile,'Default Character set Name = ',Attachment.OpenCursorAtStart('Select RDB$CHARACTER_SET_NAME From RDB$Database')[0].AsString);
141	>	writeln(OutFile,'Default Character set Name = ',Trim(Attachment.OpenCursorAtStart('Select RDB$CHARACTER_SET_NAME From RDB$Database')[0].AsString));
142		Attachment.ExecImmediate([isc_tpb_write,isc_tpb_wait,isc_tpb_consistency],sqlCreateTable);
143		Attachment.ExecImmediate([isc_tpb_write,isc_tpb_wait,isc_tpb_consistency],sqlCreateProc1);
144		Attachment.ExecImmediate([isc_tpb_write,isc_tpb_wait,isc_tpb_consistency],sqlCreateProc2);

Diff Legend

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