fpcsrc/tests/test/units/system/tpchlen.pp


1
2
3
4
5
6
7
8
9
10
11
12

procedure test(p: pchar; len: longint);
begin
  if (length(p)<>len) then
    halt(1);
end;

begin
  test(nil,0);
  test(#0,0);
  test('a',1);
  test('hello',5);
end.