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 119 by tony, Mon Jan 22 13:58:18 2018 UTC vs.
Revision 143 by tony, Fri Feb 23 12:11:21 2018 UTC

#	Line 1 | Line 1
1		unit Test1;
2		{$IFDEF MSWINDOWS}
3		{$DEFINE WINDOWS}
4	–	{$IF defined(CompilerVersion) and (CompilerVersion >= 28)}
5	–	{Delphi XE7 onwards}}
6	–	{$define HASREQEX}
7	–	{$IFEND}
4		{$ENDIF}
5
6		{Create and Drop a Database}
#	Line 36 | Line 32 | type
32		TTest1 = class(TTestBase)
33		private
34		procedure DoQuery(Attachment: IAttachment);
35	+	procedure WriteAttachmentInfo(Attachment: IAttachment);
36		public
37		function TestTitle: AnsiString; override;
38		procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
#	Line 67 | Line 64 | begin
64		end;
65		end;
66
67	+	procedure TTest1.WriteAttachmentInfo(Attachment: IAttachment);
68	+	begin
69	+	writeln(outfile,'DB Connect String = ',Attachment.GetConnectString);
70	+	writeln(outfile,'DB Charset ID = ',Attachment.GetDefaultCharSetID);
71	+	writeln(outfile,'DB SQL Dialect = ',Attachment.GetSQLDialect);
72	+	writeln(outfile,'DB Remote Protocol = ', Attachment.GetRemoteProtocol);
73	+	writeln(outfile,'DB ODS Major Version = ',Attachment.GetODSMajorVersion);
74	+	writeln(outfile,'DB ODS Minor Version = ',Attachment.GetODSMinorVersion);
75	+	writeln(outfile,'User Authentication Method = ',Attachment.GetAuthenticationMethod);
76	+	end;
77	+
78		function TTest1.TestTitle: AnsiString;
79		begin
80		Result := 'Test 1: Create and Drop a Database';
#	Line 89 | Line 97 | begin
97		[Owner.GetNewDatabaseName, Owner.GetUserName, Owner.GetPassword, CharSet]);
98		Attachment := FirebirdAPI.CreateDatabase(createSQL,SQLDialect);
99		WriteDBInfo(Attachment.GetDBInformation([isc_info_db_id,isc_info_db_SQL_Dialect]));
100	<	writeln(outfile,'DB Connect String = ',Attachment.GetConnectString);
93	<	writeln(outfile,'DB Charset ID = ',Attachment.GetDefaultCharSetID);
94	<	writeln(outfile,'DB SQL Dialect = ',Attachment.GetSQLDialect);
95	<	writeln(outfile,'DB Remote Protocol = ', Attachment.GetRemoteProtocol);
96	<	writeln(outfile,'DB ODS Major Version = ',Attachment.GetODSMajorVersion);
97	<	writeln(outfile,'DB ODS Minor Version = ',Attachment.GetODSMinorVersion);
100	>	WriteAttachmentInfo(Attachment);
101		PrintDPB(Attachment.getDPB);
102
103		{$IFDEF HASREQEX}
#	Line 120 | Line 123 | begin
123
124		Attachment := FirebirdAPI.CreateDatabase(Owner.GetNewDatabaseName,DPB);
125
126	<	writeln(outfile,'DB Connect String = ',Attachment.GetConnectString);
124	<	writeln(outfile,'DB Charset ID = ',Attachment.GetDefaultCharSetID);
125	<	writeln(outfile,'DB SQL Dialect = ',Attachment.GetSQLDialect);
126	<	writeln(outfile,'DB Remote Protocol = ', Attachment.GetRemoteProtocol);
127	<	writeln(outfile,'DB ODS Major Version = ',Attachment.GetODSMajorVersion);
128	<	writeln(outfile,'DB ODS Minor Version = ',Attachment.GetODSMinorVersion);
126	>	WriteAttachmentInfo(Attachment);
127
128		writeln(OutFile,'Dropping Database');
129		if Attachment <> nil then
#	Line 142 | Line 140 | begin
140		Exit;
141		end;
142		WriteDBInfo(Attachment.GetDBInformation([isc_info_db_id,isc_info_ods_version,isc_info_ods_minor_version]));
143	<	writeln(outfile,'DB Connect String = ',Attachment.GetConnectString);
146	<	writeln(outfile,'DB Charset ID = ',Attachment.GetDefaultCharSetID);
147	<	writeln(outfile,'DB SQL Dialect = ',Attachment.GetSQLDialect);
148	<	writeln(outfile,'DB Remote Protocol = ', Attachment.GetRemoteProtocol);
149	<	writeln(outfile,'DB ODS Major Version = ',Attachment.GetODSMajorVersion);
150	<	writeln(outfile,'DB ODS Minor Version = ',Attachment.GetODSMinorVersion);
143	>	WriteAttachmentInfo(Attachment);
144
145		{Querying Database}
146		DoQuery(Attachment);

Diff Legend

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