Test suite results for test file webtbs/tw1409.pp

Test run data :

Test file "webtbs/tw1409.pp" information:

t_id 811
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 948168.

Source:

{$MODE objfpc}
type
  TPoint = record
    x, y: Integer;
  end;

procedure Test(const Args: array of TPoint);
begin
{$ifndef VER1_0}
  writeln(length(Args));
  if length(Args)<>2 then
   halt(1);
{$endif VER1_0}
  writeln(high(Args));
  if high(Args)<>1 then
   halt(1);
  writeln(Args[0].x,',',Args[0].y);
  if (Args[0].x<>10) or (Args[0].y<>20) then
   halt(1);
  writeln(Args[1].x,',',Args[1].y);
  if (Args[1].x<>30) or (Args[1].y<>40) then
   halt(1);
end;

const
  p1: TPoint = (x: 10; y: 20);
  p2: TPoint = (x: 30; y: 40);
begin
  Test([p1,p2]);
end.

Link to SVN view of webtbs/tw1409.pp source.