ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/testsuite/Test7.pas
(Generate patch)

Comparing ibx/trunk/fbintf/testsuite/Test7.pas (file contents):
Revision 45 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 Test7;
1 > unit Test7;
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 7: Create and read back an Array}
12  
# Line 35 | Line 40 | type
40    private
41      procedure UpdateDatabase(Attachment: IAttachment);
42    public
43 <    function TestTitle: string; override;
44 <    procedure RunTest(CharSet: string; SQLDialect: integer); override;
43 >    function TestTitle: AnsiString; override;
44 >    procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
45    end;
46  
47   implementation
# Line 75 | Line 80 | begin
80      for i := 0 to GetCount - 1 do
81        writeln(OutFile,'Param Name = ',Params[i].getName);
82      ByName('rowid').AsInteger := 1;
83 +    {$IFDEF DCC}
84 +    ByName('title').AsString := UTF8Encode('Blob Test ©€');
85 +    ByName('Notes').AsString := UTF8Encode('Écoute moi');
86 +    {$ELSE}
87      ByName('title').AsString := 'Blob Test ©€';
88      ByName('Notes').AsString := 'Écoute moi';
89 +    {$ENDIF}
90      ByName('Dated').AsDateTime := EncodeDate(2016,4,1) + EncodeTime(9,30,0,100);
91    end;
92    Statement.Execute;
# Line 122 | Line 132 | begin
132    Transaction.Commit;
133   end;
134  
135 < function TTest7.TestTitle: string;
135 > function TTest7.TestTitle: AnsiString;
136   begin
137    Result := 'Test 7: Create and read back an Array';
138   end;
139  
140 < procedure TTest7.RunTest(CharSet: string; SQLDialect: integer);
140 > procedure TTest7.RunTest(CharSet: AnsiString; SQLDialect: integer);
141   var DPB: IDPB;
142      Attachment: IAttachment;
143   begin

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines