Test suite results for test file webtbs/tw3101.pp

Test run data :

Test file "webtbs/tw3101.pp" information:

t_id 1402
t_adddate 2004/11/28
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ Source provided for Free Pascal Bug Report 3101 }
{ Submitted by "Martin Schreiber" on  2004-05-15 }
{ e-mail:  }
program test;
{ $mode delphi}{$H+}
uses
  Classes;
type
 ttestobj = class
  public
   constructor create;
   destructor destroy; override;
   procedure afterconstruction; override;
   procedure beforedestruction; override;
 end;

var
 testobj: ttestobj;

procedure ttestobj.afterconstruction;
begin
 writeln('afterconstruction');
end;

procedure ttestobj.beforedestruction;
begin
 writeln('beforedestruction');
end;

constructor ttestobj.create;
begin
 writeln('create');
end;

destructor ttestobj.destroy;
begin
 writeln('destroy');
 inherited;
end;

begin
 testobj:= ttestobj(ttestobj.newinstance);
 writeln(longint(testobj));
 writeln(longint(testobj.create));
 testobj.free;
 //expected: create,afterconstruction,beforedestruction,destroy
 //actual: create,beforedestruction,destroy
 //kylix shows the expected behavior
end.

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