Test suite results for test file webtbs/tw2492.pp

Test run data :

Test file "webtbs/tw2492.pp" information:

t_id 1183
t_adddate 2003/11/05
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 568888.

Source:

{ Source provided for Free Pascal Bug Report 2492 }
{ Submitted by "Mattias Gaertner" on  2003-05-15 }
{ e-mail: mattias@freepascal.org }
program buggy;

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

uses
  Classes, SysUtils, TypInfo;

type
  TMyClassA = class;

  TMyClassB = class(TComponent)
  private
    FClassA: TMyClassA;
  published
    property ClassA: TMyClassA read FClassA write FClassA;
  end;

  TMyClassA = class(TComponent)
  end;

var
  MyClassA: TMyClassA;
begin
  MyClassA:=TMyClassA.Create(nil);
  writeln('PropertyCount=',
    GetTypeData(MyClassA.ClassInfo)^.PropCount);
  if GetTypeData(MyClassA.ClassInfo)^.PropCount<>2 then
    halt(1);  
end.

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