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 308 by tony, Sat Jul 18 10:26:30 2020 UTC vs.
Revision 345 by tony, Mon Aug 23 14:22:29 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}
34	>	{Test 1: Create and Drop a Database}
35		{
36		This test first attempts to create a database without specifying any parameters
37		(should fail). It then goes on to create and drop a database, print out the
#	Line 23 | Line 51 | unit Test1;
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: AnsiString; override;
67		procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
#	Line 77 | Line 106 | begin
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';
#	Line 98 | Line 141 | begin
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	<	[ExtractDBName(Owner.GetNewDatabaseName), Owner.GetUserName, Owner.GetPassword, CharSet]);
144	>	[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}
#	Line 125 | 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(ExtractDBName(Owner.GetNewDatabaseName),DPB);
174	>	Attachment := FirebirdAPI.CreateDatabase(Owner.GetNewDatabaseName,DPB);
175
176		WriteAttachmentInfo(Attachment);
177
#	Line 137 | Line 183 | begin
183
184		PrintDPB(DPB);
185		writeln(OutFile,'Creating a Database with a DPD');
186	<	Attachment := FirebirdAPI.CreateDatabase(ExtractDBName(Owner.GetNewDatabaseName),DPB);
186	>	Attachment := FirebirdAPI.CreateDatabase(Owner.GetNewDatabaseName,DPB);
187		if Attachment = nil then
188		begin
189		writeln(OutFile,'Create Database Failed');
#	Line 158 | Line 204 | 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);
207	>	Attachment := FBLibrary.GetFirebirdAPI.CreateDatabase(Owner.GetNewDatabaseName,DPB);
208		if Attachment = nil then
209		begin
210		writeln(OutFile,'Create Database Failed');

Diff Legend

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