ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/branches/udr/testsuite/testApp/TestApplication.pas

Comparing ibx/branches/udr/testsuite/testApp/TestApplication.pas (file contents):
Revision 370 by tony, Wed Jan 5 14:59:15 2022 UTC vs.
Revision 371 by tony, Wed Jan 5 15:21:22 2022 UTC

#	Line 81 | Line 81 | type
81		FCursorSeq: integer;
82		function GetFirebirdAPI: IFirebirdAPI;
83		procedure SetOwner(AOwner: TTestApplication);
84	+	{$if declared(TJnlEntry) }
85		procedure HandleOnJnlEntry(JnlEntry: TJnlEntry);
86	+	{$endif}
87		protected
88		FHexStrings: boolean;
89		FShowBinaryBlob: boolean;
#	Line 97 | Line 99 | type
99		procedure PrintSPB(SPB: ISPB);
100		procedure PrintMetaData(meta: IMetaData);
101		procedure ParamInfo(SQLParams: ISQLParams);
102	+	{$if declared(TJnlEntry) }
103		procedure PrintJournalFile(aFileName: AnsiString);
104		procedure PrintJournalTable(Attachment: IAttachment);
105	+	{$ifend}
106		function ReportResults(Statement: IStatement; ShowCursorName: boolean=false): IResultSet;
107		procedure ReportResult(aValue: IResults);
108		function StringToHex(octetString: string; MaxLineLength: integer=0): string;
#	Line 386 | Line 390 | begin
390		FOwner := AOwner;
391		end;
392
393	+	{$if declared(TJnlEntry)}
394		procedure TTestBase.HandleOnJnlEntry(JnlEntry: TJnlEntry);
395		begin
396		with JnlEntry do
#	Line 396 | Line 401 | begin
401		writeln(OutFile,'Journal Entry = ',JnlEntryType,'(', TJournalProcessor.JnlEntryText(JnlEntryType),')');
402		{$ENDIF}
403		writeln(OutFIle,'Timestamp = ',FBFormatDateTime('yyyy/mm/dd hh:nn:ss.zzzz',Timestamp));
404	+	writeln(Outfile,'Attachment ID = ',AttachmentID);
405		writeln(OutFile,'Session ID = ',SessionID);
406		writeln(OutFile,'Transaction ID = ',TransactionID);
407		case JnlEntry.JnlEntryType of
#	Line 422 | Line 428 | begin
428		end;
429		writeln(OutFile);
430		end;
431	+	{$ifend}
432
433		procedure TTestBase.DumpBCD(bcd: tBCD);
434		var i,l: integer;
#	Line 602 | Line 609 | begin
609		end;
610		end;
611
612	+	{$if declared(TJnlEntry) }
613		procedure TTestBase.PrintJournalFile(aFileName: AnsiString);
614		begin
615		writeln(OutFile,'Journal Entries');
#	Line 624 | Line 632 | begin
632		Results.Fetchnext;
633		end;
634		end;
635	+	{$ifend}
636
637		function TTestBase.ReportResults(Statement: IStatement; ShowCursorName: boolean): IResultSet;
638		begin

Diff Legend

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