mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +02:00
29 lines
436 B
ObjectPascal
29 lines
436 B
ObjectPascal
program Test;
|
|
|
|
{$mode objfpc}
|
|
{$h+}
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
{$assertions on}
|
|
|
|
function Suffix: string; inline;
|
|
begin
|
|
Result := 'Post';
|
|
end;
|
|
|
|
const
|
|
Expected = 'Pre_Mid_Post';
|
|
var
|
|
s, t: string;
|
|
begin
|
|
DefaultSystemCodePage:=1252;
|
|
writeln(DefaultSystemCodePage);
|
|
writeln(StringCodePage(suffix));
|
|
s := 'Pre';
|
|
t := s + '_Mid_' + Suffix;
|
|
Assert(t = Expected,format('Expected "%s", Got: "%s"',[Expected,t]));
|
|
writeln('Ok');
|
|
end.
|