Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.0.0 / tests / test / tthlp8.pp
Size: Mime:
{ Test that "chaining" works correctly }

program tthlp8;

{$mode objfpc}{$H+}
{$apptype console}

uses
  uthlp;

begin
  if 'Hello World'.Test.Test <> - 4 then
    Halt(1);
  if 'Hello World'[5].Test <> - 1 then
    Halt(2);
  if 'Hello World'[5].Test.Test <> - 4 then
    Halt(3);
  Writeln('OK');
end.