ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/fbintf/testsuite/Test1.pas
(Generate patch)

Comparing:
ibx/trunk/fbintf/testsuite/Test1.pas (file contents), Revision 341 by tony, Wed Jul 7 13:11:53 2021 UTC vs.
ibx/branches/journaling/fbintf/testsuite/Test1.pas (file contents), Revision 362 by tony, Tue Dec 7 13:27:39 2021 UTC

# Line 31 | Line 31 | unit Test1;
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 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