Test suite results for test file webtbs/tw3041.pp

Test run data :

Test file "webtbs/tw3041.pp" information:

t_id 1281
t_adddate 2004/04/12
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 934973.

Source:

{ Source provided for Free Pascal Bug Report 3041 }
{ Submitted by "C Western" on  2004-04-06 }
{ e-mail: mftq75@dsl.pipex.com }
program bug2;

{$mode objfpc}{$H+}

uses
  Classes;
type
  TMyCollectionItem = class(TCollectionItem)
    public
      procedure Assign(Source: TPersistent); override;
  end;

procedure TMyCollectionItem.Assign(Source: TPersistent);
begin
end;

var
  A, B: TCollection;
  C: TMyCollectionItem;
begin
  A := TCollection.Create(TMyCollectionItem);
  B := TCollection.Create(TMyCollectionItem);
  C := TMyCollectionItem.Create(A);
  Writeln(A.Count);
  B.Assign(A);
  Writeln(B.Count);
  if B.Count<>A.Count then
    begin
      writeln('Error!');
      halt(1);
    end;  
end.

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