ViewVC Help

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

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

Comparing ibx/trunk/fbintf/testsuite/Test6.pas (file contents):
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 68 by tony, Tue Oct 17 10:07:58 2017 UTC

#	Line 1 | Line 1
1		unit Test6;
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 6: Blob Handling}
12
#	Line 42 | Line 47 | type
47		private
48		procedure UpdateDatabase(Attachment: IAttachment);
49		public
50	<	function TestTitle: string; override;
51	<	procedure RunTest(CharSet: string; SQLDialect: integer); override;
50	>	function TestTitle: AnsiString; override;
51	>	procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
52		end;
53
54		implementation
#	Line 111 | Line 116 | begin
116		begin
117		ByName('rowid').AsInteger := 2;
118		ByName('title').AsString := 'Blob Test ©€';
119	+	ByName('Fp').Clear;
120	+	ByName('DP').Clear;
121		end;
122		Statement.Execute;
123		Statement := Attachment.Prepare(Transaction,'Select * from TestData Where rowid = 1');
#	Line 126 | Line 133 | begin
133		end;
134		end;
135
136	<	function TTest6.TestTitle: string;
136	>	function TTest6.TestTitle: AnsiString;
137		begin
138		Result := 'Test 6: Blob Handling';
139		end;
140
141	<	procedure TTest6.RunTest(CharSet: string; SQLDialect: integer);
141	>	procedure TTest6.RunTest(CharSet: AnsiString; SQLDialect: integer);
142		var DPB: IDPB;
143		Attachment: IAttachment;
144		begin

Diff Legend

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