ViewVC Help

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

root/public/ibx/trunk/fbintf/testsuite/Test5.pas

Comparing ibx/trunk/fbintf/testsuite/Test5.pas (file contents):
Revision 55 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC

#	Line 1 | Line 1
1		unit Test5;
2	+	{$IFDEF MSWINDOWS}
3	+	{$DEFINE WINDOWS}
4	+	{$ENDIF}
5
6	<	{$mode objfpc}{$H+}
6	>	{$IFDEF FPC}
7	>	{$mode delphi}
8		{$codepage utf8}
9	+	{$ENDIF}
10
11		{Test 5: Update/Insert Returning and Activity Check}
12
#	Line 37 | Line 42 | type
42		private
43		procedure DoQuery(Attachment: IAttachment);
44		public
45	<	function TestTitle: string; override;
46	<	procedure RunTest(CharSet: string; SQLDialect: integer); override;
45	>	function TestTitle: AnsiString; override;
46	>	procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
47		end;
48
49		implementation
#	Line 104 | Line 109 | begin
109		writeln(OutFile,'Transaction inactive');
110		end;
111
112	<	function TTest5.TestTitle: string;
112	>	function TTest5.TestTitle: AnsiString;
113		begin
114		Result := 'Test 5: Update Returning and Activity Check';
115		end;
116
117	<	procedure TTest5.RunTest(CharSet: string; SQLDialect: integer);
117	>	procedure TTest5.RunTest(CharSet: AnsiString; SQLDialect: integer);
118		var Attachment: IAttachment;
119		DPB: IDPB;
120		begin

Diff Legend

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