Test suite results for test file webtbs/tw3564.pp

Test run data :

Test file "webtbs/tw3564.pp" information:

t_id 1469
t_adddate 2005/01/26
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 3564 }
{ Submitted by "Patrick Dietrich" on  2005-01-17 }
{ e-mail: patrick.dietrich@SPAM.informatik.ME.uni-ulm.NOT.de }

{$mode delphi}

type
   StringArray = array of string;

   TestClass = class(TObject)
   public
      FArr : StringArray;
      function getArr: StringArray;
      function getCopy: StringArray;
      constructor create;
      property arr : StringArray read getArr;
   end;

function TestClass.getArr: StringArray;
begin
   result := self.FArr;
end;

function TestClass.getCopy: StringArray;
begin
   Result := Copy(arr, 0, Length(arr)-1);
end; { getCopy }

constructor TestClass.create;
begin
   setLength( Farr, 3);

   Farr[0] := 'one';
   Farr[1] := 'two';
   Farr[2] := 'three';
end;

begin
end.

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