ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/testsuite/Test12.pas
(Generate patch)
# Line 1 | Line 1
1 < unit Test12;
1 > (*
2 > *  Firebird Interface (fbintf) Test suite. This program is used to
3 > *  test the Firebird Pascal Interface and provide a semi-automated
4 > *  pass/fail check for each test.
5 > *
6 > *  The contents of this file are subject to the Initial Developer's
7 > *  Public License Version 1.0 (the "License"); you may not use this
8 > *  file except in compliance with the License. You may obtain a copy
9 > *  of the License here:
10 > *
11 > *    http://www.firebirdsql.org/index.php?op=doc&id=idpl
12 > *
13 > *  Software distributed under the License is distributed on an "AS
14 > *  IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
15 > *  implied. See the License for the specific language governing rights
16 > *  and limitations under the License.
17 > *
18 > *  The Initial Developer of the Original Code is Tony Whyman.
19 > *
20 > *  The Original Code is (C) 2016 Tony Whyman, MWA Software
21 > *  (http://www.mwasoftware.co.uk).
22 > *
23 > *  All Rights Reserved.
24 > *
25 > *  Contributor(s): ______________________________________.
26 > *
27 > *)
28 >
29 > unit Test12;
30   {$IFDEF MSWINDOWS}
31   {$DEFINE WINDOWS}
32   {$ENDIF}
# Line 20 | Line 48
48   }
49  
50   uses
51 <  Classes, SysUtils, TestManager, IB;
51 >  Classes, SysUtils, TestApplication, FBTestApp, IB;
52  
53   type
54  
55    { TTest12 }
56  
57 <  TTest12 = class(TTestBase)
57 >  TTest12 = class(TFBTestBase)
58    private
59      procedure UpdateDatabase(Attachment: IAttachment);
60      procedure QueryDatabase(Attachment: IAttachment);
# Line 72 | Line 100
100      {$IFDEF DCC}
101      ByName('title').AsString := UTF8Encode('Blob Test ©€');
102      ByName('Notes').AsString := UTF8Encode('Écoute moi');
103 +    ByName('FixedWidth').AsString := UTF8Encode('É');
104      {$ELSE}
105      ByName('title').AsString := 'Blob Test ©€';
106      ByName('Notes').AsString := 'Écoute moi';
107 +    ByName('FixedWidth').AsString := 'É';
108      {$ENDIF}
109      ByName('BlobData').AsString := 'Some German Special Characters like ÖÄÜöäüß';
110      ByName('BlobData2').AsBlob := Attachment.CreateBlob(Transaction,'TestData','BlobData').SetString('Some German Special Characters like ÖÄÜöäüß');

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines