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

Comparing ibx/trunk/fbintf/testsuite/Test9.pas (file contents):
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 143 by tony, Fri Feb 23 12:11:21 2018 UTC

# Line 38 | Line 38 | implementation
38  
39   procedure TTest9.GetDBInformation(Attachment: IAttachment);
40   var DBInfo: IDBInformation;
41 +    DBRequest: IDIRB;
42   begin
43 <    DBInfo := Attachment.GetDBInformation([isc_info_db_id,isc_info_allocation,isc_info_base_level,
43 >  {First check ODS version to avoid information requests supported DB 2.5 and later}
44 >  DBInfo := Attachment.GetDBInformation([isc_info_ods_version,isc_info_ods_minor_version]);
45 >  if (DBInfo.Count > 1) and (DBInfo[0].AsInteger > 11) or
46 >     ((DBInfo[0].AsInteger = 11) and (DBInfo[1].AsInteger > 1)) then
47 >  begin
48 >    WriteDBInfo(Attachment.GetDBInformation(isc_info_db_id));
49 >    DBInfo := Attachment.GetDBInformation([isc_info_allocation,isc_info_base_level,
50                                isc_info_implementation,isc_info_no_reserve,isc_info_ods_minor_version,
51 <                              isc_info_ods_version,isc_info_page_size,isc_info_version]);
51 >                              isc_info_ods_version,isc_info_page_size,isc_info_version,isc_info_db_read_only,
52 >                              isc_info_creation_date,fb_info_pages_used,fb_info_pages_free]);
53 >    WriteDBInfo(DBInfo);
54 >
55 >    DBInfo := Attachment.GetDBInformation([isc_info_current_memory, isc_info_forced_writes,
56 >                              isc_info_max_memory, isc_info_num_buffers, isc_info_sweep_interval,
57 >                              isc_info_user_names,isc_info_active_tran_count]);
58 >    WriteDBInfo(DBInfo);
59 >
60 >    DBInfo := Attachment.GetDBInformation([isc_info_fetches,isc_info_marks,
61 >                              isc_info_reads, isc_info_writes]);
62 >    WriteDBInfo(DBInfo);
63 >
64 >    DBInfo := Attachment.GetDBInformation([isc_info_backout_count, isc_info_delete_count,
65 >                              isc_info_expunge_count,isc_info_insert_count, isc_info_purge_count,
66 >                              isc_info_read_idx_count, isc_info_read_seq_count, isc_info_update_count]);
67 >    WriteDBInfo(DBInfo);
68 >
69 >    DBRequest := Attachment.AllocateDIRB;
70 >
71 >    DBRequest.Add(isc_info_page_size);
72 >
73 >    {Only enable during unit test. This result will always be different for
74 >     each run and you will only get false positives in the log}
75 > //    DBRequest.Add(fb_info_page_contents).AsInteger := 100;
76 >    WriteDBInfo(Attachment.GetDBInformation(DBRequest));
77 >  end
78 >  else
79 >  begin
80 >    WriteDBInfo(Attachment.GetDBInformation(isc_info_db_id));
81 >    DBInfo := Attachment.GetDBInformation([isc_info_allocation,isc_info_base_level,
82 >                              isc_info_implementation,isc_info_no_reserve,isc_info_ods_minor_version,
83 >                              isc_info_ods_version,isc_info_page_size,isc_info_version,isc_info_db_read_only]);
84      WriteDBInfo(DBInfo);
85  
86      DBInfo := Attachment.GetDBInformation([isc_info_current_memory, isc_info_forced_writes,
# Line 57 | Line 96 | begin
96                                isc_info_expunge_count,isc_info_insert_count, isc_info_purge_count,
97                                isc_info_read_idx_count, isc_info_read_seq_count, isc_info_update_count]);
98      WriteDBInfo(DBInfo);
99 +
100 +    DBRequest := Attachment.AllocateDIRB;
101 +    DBRequest.Add(isc_info_page_size);
102 +    WriteDBInfo(Attachment.GetDBInformation(DBRequest));
103 +  end;
104   end;
105  
106   function TTest9.TestTitle: AnsiString;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines