ViewVC Help

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

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

Comparing ibx/trunk/fbintf/testsuite/Test13.pas (file contents):
Revision 47 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 Test13;
1	>	unit Test13;
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 13: Tranasction over two databases}
12
#	Line 28 | Line 33 | type
33		procedure ModifyDatabase1(Attachment: IAttachment; Transaction: ITransaction);
34		procedure ModifyDatabase2(Attachment: IAttachment; Transaction: ITransaction);
35		public
36	<	function TestTitle: string; override;
37	<	procedure RunTest(CharSet: string; SQLDialect: integer); override;
36	>	function TestTitle: AnsiString; override;
37	>	procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
38		end;
39
40		implementation
#	Line 62 | Line 67 | begin
67		with Statement.GetSQLParams do
68		begin
69		ByName('rowid').AsInteger := 1;
70	+	{$IFDEF DCC}
71	+	ByName('title').AsString := UTF8Encode('Blob Test ©€');
72	+	ByName('Notes').AsString := UTF8Encode('Écoute moi');
73	+	{$ELSE}
74		ByName('title').AsString := 'Blob Test ©€';
75		ByName('Notes').AsString := 'Écoute moi';
76	+	{$ENDIF}
77		ByName('BlobData').AsString := 'Some German Special Characters like ÖÄÜöäüß';
78		ByName('BlobData2').AsBlob := Attachment.CreateBlob(Transaction,'TestData','BlobData').SetString('Some German Special Characters like ÖÄÜöäüß');
79		ByName('InClear').AsString := #$01'Test'#$0D#$C3;
#	Line 97 | Line 107 | begin
107		Statement.Execute;
108		end;
109
110	<	function TTest13.TestTitle: string;
110	>	function TTest13.TestTitle: AnsiString;
111		begin
112		Result := 'Test 13: Transaction over two databases';
113		end;
114
115	<	procedure TTest13.RunTest(CharSet: string; SQLDialect: integer);
115	>	procedure TTest13.RunTest(CharSet: AnsiString; SQLDialect: integer);
116		var DPB: IDPB;
117		Attachment, Attachment2: IAttachment;
118		Transaction: ITransaction;

Diff Legend

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