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

Comparing ibx/trunk/fbintf/testsuite/Test12.pas (file contents):
Revision 60 by tony, Mon Mar 27 15:21:02 2017 UTC vs.
Revision 309 by tony, Tue Jul 21 08:00:42 2020 UTC

# Line 46 | Line 46 | const
46      'BlobData Blob sub_type 1 Character Set WIN1252, '+
47      'BlobData2 Blob sub_type 1 Character Set UTF8, '+
48      'InClear VarChar(16) Character Set OCTETS, '+
49 +    'FixedWidth Char(4) Character set UTF8, '+
50      'Primary Key(RowID)'+
51      ')';
52  
53    sqlGetCharSets = 'Select RDB$CHARACTER_SET_NAME,RDB$CHARACTER_SET_ID from RDB$CHARACTER_SETS order by 2';
54  
55 <  sqlInsert = 'Insert into TestData(RowID,Title,Notes, BlobData,BlobData2,InClear) Values(:RowID,:Title,:Notes,:BlobData,:BlobData2,:InClear)';
55 >  sqlInsert = 'Insert into TestData(RowID,Title,Notes, BlobData,BlobData2,InClear,FixedWidth) '+
56 >              'Values(:RowID,:Title,:Notes,:BlobData,:BlobData2,:InClear,:FixedWidth)';
57  
58  
59   { TTest12 }
# Line 77 | Line 79 | begin
79      ByName('BlobData').AsString := 'Some German Special Characters like ÖÄÜöäüß';
80      ByName('BlobData2').AsBlob := Attachment.CreateBlob(Transaction,'TestData','BlobData').SetString('Some German Special Characters like ÖÄÜöäüß');
81      ByName('InClear').AsString := #$01'Test'#$0D#$C3;
82 +    ByName('FixedWidth').AsString := 'É';
83    end;
84    Statement.Execute;
85   end;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines