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

Comparing ibx/trunk/fbintf/testsuite/TestManager.pas (file contents):
Revision 46 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 47 by tony, Mon Jan 9 15:31:51 2017 UTC

# Line 36 | Line 36 | type
36      procedure WriteDBInfo(DBInfo: IDBInformation);
37      procedure WriteBytes(Bytes: TByteArray);
38      procedure WriteOperationCounts(Category: string; ops: TDBOperationCounts);
39 +    procedure WritePerfStats(stats: TPerfCounters);
40      procedure CheckActivity(Attachment: IAttachment); overload;
41      procedure CheckActivity(Transaction: ITransaction); overload;
42    public
# Line 559 | Line 560 | begin
560       WriteOperationCounts('Sequential Table Scans',getOperationCounts);
561     isc_info_update_count:
562       WriteOperationCounts('Update Count',getOperationCounts);
563 +   isc_info_db_SQL_Dialect:
564 +     writeln(OutFile,'SQL Dialect = ',getAsInteger);
565     else
566       writeln(OutFile,'Unknown Response ',getItemType);
567    end;
# Line 585 | Line 588 | begin
588    writeln(OutFile);
589   end;
590  
591 + procedure TTestBase.WritePerfStats(stats: TPerfCounters);
592 + begin
593 +  writeln(OutFile,'Current memory = ', stats[psCurrentMemory]);
594 +  writeln(OutFile,'Delta memory = ', stats[psDeltaMemory]);
595 +  writeln(OutFile,'Max memory = ', stats[psMaxMemory]);
596 +  writeln(OutFile,'Elapsed time= ', FormatFloat('#0.000',stats[psRealTime]/1000),' sec');
597 +  writeln(OutFile,'Cpu = ', FormatFloat('#0.000',stats[psUserTime]/1000),' sec');
598 +  writeln(OutFile,'Buffers = ', stats[psBuffers]);
599 +  writeln(OutFile,'Reads = ', stats[psReads]);
600 +  writeln(OutFile,'Writes = ', stats[psWrites]);
601 +  writeln(OutFile,'Fetches = ', stats[psFetches]);
602 + end;
603 +
604   procedure TTestBase.CheckActivity(Attachment: IAttachment);
605   begin
606      writeln(OutFile,'Database Activity = ',Attachment.HasActivity)

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines