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

Comparing ibx/trunk/fbintf/testsuite/Test2.pas (file contents):
Revision 353 by tony, Sat Oct 23 14:11:37 2021 UTC vs.
Revision 359 by tony, Tue Dec 7 09:37:32 2021 UTC

# Line 168 | Line 168 | begin
168    Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);
169    writeln(OutFile,'Database Open, SQL Dialect = ',Attachment.GetSQLDialect);
170    DoQuery(Attachment);
171 +  if Attachment.HasScollableCursors then
172 +  try
173 +    DoScrollableQuery(Attachment);
174 +  except on e: Exception do
175 +    writeln(OutFile,'Remote Scrollable cursors test fails ',E.Message);
176 +  end;
177    Attachment.Disconnect;
178    writeln(OutFile,'Now open the employee database as a local database');
179    DPB := FirebirdAPI.AllocateDPB;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines