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

Comparing ibx/trunk/fbintf/testsuite/Test1.pas (file contents):
Revision 262 by tony, Fri Feb 23 12:11:21 2018 UTC vs.
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC

# Line 73 | Line 73 | begin
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 +  writeln(outfile,'Firebird Library Path = ',Attachment.getFirebirdAPI.GetFBLibrary.GetLibraryFilePath);
77 +  writeln(outfile,'DB Client Implementation Version = ',Attachment.getFirebirdAPI.GetImplementationVersion);
78   end;
79  
80   function TTest1.TestTitle: AnsiString;
# Line 84 | Line 86 | procedure TTest1.RunTest(CharSet: AnsiSt
86   var DPB: IDPB;
87      Attachment: IAttachment;
88      createSQL: AnsiString;
89 +    libpath: string;
90 +    FBLibrary: IFirebirdLibrary;
91   begin
92    writeln(OutFile,'Creating a Database with empty parameters');
93    Attachment := FirebirdAPI.CreateDatabase('',nil,false);
# Line 147 | Line 151 | begin
151  
152    writeln(OutFile,'Dropping Database');
153    Attachment.DropDatabase;
154 +
155 +  libpath := GetEnvironmentVariable('TESTFIREBIRDLIBRARY');
156 +  if libpath <> '' then
157 +  begin
158 +    FBLibrary := LoadFBLibrary(libpath);
159 +
160 +    writeln(OutFile,'Creating a Database with a DPD using Firebird Library in ',libpath);
161 +    Attachment := FBLibrary.GetFirebirdAPI.CreateDatabase(Owner.GetNewDatabaseName,DPB);
162 +    if Attachment = nil then
163 +    begin
164 +      writeln(OutFile,'Create Database Failed');
165 +      Exit;
166 +    end;
167 +    WriteDBInfo(Attachment.GetDBInformation([isc_info_db_id,isc_info_ods_version,isc_info_ods_minor_version]));
168 +    WriteAttachmentInfo(Attachment);
169 +
170 +    {Querying Database}
171 +    DoQuery(Attachment);
172 +
173 +    writeln(OutFile,'Dropping Database');
174 +    Attachment.DropDatabase;
175 +  end;
176   end;
177  
178  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines