--- ibx/trunk/fbintf/testsuite/TestManager.pas	2016/12/06 10:33:46	46
+++ ibx/trunk/fbintf/testsuite/TestManager.pas	2017/01/09 15:31:51	47
@@ -36,6 +36,7 @@ type
     procedure WriteDBInfo(DBInfo: IDBInformation);
     procedure WriteBytes(Bytes: TByteArray);
     procedure WriteOperationCounts(Category: string; ops: TDBOperationCounts);
+    procedure WritePerfStats(stats: TPerfCounters);
     procedure CheckActivity(Attachment: IAttachment); overload;
     procedure CheckActivity(Transaction: ITransaction); overload;
   public
@@ -559,6 +560,8 @@ begin
      WriteOperationCounts('Sequential Table Scans',getOperationCounts);
    isc_info_update_count:
      WriteOperationCounts('Update Count',getOperationCounts);
+   isc_info_db_SQL_Dialect:
+     writeln(OutFile,'SQL Dialect = ',getAsInteger);
    else
      writeln(OutFile,'Unknown Response ',getItemType);
   end;
@@ -585,6 +588,19 @@ begin
   writeln(OutFile);
 end;
 
+procedure TTestBase.WritePerfStats(stats: TPerfCounters);
+begin
+  writeln(OutFile,'Current memory = ', stats[psCurrentMemory]);
+  writeln(OutFile,'Delta memory = ', stats[psDeltaMemory]);
+  writeln(OutFile,'Max memory = ', stats[psMaxMemory]);
+  writeln(OutFile,'Elapsed time= ', FormatFloat('#0.000',stats[psRealTime]/1000),' sec');
+  writeln(OutFile,'Cpu = ', FormatFloat('#0.000',stats[psUserTime]/1000),' sec');
+  writeln(OutFile,'Buffers = ', stats[psBuffers]);
+  writeln(OutFile,'Reads = ', stats[psReads]);
+  writeln(OutFile,'Writes = ', stats[psWrites]);
+  writeln(OutFile,'Fetches = ', stats[psFetches]);
+end;
+
 procedure TTestBase.CheckActivity(Attachment: IAttachment);
 begin
     writeln(OutFile,'Database Activity = ',Attachment.HasActivity)