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 60 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 61 by tony, Sun Apr 2 11:40:29 2017 UTC

# Line 495 | Line 495 | begin
495    for i := 0 to DBInfo.GetCount - 1 do
496    with DBInfo[i] do
497    case getItemType of
498 +  isc_info_db_read_only:
499 +     if getAsInteger <> 0 then
500 +       writeln(OutFile,'Database is Read Only')
501 +     else
502 +       writeln(OutFile,'Database is Read/Write');
503    isc_info_allocation:
504      writeln(OutFile,'Pages =',getAsInteger);
505    isc_info_base_level:

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines