mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-29 12:23:46 +02:00
17 lines
416 B
ObjectPascal
17 lines
416 B
ObjectPascal
{ %skiptarget=android }
|
|
program tcpstr9;
|
|
{$mode delphiunicode}
|
|
{$apptype console}
|
|
{$ifdef unix} uses cwstring; {$endif}
|
|
begin
|
|
// this test can be only run with the compiler built right now on the
|
|
// same system
|
|
if StringCodePage(AnsiString('test')) <> DefaultSystemCodePage then
|
|
begin
|
|
WriteLn(StringCodePage(AnsiString('test')), ' <> ', DefaultSystemCodePage);
|
|
halt(1);
|
|
end;
|
|
Writeln('ok');
|
|
end.
|
|
|