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

Comparing ibx/trunk/fbintf/testsuite/Test15.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 Test15;
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 15: Blob Handling and BPBs}
12  
# Line 29 | Line 34 | type
34      procedure UpdateDatabase(Attachment: IAttachment);
35      procedure QueryDatabase(Attachment: IAttachment);
36    public
37 <    function TestTitle: string; override;
38 <    procedure RunTest(CharSet: string; SQLDialect: integer); override;
37 >    function TestTitle: AnsiString; override;
38 >    procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
39    end;
40  
41  
# Line 110 | Line 115 | begin
115    ReportResults(Statement);
116   end;
117  
118 < function TTest15.TestTitle: string;
118 > function TTest15.TestTitle: AnsiString;
119   begin
120    Result := 'Test 15: Blob Handling and BPBs';
121   end;
122  
123 < procedure TTest15.RunTest(CharSet: string; SQLDialect: integer);
123 > procedure TTest15.RunTest(CharSet: AnsiString; SQLDialect: integer);
124   var DPB: IDPB;
125      Attachment: IAttachment;
126   begin

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines