* add test

git-svn-id: trunk@2493 -

.gitattributes

@@ -6720,6 +6720,7 @@ tests/webtbs/tw4669.pp svneol=native#text/plain
 tests/webtbs/tw4675.pp svneol=native#text/plain
 tests/webtbs/tw4700.pp svneol=native#text/plain
 tests/webtbs/tw4768.pp -text
+tests/webtbs/tw4789.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain

tests/webtbs/tw4789.pp

@@ -0,0 +1,38 @@
+{ Source provided for Free Pascal Bug Report 4789 }
+{ Submitted by "Andrew Haines" on  2006-02-09 }
+{ e-mail: [email protected] }
+program Project1;
+
+{$mode objfpc}{$H+}
+
+uses
+  Classes, SysUtils
+  { add your units here };
+
+type
+
+  { TSimpleObj }
+  TSimpleSet = (ssOne, ssTwo, ssThree);
+
+  TSimpleObj = class(TObject)
+  private
+    procedure SetTestVal(const AIndex: Integer; const AIsSet: Boolean);
+    function GetTestVal(const AIndex: Integer): Boolean;
+  public
+    Property TestVal: Boolean index Ord(ssOne) read GetTestVal write SetTestVal;
+  end;
+
+{ TSimpleObj }
+
+procedure TSimpleObj.SetTestVal(const AIndex: Integer; const AIsSet: Boolean);
+begin
+
+end;
+
+function TSimpleObj.GetTestVal(const AIndex: Integer): Boolean;
+begin
+
+end;
+
+begin
+end.