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 352 by tony, Mon Aug 23 14:22:29 2021 UTC vs.
Revision 353 by tony, Sat Oct 23 14:11:37 2021 UTC

#	Line 60 | Line 60 | type
60		TTest1 = class(TFBTestBase)
61		private
62		procedure DoQuery(Attachment: IAttachment);
63	–	procedure WriteAttachmentInfo(Attachment: IAttachment);
63		procedure GetFBVersion(Attachment: IAttachment);
64		public
65		function TestTitle: AnsiString; override;
#	Line 93 | Line 92 | begin
92		end;
93		end;
94
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	–
95		procedure TTest1.GetFBVersion(Attachment: IAttachment);
96		var Version: TStrings;
97		i: integer;

Diff Legend

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