--- ibx/trunk/fbintf/testsuite/Test2.pas	2021/10/23 14:11:37	353
+++ ibx/trunk/fbintf/testsuite/Test2.pas	2021/12/07 09:37:32	359
@@ -168,6 +168,12 @@ begin
   Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);
   writeln(OutFile,'Database Open, SQL Dialect = ',Attachment.GetSQLDialect);
   DoQuery(Attachment);
+  if Attachment.HasScollableCursors then
+  try
+    DoScrollableQuery(Attachment);
+  except on e: Exception do
+    writeln(OutFile,'Remote Scrollable cursors test fails ',E.Message);
+  end;
   Attachment.Disconnect;
   writeln(OutFile,'Now open the employee database as a local database');
   DPB := FirebirdAPI.AllocateDPB;