Test suite results for test file webtbs/tw3184.pp

Test run data :

Test file "webtbs/tw3184.pp" information:

t_id 1313
t_adddate 2004/07/01
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1027381.

Source:

{ Source provided for Free Pascal Bug Report 3184 }
{ Submitted by "Martin Schreiber" on  2004-06-25 }
{ e-mail:  }

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

uses
  uw3184a,uw3184b;

var
 class1: tclass1;
 class2: tclass2;

begin
 class1:= tclass1.create;
 if class1.proc1<>10 then
   halt(1);      //exp: 'tclass1.proc' act: 'tclass1.proc' -> ok
 class1.free;
 class2:= tclass2.create;
 if class2.proc2<>10 then
   halt(1);      //exp: 'tclass1.proc' act: 'tclass0.proc' -> error
 class2.free;
end.

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