Test suite results for test file webtbs/tw2859.pp

Test run data :

Test file "webtbs/tw2859.pp" information:

t_id 1296
t_adddate 2004/05/24
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 934983.

Source:

{$ifdef fpc}{$mode objfpc}{$H+}{$endif}

type
  TMyClass = class
  public
    constructor Create;
    procedure Assign(v:pointer);virtual;
  end;

var
  i : longint;

constructor TMyClass.Create;
begin
  writeln('TMyClass.Create');
  inc(i);
end;

procedure TMyClass.Assign(v:pointer);
begin
end;

function CreateMyClass: TMyClass;
begin
  Result:=TMyClass.Create;
end;

var
  Item: TMyClass;
begin
  CreateMyClass.Assign(nil);
  if i<>1 then
    begin
      writeln('Error!');
      halt(1);
    end;  
end.

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