ViewVC Help

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

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

Comparing ibx/trunk/fbintf/testsuite/Test4.pas (file contents):
Revision 55 by tony, Mon Jan 9 15:31:51 2017 UTC vs.
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC

#	Line 1 | Line 1
1		unit Test4;
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 4: Update, Insert and Delete Queries}
12
#	Line 44 | Line 49 | type
49		private
50		procedure DoQuery(Attachment: IAttachment);
51		public
52	<	function TestTitle: string; override;
53	<	procedure RunTest(CharSet: string; SQLDialect: integer); override;
52	>	function TestTitle: AnsiString; override;
53	>	procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
54		end;
55
56
#	Line 191 | Line 196 | begin
196		ReportResults(Statement);
197		end;
198
199	<	function TTest4.TestTitle: string;
199	>	function TTest4.TestTitle: AnsiString;
200		begin
201		Result := 'Test 4: Update, Insert and Delete Queries';
202		end;
203
204	<	procedure TTest4.RunTest(CharSet: string; SQLDialect: integer);
204	>	procedure TTest4.RunTest(CharSet: AnsiString; SQLDialect: integer);
205		var Attachment: IAttachment;
206		DPB: IDPB;
207		begin

Diff Legend

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