trunk/testsuite/Test29.pas

(*
 *  IBX Test suite. This program is used to test the IBX non-visual
 *  components and provides a semi-automated pass/fail check for each test.
 *
 *  The contents of this file are subject to the Initial Developer's
 *  Public License Version 1.0 (the "License"); you may not use this
 *  file except in compliance with the License. You may obtain a copy
 *  of the License here:
 *
 *    http://www.firebirdsql.org/index.php?op=doc&id=idpl
 *
 *  Software distributed under the License is distributed on an "AS
 *  IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
 *  implied. See the License for the specific language governing rights
 *  and limitations under the License.
 *
 *  The Initial Developer of the Original Code is Tony Whyman.
 *
 *  The Original Code is (C) 2021 Tony Whyman, MWA Software
 *  (http://www.mwasoftware.co.uk).
 *
 *  All Rights Reserved.
 *
 *  Contributor(s): ______________________________________.
 *
*)      
unit Test29;

{$mode objfpc}{$H+}

{Test 29: Journalling}

{ Description
}

interface

uses
  Classes, SysUtils,   TestApplication, IBXTestBase, DB, IB, IBJournal,
  IBCustomDataSet, IBUtils, IBExtract;

const
  aTestID    = '29';
  aTestTitle = 'IBJournal Tests';

type

{ TTest29 }

  TTest29 = class(TIBXTestBase)
  private
    FDataSet: TIBDataSet;
    FJournal: TIBJournal;
    FExtract: TIBExtract;
    FCreateArrayOnInsert: boolean;
    procedure HandleAfterInsert(DataSet: TDataSet);
    procedure HandleOnJournalEntry(Sender: TObject; aJnlEntry: PJnlEntry);
    procedure DoPlayback(dbDumpFile: string);
  protected
    procedure CreateObjects(Application: TTestApplication); override;
    function GetTestID: AnsiString; override;
    function GetTestTitle: AnsiString; override;
    procedure InitTest; override;
  public
    procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
  end;


implementation

uses DateUtils;

{ TTest29 }

procedure TTest29.HandleAfterInsert(DataSet: TDataSet);
var S, F: TStream;
    Str: TStringList;
    i,j: integer;
    ar: IArray;
begin
  with DataSet do
  begin
    FieldByName('F1').AsInteger := 2;
    FieldByName('f2').AsFloat := 0.314;
    FieldByName('f3').AsFloat := 0.31412345678;
    FieldByName('F4').AsFloat := 101.314;
    FieldByName('F5').AsCurrency := 101.99;
    FieldByName('F6').AsDateTime := EncodeDateTime(2007,12,25,12,30,15,0);
    FieldByName('F7').AsDateTime := EncodeDateTime(2007,12,25,12,30,29,130);
    FieldByName('F8').AsString := 'XX';
    FieldByName('F9').AsString := 'The Quick Brown Fox jumps over the lazy dog';
    S := CreateBlobStream(FieldByName('F10'),bmWrite);
    F := TFileStream.Create('resources/Test29.dat',fmOpenRead);
    try
      S.CopyFrom(F,0);
    finally
      S.Free;
      F.Free;
    end;
    FieldByName('F11').AsLargeInt := 9223372036854775807;
    FieldByName('F12').AsInteger := 65566;
    FieldByName('F13').AsDateTime := EncodeDateTime(2007,12,26,12,30,45,0);
    Str := TStringList.Create;
    try
      Str.LoadFromFile('resources/Test04.txt');
      FieldByName('F14').AsString := Str.Text;
    finally
      Str.Free;
    end;
    if FCreateArrayOnInsert then
      ar := TIBArrayField(FieldByName('MyArray')).CreateArray
    else
      ar := (DataSet as TIBCustomDataset).GetArray(TIBArrayField(FieldByName('MyArray')));
    j := 100;
    for i := 0 to 16 do
    begin
      ar.SetAsInteger([i],j);
      dec(j);
    end;
    TIBArrayField(FieldByName('MyArray')).ArrayIntf := ar;
//    WriteArray(TIBArrayField(FieldByName('MyArray')).ArrayIntf);
  end;
end;

procedure TTest29.HandleOnJournalEntry(Sender: TObject; aJnlEntry: PJnlEntry);
begin
  writeln(OutFile,'Journal Entry Made');
  writeln(OutFile,IBFormatJnlEntry(aJnlEntry));
  writeln(OutFile);
end;

procedure TTest29.DoPlayback(dbDumpFile: string);
begin
  with TJournalPlayer.Create do
  try
    FJournal.ReplayJournal(FJournal.JournalFilePath);
    IBTransaction.Active := true;
    FExtract.ExtractObject(eoDatabase,'',[etData,etGrantsToUser]);
    FExtract.Items.SaveToFile(dbDumpFile);
    IBTransaction.Active := false;
  finally
    Free;
  end;
end;

procedure TTest29.CreateObjects(Application: TTestApplication);
begin
  inherited CreateObjects(Application);
  FDataSet := TIBDataSet.Create(Application);
  with FDataSet do
  begin
    Name := 'Dataset' + GetTestID;
    Database := IBDatabase;
    Transaction := IBTransaction;
    SelectSQL.Text := 'Select A.TABLEKEY, A.F1, A.F2, A.F3, A.F4, A.F5, A.F6,'+
      ' A.F7, A.F8, A.F9, A.F10, A.F11, A."f12", A.F13, A.F14, A.F15, A.MyArray, A.'+
      'GRANTS, A."My Field" as MYFIELD1, A."MY Field" as MYFIELD2 From IBXTEST A';
    InsertSQL.Text :=
      'Insert Into IBXTEST(TABLEKEY, F1, F2, F3, F4, F5, F6, F7, F8, F9, F10, F11, "f12", F13, F14, MyArray, '+
      ' GRANTS) Values(:TABLEKEY, :F1, :F2, :F3, :F4, :F5, :F6, :F7,'+
      ':F8, :F9, :F10, :F11, :F12, :F13, :F14, :MyArray, :GRANTS) Returning MyArray, F15';
    RefreshSQL.Text :=
      'Select A.TABLEKEY, A.F1, A.F2, A.F3, A.F4, A.F5, A.F6,' +
      ' A.F7, A.F8, A.F9, A.F10, A.F11, A."f12", A.F13, A.F14, A.MyArray, A.'+
      'GRANTS, A."My Field" as MYFIELD1, A."MY Field" as MYFIELD2 From IBXTEST A '+
      'Where A.TABLEKEY = :TABLEKEY';
    ModifySQL.Text :=
        'Update IBXTEST A Set ' +
        '  A.F1 = :F1,' +
        '  A.F2 = :F2,' +
        '  A.F3 = :F3,' +
        '  A.F4 = :F4,' +
        '  A.F5 = :F5,' +
        '  A.F6 = :F6,' +
        '  A.F7 = :F7,' +
        '  A.F8 = :F8,' +
        '  A.F9 = :F9,' +
        '  A.F10 = :F10,' +
        '  A.F11 = :F11,' +
        '  A."f12" = :F12,' +
        '  A.F13 = :F13,' +
        '  A.F14 = :F14,' +
        '  A.MyArray = :MyArray, ' +
        '  A."My Field"  = :MYFIELD1,'+
        '  A."MY Field" = :MYFIELD2,'+
        '  A.GRANTS = :GRANTS '+
        'Where A.TABLEKEY = :OLD_TABLEKEY RETURNING A.MyArray, A.F15';
    DeleteSQL.Text :=
      'Delete From IBXTEST A '+
      'Where A.TABLEKEY = :OLD_TABLEKEY';
    DataSetCloseAction := dcSaveChanges;
    AutoCommit := acDisabled;
    GeneratorField.Generator := 'IBXGEN';
    GeneratorField.Field := 'TABLEKEY';
    GeneratorField.ApplyOnEvent := gaeOnNewRecord;
    AfterInsert := @HandleAfterInsert;
  end;
  FJournal := TIBJournal.Create(Application);
  with FJournal do
  begin
    Database := IBDatabase;
    ApplicationName := 'Test29';
    RetainJournal := true;
    OnJournalEntry := @HandleOnJournalEntry;
  end;
  FExtract := TIBExtract.Create(Application);
  FExtract.Database := IBDatabase;
  FExtract.Transaction := IBTransaction;
end;

function TTest29.GetTestID: AnsiString;
begin
  Result := aTestID;
end;

function TTest29.GetTestTitle: AnsiString;
begin
  Result := aTestTitle;
end;

procedure TTest29.InitTest;
begin
  IBDatabase.DatabaseName := Owner.GetNewDatabaseName;
  IBDatabase.CreateIfNotExists := true;
  ReadWriteTransaction;
end;

procedure TTest29.RunTest(CharSet: AnsiString; SQLDialect: integer);
var OldDefaultFormatSettings: TFormatSettings;
    i: integer;
    dbDumpFile: string;
begin
  OldDefaultFormatSettings := DefaultFormatSettings;
  IBDatabase.CreateDatabase;
  try
   try
    DefaultFormatSettings.LongTimeFormat := 'HH:MM:SS.zzzz';
    FJournal.Enabled := true;
    IBTransaction.Active := true;
    FDataSet.Active := true;
    ListFields(FDataset);
    writeln(OutFile,'Add a record');
    FDataSet.Append;
    FDataSet.Post;
    writeln(OutFile,'Add and edit a record');
    FCreateArrayOnInsert := true;
    FDataSet.Append;
    FDataSet.Post;
    FDataSet.Edit;
    FDataSet.FieldByName('F1').AsInteger := 199;
    FDataSet.FieldByName('MYField1').AsString := 'My Field';
    FDataSet.FieldByName('MYFIELD2').AsString := 'MY Field';
    PrintDataSetRow(FDataSet);
    FDataSet.Post;
    IBTransaction.Commit;

    IBTransaction.Active := true;
    FDataSet.Active := true;
    PrintDataSet(FDataSet);
    writeln(OutFile,'Delete a record');
    FDataSet.First;
    FDataSet.Delete;
    PrintDataSet(FDataSet);
    writeln(OutFile,'Rollback Retaining');
    IBTransaction.RollbackRetaining;
    FDataSet.Active := false;
    FDataSet.Active := true;
    PrintDataSet(FDataSet);
    writeln(OutFile,'Delete a record');
    FDataSet.First;
    FDataSet.Delete;
    PrintDataSet(FDataSet);
    writeln(OutFile,'Rollback');
    IBTransaction.Rollback;
    IBTransaction.Active := true;
    FDataSet.Active := true;
    PrintDataSet(FDataSet);
    writeln(OutFile,'Commit Retaining');
    FDataSet.Append;
    FDataSet.Post;
    IBTransaction.CommitRetaining;
    FDataSet.Active := false;
    FDataSet.Active := true;
    PrintDataSet(FDataSet);
    writeln(OutFile,'Commit');
    IBTransaction.Commit;
    IBTransaction.Active := true;
    FDataSet.Active := true;
    PrintDataSet(FDataSet);
    IBTransaction.Active := false;
    PrintJournalTable(IBDatabase.Attachment);

    FJournal.Enabled := false;
    writeln(OutFile);
    {print out journal}
    writeln(OutFile,'Low Level Journal File Print out');
    PrintJournalFile(FJournal.JournalFilePath);
    writeln(OutFile);
    writeln(OutFile,'Print out Journal File using TIBJournal');
    with TJournalPlayer.Create do
    try
      LoadJournalFile(FJournal.JournalFilePath, FJournal.Database);
      for i := 0 to JnlEntryCount - 1 do
        writeln(OutFile,IBFormatJnlEntry(JnlEntry[i]));
        writeln(OutFile);
    finally
      Free;
    end;

    {Dump Database to text file}
    dbDumpFile := ChangeFileExt(GetOutFile,'.db1');
    IBTransaction.Active := true;
    {Drop journaling suuport before dumping database}
    IBDatabase.Attachment.ExecImmediate(IBTransaction.TransactionIntf,'Drop Table IBX$JOURNALS');
    IBDatabase.Attachment.ExecImmediate(IBTransaction.TransactionIntf,'Drop Sequence IBX$SESSIONS');
    IBTransaction.Commit;
    IBTransaction.Active := true;
    FExtract.ExtractObject(eoDatabase,'',[etData,etGrantsToUser]);
    FExtract.Items.SaveToFile(dbDumpFile);
    IBTransaction.Active := false;

   finally
     DefaultFormatSettings := OldDefaultFormatSettings;
     IBDatabase.DropDatabase;
   end;

   {now playback the log and restore the database}
   IBDatabase.CreateDatabase;
   try
     DefaultFormatSettings.LongTimeFormat := 'HH:MM:SS.zzzz';
     DoPlayback(ChangeFileExt(dbDumpFile,'.db2'));
   finally
     DefaultFormatSettings := OldDefaultFormatSettings;
     IBDatabase.DropDatabase;
   end;

   writeln(OutFile);
   writeln(OutFile,'Comparing original database with restored database');
   CompareFiles(dbDumpFile, ChangeFileExt(dbDumpFile,'.db2'));
  except on E: Exception do
    begin
      writeln(OutFile,'Terminated with Exception: ' + E.Message);
      IBDatabase.ForceClose;
    end;
  end;
end;

initialization
  RegisterTest(TTest29);

end.

Revision:	402
Committed:	Mon Aug 1 10:07:24 2022 UTC (20 months, 4 weeks ago) by tony
Content type:	text/x-pascal
File size:	10722 byte(s)
Log Message:	IBX Release 2.5.0
#	Content
1	(*
2	* IBX Test suite. This program is used to test the IBX non-visual
3	* components and provides a semi-automated pass/fail check for each test.
4	*
5	* The contents of this file are subject to the Initial Developer's
6	* Public License Version 1.0 (the "License"); you may not use this
7	* file except in compliance with the License. You may obtain a copy
8	* of the License here:
9	*
10	* http://www.firebirdsql.org/index.php?op=doc&id=idpl
11	*
12	* Software distributed under the License is distributed on an "AS
13	* IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
14	* implied. See the License for the specific language governing rights
15	* and limitations under the License.
16	*
17	* The Initial Developer of the Original Code is Tony Whyman.
18	*
19	* The Original Code is (C) 2021 Tony Whyman, MWA Software
20	* (http://www.mwasoftware.co.uk).
21	*
22	* All Rights Reserved.
23	*
24	* Contributor(s): ______________________________________.
25	*
26	*)
27	unit Test29;
28
29	{$mode objfpc}{$H+}
30
31	{Test 29: Journalling}
32
33	{ Description
34	}
35
36	interface
37
38	uses
39	Classes, SysUtils, TestApplication, IBXTestBase, DB, IB, IBJournal,
40	IBCustomDataSet, IBUtils, IBExtract;
41
42	const
43	aTestID = '29';
44	aTestTitle = 'IBJournal Tests';
45
46	type
47
48	{ TTest29 }
49
50	TTest29 = class(TIBXTestBase)
51	private
52	FDataSet: TIBDataSet;
53	FJournal: TIBJournal;
54	FExtract: TIBExtract;
55	FCreateArrayOnInsert: boolean;
56	procedure HandleAfterInsert(DataSet: TDataSet);
57	procedure HandleOnJournalEntry(Sender: TObject; aJnlEntry: PJnlEntry);
58	procedure DoPlayback(dbDumpFile: string);
59	protected
60	procedure CreateObjects(Application: TTestApplication); override;
61	function GetTestID: AnsiString; override;
62	function GetTestTitle: AnsiString; override;
63	procedure InitTest; override;
64	public
65	procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
66	end;
67
68
69	implementation
70
71	uses DateUtils;
72
73	{ TTest29 }
74
75	procedure TTest29.HandleAfterInsert(DataSet: TDataSet);
76	var S, F: TStream;
77	Str: TStringList;
78	i,j: integer;
79	ar: IArray;
80	begin
81	with DataSet do
82	begin
83	FieldByName('F1').AsInteger := 2;
84	FieldByName('f2').AsFloat := 0.314;
85	FieldByName('f3').AsFloat := 0.31412345678;
86	FieldByName('F4').AsFloat := 101.314;
87	FieldByName('F5').AsCurrency := 101.99;
88	FieldByName('F6').AsDateTime := EncodeDateTime(2007,12,25,12,30,15,0);
89	FieldByName('F7').AsDateTime := EncodeDateTime(2007,12,25,12,30,29,130);
90	FieldByName('F8').AsString := 'XX';
91	FieldByName('F9').AsString := 'The Quick Brown Fox jumps over the lazy dog';
92	S := CreateBlobStream(FieldByName('F10'),bmWrite);
93	F := TFileStream.Create('resources/Test29.dat',fmOpenRead);
94	try
95	S.CopyFrom(F,0);
96	finally
97	S.Free;
98	F.Free;
99	end;
100	FieldByName('F11').AsLargeInt := 9223372036854775807;
101	FieldByName('F12').AsInteger := 65566;
102	FieldByName('F13').AsDateTime := EncodeDateTime(2007,12,26,12,30,45,0);
103	Str := TStringList.Create;
104	try
105	Str.LoadFromFile('resources/Test04.txt');
106	FieldByName('F14').AsString := Str.Text;
107	finally
108	Str.Free;
109	end;
110	if FCreateArrayOnInsert then
111	ar := TIBArrayField(FieldByName('MyArray')).CreateArray
112	else
113	ar := (DataSet as TIBCustomDataset).GetArray(TIBArrayField(FieldByName('MyArray')));
114	j := 100;
115	for i := 0 to 16 do
116	begin
117	ar.SetAsInteger([i],j);
118	dec(j);
119	end;
120	TIBArrayField(FieldByName('MyArray')).ArrayIntf := ar;
121	// WriteArray(TIBArrayField(FieldByName('MyArray')).ArrayIntf);
122	end;
123	end;
124
125	procedure TTest29.HandleOnJournalEntry(Sender: TObject; aJnlEntry: PJnlEntry);
126	begin
127	writeln(OutFile,'Journal Entry Made');
128	writeln(OutFile,IBFormatJnlEntry(aJnlEntry));
129	writeln(OutFile);
130	end;
131
132	procedure TTest29.DoPlayback(dbDumpFile: string);
133	begin
134	with TJournalPlayer.Create do
135	try
136	FJournal.ReplayJournal(FJournal.JournalFilePath);
137	IBTransaction.Active := true;
138	FExtract.ExtractObject(eoDatabase,'',[etData,etGrantsToUser]);
139	FExtract.Items.SaveToFile(dbDumpFile);
140	IBTransaction.Active := false;
141	finally
142	Free;
143	end;
144	end;
145
146	procedure TTest29.CreateObjects(Application: TTestApplication);
147	begin
148	inherited CreateObjects(Application);
149	FDataSet := TIBDataSet.Create(Application);
150	with FDataSet do
151	begin
152	Name := 'Dataset' + GetTestID;
153	Database := IBDatabase;
154	Transaction := IBTransaction;
155	SelectSQL.Text := 'Select A.TABLEKEY, A.F1, A.F2, A.F3, A.F4, A.F5, A.F6,'+
156	' A.F7, A.F8, A.F9, A.F10, A.F11, A."f12", A.F13, A.F14, A.F15, A.MyArray, A.'+
157	'GRANTS, A."My Field" as MYFIELD1, A."MY Field" as MYFIELD2 From IBXTEST A';
158	InsertSQL.Text :=
159	'Insert Into IBXTEST(TABLEKEY, F1, F2, F3, F4, F5, F6, F7, F8, F9, F10, F11, "f12", F13, F14, MyArray, '+
160	' GRANTS) Values(:TABLEKEY, :F1, :F2, :F3, :F4, :F5, :F6, :F7,'+
161	':F8, :F9, :F10, :F11, :F12, :F13, :F14, :MyArray, :GRANTS) Returning MyArray, F15';
162	RefreshSQL.Text :=
163	'Select A.TABLEKEY, A.F1, A.F2, A.F3, A.F4, A.F5, A.F6,' +
164	' A.F7, A.F8, A.F9, A.F10, A.F11, A."f12", A.F13, A.F14, A.MyArray, A.'+
165	'GRANTS, A."My Field" as MYFIELD1, A."MY Field" as MYFIELD2 From IBXTEST A '+
166	'Where A.TABLEKEY = :TABLEKEY';
167	ModifySQL.Text :=
168	'Update IBXTEST A Set ' +
169	' A.F1 = :F1,' +
170	' A.F2 = :F2,' +
171	' A.F3 = :F3,' +
172	' A.F4 = :F4,' +
173	' A.F5 = :F5,' +
174	' A.F6 = :F6,' +
175	' A.F7 = :F7,' +
176	' A.F8 = :F8,' +
177	' A.F9 = :F9,' +
178	' A.F10 = :F10,' +
179	' A.F11 = :F11,' +
180	' A."f12" = :F12,' +
181	' A.F13 = :F13,' +
182	' A.F14 = :F14,' +
183	' A.MyArray = :MyArray, ' +
184	' A."My Field" = :MYFIELD1,'+
185	' A."MY Field" = :MYFIELD2,'+
186	' A.GRANTS = :GRANTS '+
187	'Where A.TABLEKEY = :OLD_TABLEKEY RETURNING A.MyArray, A.F15';
188	DeleteSQL.Text :=
189	'Delete From IBXTEST A '+
190	'Where A.TABLEKEY = :OLD_TABLEKEY';
191	DataSetCloseAction := dcSaveChanges;
192	AutoCommit := acDisabled;
193	GeneratorField.Generator := 'IBXGEN';
194	GeneratorField.Field := 'TABLEKEY';
195	GeneratorField.ApplyOnEvent := gaeOnNewRecord;
196	AfterInsert := @HandleAfterInsert;
197	end;
198	FJournal := TIBJournal.Create(Application);
199	with FJournal do
200	begin
201	Database := IBDatabase;
202	ApplicationName := 'Test29';
203	RetainJournal := true;
204	OnJournalEntry := @HandleOnJournalEntry;
205	end;
206	FExtract := TIBExtract.Create(Application);
207	FExtract.Database := IBDatabase;
208	FExtract.Transaction := IBTransaction;
209	end;
210
211	function TTest29.GetTestID: AnsiString;
212	begin
213	Result := aTestID;
214	end;
215
216	function TTest29.GetTestTitle: AnsiString;
217	begin
218	Result := aTestTitle;
219	end;
220
221	procedure TTest29.InitTest;
222	begin
223	IBDatabase.DatabaseName := Owner.GetNewDatabaseName;
224	IBDatabase.CreateIfNotExists := true;
225	ReadWriteTransaction;
226	end;
227
228	procedure TTest29.RunTest(CharSet: AnsiString; SQLDialect: integer);
229	var OldDefaultFormatSettings: TFormatSettings;
230	i: integer;
231	dbDumpFile: string;
232	begin
233	OldDefaultFormatSettings := DefaultFormatSettings;
234	IBDatabase.CreateDatabase;
235	try
236	try
237	DefaultFormatSettings.LongTimeFormat := 'HH:MM:SS.zzzz';
238	FJournal.Enabled := true;
239	IBTransaction.Active := true;
240	FDataSet.Active := true;
241	ListFields(FDataset);
242	writeln(OutFile,'Add a record');
243	FDataSet.Append;
244	FDataSet.Post;
245	writeln(OutFile,'Add and edit a record');
246	FCreateArrayOnInsert := true;
247	FDataSet.Append;
248	FDataSet.Post;
249	FDataSet.Edit;
250	FDataSet.FieldByName('F1').AsInteger := 199;
251	FDataSet.FieldByName('MYField1').AsString := 'My Field';
252	FDataSet.FieldByName('MYFIELD2').AsString := 'MY Field';
253	PrintDataSetRow(FDataSet);
254	FDataSet.Post;
255	IBTransaction.Commit;
256
257	IBTransaction.Active := true;
258	FDataSet.Active := true;
259	PrintDataSet(FDataSet);
260	writeln(OutFile,'Delete a record');
261	FDataSet.First;
262	FDataSet.Delete;
263	PrintDataSet(FDataSet);
264	writeln(OutFile,'Rollback Retaining');
265	IBTransaction.RollbackRetaining;
266	FDataSet.Active := false;
267	FDataSet.Active := true;
268	PrintDataSet(FDataSet);
269	writeln(OutFile,'Delete a record');
270	FDataSet.First;
271	FDataSet.Delete;
272	PrintDataSet(FDataSet);
273	writeln(OutFile,'Rollback');
274	IBTransaction.Rollback;
275	IBTransaction.Active := true;
276	FDataSet.Active := true;
277	PrintDataSet(FDataSet);
278	writeln(OutFile,'Commit Retaining');
279	FDataSet.Append;
280	FDataSet.Post;
281	IBTransaction.CommitRetaining;
282	FDataSet.Active := false;
283	FDataSet.Active := true;
284	PrintDataSet(FDataSet);
285	writeln(OutFile,'Commit');
286	IBTransaction.Commit;
287	IBTransaction.Active := true;
288	FDataSet.Active := true;
289	PrintDataSet(FDataSet);
290	IBTransaction.Active := false;
291	PrintJournalTable(IBDatabase.Attachment);
292
293	FJournal.Enabled := false;
294	writeln(OutFile);
295	{print out journal}
296	writeln(OutFile,'Low Level Journal File Print out');
297	PrintJournalFile(FJournal.JournalFilePath);
298	writeln(OutFile);
299	writeln(OutFile,'Print out Journal File using TIBJournal');
300	with TJournalPlayer.Create do
301	try
302	LoadJournalFile(FJournal.JournalFilePath, FJournal.Database);
303	for i := 0 to JnlEntryCount - 1 do
304	writeln(OutFile,IBFormatJnlEntry(JnlEntry[i]));
305	writeln(OutFile);
306	finally
307	Free;
308	end;
309
310	{Dump Database to text file}
311	dbDumpFile := ChangeFileExt(GetOutFile,'.db1');
312	IBTransaction.Active := true;
313	{Drop journaling suuport before dumping database}
314	IBDatabase.Attachment.ExecImmediate(IBTransaction.TransactionIntf,'Drop Table IBX$JOURNALS');
315	IBDatabase.Attachment.ExecImmediate(IBTransaction.TransactionIntf,'Drop Sequence IBX$SESSIONS');
316	IBTransaction.Commit;
317	IBTransaction.Active := true;
318	FExtract.ExtractObject(eoDatabase,'',[etData,etGrantsToUser]);
319	FExtract.Items.SaveToFile(dbDumpFile);
320	IBTransaction.Active := false;
321
322	finally
323	DefaultFormatSettings := OldDefaultFormatSettings;
324	IBDatabase.DropDatabase;
325	end;
326
327	{now playback the log and restore the database}
328	IBDatabase.CreateDatabase;
329	try
330	DefaultFormatSettings.LongTimeFormat := 'HH:MM:SS.zzzz';
331	DoPlayback(ChangeFileExt(dbDumpFile,'.db2'));
332	finally
333	DefaultFormatSettings := OldDefaultFormatSettings;
334	IBDatabase.DropDatabase;
335	end;
336
337	writeln(OutFile);
338	writeln(OutFile,'Comparing original database with restored database');
339	CompareFiles(dbDumpFile, ChangeFileExt(dbDumpFile,'.db2'));
340	except on E: Exception do
341	begin
342	writeln(OutFile,'Terminated with Exception: ' + E.Message);
343	IBDatabase.ForceClose;
344	end;
345	end;
346	end;
347
348	initialization
349	RegisterTest(TTest29);
350
351	end.
352