ViewVC Help

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

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

Comparing ibx/trunk/fbintf/testsuite/Test14.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 Test14;
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 14: Non select procedures}
12
#	Line 25 | Line 30 | type
30		procedure UpdateDatabase(Attachment: IAttachment);
31		procedure QueryDatabase(Attachment: IAttachment);
32		public
33	<	function TestTitle: string; override;
34	<	procedure RunTest(CharSet: string; SQLDialect: integer); override;
33	>	function TestTitle: AnsiString; override;
34	>	procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
35		end;
36
37		implementation
#	Line 69 | Line 74 | begin
74		ReportResult(Statement.Execute);
75		end;
76
77	<	function TTest14.TestTitle: string;
77	>	function TTest14.TestTitle: AnsiString;
78		begin
79		Result := 'Test 14: Non select procedures';
80		end;
#	Line 96 | Line 101 | const
101
102
103
104	<	procedure TTest14.RunTest(CharSet: string; SQLDialect: integer);
104	>	procedure TTest14.RunTest(CharSet: AnsiString; SQLDialect: integer);
105		var DPB: IDPB;
106		Attachment: IAttachment;
107		begin

Diff Legend

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