paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 19:49:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added test to check WideChar const to UTF8String const conversion

Browse Source
This commit is contained in:
Sergey Larin 2022-01-28 13:10:48 +03:00 committed by Michael Van Canneyt
parent de58691e75
commit 62c24b3756
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/test/tutf8charconst.pp Normal file
View File

@ -0,0 +1,23 @@
program tutf8charconst;
{$mode objfpc}{$H+}
const
FULLWIDTH_RIGHT_PARENTHESIS: UTF8String = #$FF09;
var
UFFFF: UTF8String;
begin
if not((Length(FULLWIDTH_RIGHT_PARENTHESIS) = 3) and
(Ord(FULLWIDTH_RIGHT_PARENTHESIS[1]) = $EF) and
(Ord(FULLWIDTH_RIGHT_PARENTHESIS[2]) = $BC) and
(Ord(FULLWIDTH_RIGHT_PARENTHESIS[3]) = $89)) then
Halt(1);
UFFFF := #65535;
if not((Length(UFFFF) = 3) and
(Ord(UFFFF[1]) = $EF) and
(Ord(UFFFF[2]) = $BF) and
(Ord(UFFFF[3]) = $BF)) then
Halt(2);
end.