ViewVC Help

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

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

Comparing ibx/trunk/fbintf/testsuite/Test1.pas (file contents):
Revision 47 by tony, Mon Jan 9 15:31:51 2017 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 Test1;
30	+	{$IFDEF MSWINDOWS}
31	+	{$DEFINE WINDOWS}
32	+	{$ENDIF}
33
34		{Create and Drop a Database}
35		{
#	Line 11 | Line 42 | unit Test1;
42		A basic query is performed and finally the database dropped.
43		}
44
45	<	{$mode objfpc}{$H+}
45	>	{$IFDEF FPC}
46	>	{$mode delphi}
47		{$codepage utf8}
48	+	{$define HASREQEX}
49	+	{$ENDIF}
50
51		interface
52
53		uses
54	<	Classes, SysUtils, TestManager, IB;
54	>	Classes, SysUtils, TestApplication, FBTestApp, IB;
55
56		type
57
58		{ TTest1 }
59
60	<	TTest1 = class(TTestBase)
60	>	TTest1 = class(TFBTestBase)
61		private
62		procedure DoQuery(Attachment: IAttachment);
63	+	procedure WriteAttachmentInfo(Attachment: IAttachment);
64	+	procedure GetFBVersion(Attachment: IAttachment);
65		public
66	<	function TestTitle: string; override;
67	<	procedure RunTest(CharSet: string; SQLDialect: integer); override;
66	>	function TestTitle: AnsiString; override;
67	>	procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
68		end;
69
70		implementation
#	Line 49 | Line 85 | begin
85		while ResultSet.FetchNext do
86		begin
87		for i := 0 to ResultSet.getCount - 1 do
88	<	writeln(OutFile,ResultSet[i].Name,' = ',ResultSet[i].AsString);
88	>	writeln(OutFile,ResultSet[i].Name,' = ',Trim(ResultSet[i].AsString));
89		end;
90		finally
91		ResultSet.Close;
#	Line 57 | Line 93 | begin
93		end;
94		end;
95
96	<	function TTest1.TestTitle: string;
96	>	procedure TTest1.WriteAttachmentInfo(Attachment: IAttachment);
97	>	begin
98	>	writeln(outfile,'DB Connect String = ',Attachment.GetConnectString);
99	>	writeln(outfile,'DB Charset ID = ',Attachment.GetDefaultCharSetID);
100	>	writeln(outfile,'DB SQL Dialect = ',Attachment.GetSQLDialect);
101	>	writeln(outfile,'DB Remote Protocol = ', Attachment.GetRemoteProtocol);
102	>	writeln(outfile,'DB ODS Major Version = ',Attachment.GetODSMajorVersion);
103	>	writeln(outfile,'DB ODS Minor Version = ',Attachment.GetODSMinorVersion);
104	>	writeln(outfile,'User Authentication Method = ',Attachment.GetAuthenticationMethod);
105	>	writeln(outfile,'Firebird Library Path = ',Attachment.getFirebirdAPI.GetFBLibrary.GetLibraryFilePath);
106	>	writeln(outfile,'DB Client Implementation Version = ',Attachment.getFirebirdAPI.GetImplementationVersion);
107	>	end;
108	>
109	>	procedure TTest1.GetFBVersion(Attachment: IAttachment);
110	>	var Version: TStrings;
111	>	i: integer;
112	>	begin
113	>	Version := TStringList.Create;
114	>	try
115	>	Attachment.getFBVersion(Version);
116	>	for i := 0 to Version.Count - 1 do
117	>	writeln(OutFile,Version[i]);
118	>	finally
119	>	Version.Free;
120	>	end;
121	>	end;
122	>
123	>	function TTest1.TestTitle: AnsiString;
124		begin
125		Result := 'Test 1: Create and Drop a Database';
126		end;
127
128	<	procedure TTest1.RunTest(CharSet: string; SQLDialect: integer);
128	>	procedure TTest1.RunTest(CharSet: AnsiString; SQLDialect: integer);
129		var DPB: IDPB;
130		Attachment: IAttachment;
131	<	createSQL: string;
131	>	createSQL: AnsiString;
132	>	libpath: string;
133	>	FBLibrary: IFirebirdLibrary;
134		begin
135		writeln(OutFile,'Creating a Database with empty parameters');
136		Attachment := FirebirdAPI.CreateDatabase('',nil,false);
#	Line 75 | Line 140 | begin
140		Attachment.DropDatabase;
141
142		writeln(OutFile,'Creating a Database using an SQL Statement');
143	<	createSQL := Format('CREATE DATABASE ''%s'' USER ''%s'' PASSWORD ''%s'' DEFAULT CHARACTER SET %s',
144	<	[Owner.GetNewDatabaseName, Owner.GetUserName, Owner.GetPassword, CharSet]);
143	>	createSQL := Format('create database ''%s'' USER ''%s'' PASSWORD ''%s'' DEFAULT CHARACTER SET %s',
144	>	[ExtractDBName(Owner.GetNewDatabaseName), Owner.GetUserName, Owner.GetPassword, CharSet]);
145		Attachment := FirebirdAPI.CreateDatabase(createSQL,SQLDialect);
146		WriteDBInfo(Attachment.GetDBInformation([isc_info_db_id,isc_info_db_SQL_Dialect]));
147	+	WriteAttachmentInfo(Attachment);
148	+	PrintDPB(Attachment.getDPB);
149	+	writeln(OutFile,'Firebird Server Version Info');
150	+	GetFBVersion(Attachment);
151	+	writeln(OutFile);
152	+
153	+	{$IFDEF HASREQEX}
154	+	{Demonstrate reconnect when database created with SQL Statement}
155	+	try
156	+	Attachment.Disconnect;
157	+	Attachment.Connect;
158	+	except on E:Exception do
159	+	writeln(OutFile,'Error reconnecting to Database: ',E.Message);
160	+	end;
161	+	{$ENDIF}
162
163		writeln(OutFile,'Dropping Database');
164		if Attachment <> nil then
#	Line 91 | Line 171 | begin
171		DPB.Add(isc_dpb_lc_ctype).setAsString(CharSet);
172		DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect);
173
174	<	Attachment := FirebirdAPI.CreateDatabase(Owner.GetNewDatabaseName,DPB);
174	>	Attachment := FirebirdAPI.CreateDatabase(ExtractDBName(Owner.GetNewDatabaseName),DPB);
175	>
176	>	WriteAttachmentInfo(Attachment);
177
178		writeln(OutFile,'Dropping Database');
179		if Attachment <> nil then
#	Line 101 | Line 183 | begin
183
184		PrintDPB(DPB);
185		writeln(OutFile,'Creating a Database with a DPD');
186	<	Attachment := FirebirdAPI.CreateDatabase(Owner.GetNewDatabaseName,DPB);
186	>	Attachment := FirebirdAPI.CreateDatabase(ExtractDBName(Owner.GetNewDatabaseName),DPB);
187		if Attachment = nil then
188		begin
189		writeln(OutFile,'Create Database Failed');
190		Exit;
191		end;
192		WriteDBInfo(Attachment.GetDBInformation([isc_info_db_id,isc_info_ods_version,isc_info_ods_minor_version]));
193	+	WriteAttachmentInfo(Attachment);
194
195		{Querying Database}
196		DoQuery(Attachment);
197
198		writeln(OutFile,'Dropping Database');
199		Attachment.DropDatabase;
200	+
201	+	libpath := GetEnvironmentVariable('TESTFIREBIRDLIBRARY');
202	+	if libpath <> '' then
203	+	begin
204	+	FBLibrary := LoadFBLibrary(libpath);
205	+
206	+	writeln(OutFile,'Creating a Database with a DPD using Firebird Library in ',libpath);
207	+	Attachment := FBLibrary.GetFirebirdAPI.CreateDatabase(ExtractDBName(Owner.GetNewDatabaseName),DPB);
208	+	if Attachment = nil then
209	+	begin
210	+	writeln(OutFile,'Create Database Failed');
211	+	Exit;
212	+	end;
213	+	WriteDBInfo(Attachment.GetDBInformation([isc_info_db_id,isc_info_ods_version,isc_info_ods_minor_version]));
214	+	WriteAttachmentInfo(Attachment);
215	+
216	+	{Querying Database}
217	+	DoQuery(Attachment);
218	+
219	+	writeln(OutFile,'Dropping Database');
220	+	Attachment.DropDatabase;
221	+	end;
222		end;
223
224

Diff Legend

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