usr/share/fpcsrc/3.0.0/tests/test/units/system/tpchlen.pp · bee / fpc-src v3.0.0 - deb package | Gemfury

bee / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.0.0 / tests / test / units / system / tpchlen.pp

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.