Test suite results for test file test/tprop1.pp

Test run data :

Test file "test/tprop1.pp" information:

t_id 1215
t_adddate 2003/12/11
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{$mode fpc}
var
  FErrno : longint;
function GetROVar:longint;
begin
  GetROVar:=3;
end;
function GetErrno:longint;
begin
  GetErrno:=FErrno;
end;
procedure SetErrno(e:longint);
begin
  FErrno:=e;
end;

property
  Errno:longint read GetErrno write SetErrno;
  ROVar:longint read GetROVar;

begin
  FErrno:=1;
  if Errno<>1 then
    begin
      writeln('Error 1');
      halt(1);
    end;
  Errno:=2;  
  if Errno<>2 then
    begin
      writeln('Error 2');
      halt(1);
    end;
  if ROVar<>3 then
    begin
      writeln('Error 3');
      halt(1);
    end;
end.

Link to SVN view of test/tprop1.pp source.