usr/share/fpcsrc/3.2.0/tests/test/tpushpop3.pp · beefree / fpc-src v3.2.0 - deb package | Gemfury

Gemfury

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

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / tests / test / tpushpop3.pp

program tpushpop3;

type
  TTest = (tOne, tTwo, tThree);

{$PackSet 1}
  TTestSet1 = set of TTest;
{$Push}
{$PackSet 2}
  TTestSet2 = set of TTest;
{$Pop}
  TTestSet3 = set of TTest;

begin
  if SizeOf(TTestSet1) <> 1 then
    Halt(1);
  if SizeOf(TTestSet2) <> 2 then
    Halt(2);
  if SizeOf(TTestSet3) <> 1 then
    Halt(3);
  Writeln('ok');
end.