From 82c8c48793f7eee674c59356f9373d8bbcda126a Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 28 Jan 2007 18:07:58 +0000
Subject: [PATCH] + test

git-svn-id: trunk@6246 -
---
 .gitattributes         |  1 +
 tests/webtbs/tw8232.pp | 57 ++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 58 insertions(+)
 create mode 100644 tests/webtbs/tw8232.pp

diff --git a/.gitattributes b/.gitattributes
index e8d929c303..721075710a 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -8015,6 +8015,7 @@ tests/webtbs/tw8222.pp svneol=native#text/plain
 tests/webtbs/tw8222a.pp svneol=native#text/plain
 tests/webtbs/tw8222b.pp svneol=native#text/plain
 tests/webtbs/tw8229.pp svneol=native#text/plain
+tests/webtbs/tw8232.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
diff --git a/tests/webtbs/tw8232.pp b/tests/webtbs/tw8232.pp
new file mode 100644
index 0000000000..a57be84025
--- /dev/null
+++ b/tests/webtbs/tw8232.pp
@@ -0,0 +1,57 @@
+{ %norun }
+{$mode objfpc}
+unit tw8232;
+
+interface
+
+type
+  PTestItem1 = ^TTestItem1;
+  TTestItem1 = record
+    IntegerItem: Integer;
+    ShortStringItem: string;
+  end;
+  TTestClass1 = class(TObject)
+  private
+    function GetItems(Index: Integer): TTestItem1;
+  public
+    property Items[Index: Integer]: TTestItem1 read GetItems;
+  end;
+
+  PTestItem2 = ^TTestItem2;
+  TTestItem2 = record
+    ShortStringItem: string[255];
+  end;
+  TTestClass2 = class(TObject)
+  private
+    function GetItems(Index: Integer): TTestItem2;
+  public
+    property Items[Index: Integer]: TTestItem2 read GetItems;
+  end;
+
+  PTestItem3 = ^TTestItem3;
+  TTestItem3 = record
+    IntegerItem: Integer;
+    ShortStringItem: string[255];
+  end;
+  TTestClass3 = class(TObject)
+  private
+    function GetItems(Index: Integer): TTestItem3;
+  public
+    property Items[Index: Integer]: TTestItem3 read GetItems;
+  end;
+
+implementation
+
+function TTestClass1.GetItems(Index: Integer): TTestItem1;
+begin
+end;
+
+function TTestClass2.GetItems(Index: Integer): TTestItem2;
+begin
+end;
+
+function TTestClass3.GetItems(Index: Integer): TTestItem3;
+begin
+end;
+
+end.