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

Comparing ibx/trunk/fbintf/testsuite/Test9.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 Test9;
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 9: Database Information tests}
12  
# Line 23 | Line 28 | type
28    private
29      procedure GetDBInformation(Attachment: IAttachment);
30    public
31 <    function TestTitle: string; override;
32 <    procedure RunTest(CharSet: string; SQLDialect: integer); override;
31 >    function TestTitle: AnsiString; override;
32 >    procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
33    end;
34  
35   implementation
# Line 54 | Line 59 | begin
59      WriteDBInfo(DBInfo);
60   end;
61  
62 < function TTest9.TestTitle: string;
62 > function TTest9.TestTitle: AnsiString;
63   begin
64    Result := 'Test 9: Database Information tests';
65   end;
66  
67 < procedure TTest9.RunTest(CharSet: string; SQLDialect: integer);
67 > procedure TTest9.RunTest(CharSet: AnsiString; SQLDialect: integer);
68   var DPB: IDPB;
69      Attachment: IAttachment;
70   begin

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines