ViewVC Help

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

root/public/ibx/trunk/testsuite/Test18.pas

Comparing ibx/trunk/testsuite/Test18.pas (file contents):
Revision 409 by tony, Mon Jan 10 10:13:17 2022 UTC vs.
Revision 410 by tony, Thu Jun 22 13:52:39 2023 UTC

#	Line 90 | Line 90 | begin
90		begin
91		Unidirectional := aUnidirectional;
92		Active := true;
93	+	PrintDataSet(FIBDataSet);
94		writeln(Outfile,'Unidirectional caching = ',aUnidirectional);
95		writeln(OutFile,'Simple Append i.e. caching of inserted records and cancel');
96		if aUnidirectional then Insert else Append;
#	Line 216 | Line 217 | begin
217		try
218		ApplyUpdates;
219		except on E: Exception do
220	<	writeln(OutFile,'Exception caught: ',E.Message);
220	>	begin
221	>	writeln(OutFile,'Exception caught: ',E.Message);
222	>	end;
223		end;
224		CancelUpdates;
225		end;

Diff Legend

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