From 30130d41be001d00d7c865901d10b191f72c917c Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 2 Feb 2006 13:41:17 +0000
Subject: [PATCH]   * more tests for symtable insert/search

git-svn-id: trunk@2406 -
---
 .gitattributes         |  4 ++++
 tests/tbf/tb0177.pp    | 16 ++++++++++++++++
 tests/tbs/tb0499.pp    | 16 ++++++++++++++++
 tests/webtbs/tw4541.pp | 12 ++++++++++++
 tests/webtbs/uw4541.pp | 26 ++++++++++++++++++++++++++
 5 files changed, 74 insertions(+)
 create mode 100644 tests/tbf/tb0177.pp
 create mode 100644 tests/tbs/tb0499.pp
 create mode 100644 tests/webtbs/tw4541.pp
 create mode 100644 tests/webtbs/uw4541.pp

diff --git a/.gitattributes b/.gitattributes
index 7f14336428..4755f86481 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -4844,6 +4844,7 @@ tests/tbf/tb0174c.pp svneol=native#text/plain
 tests/tbf/tb0174d.pp svneol=native#text/plain
 tests/tbf/tb0175.pp svneol=native#text/plain
 tests/tbf/tb0176.pp svneol=native#text/plain
+tests/tbf/tb0177.pp svneol=native#text/plain
 tests/tbf/ub0115.pp svneol=native#text/plain
 tests/tbf/ub0149.pp svneol=native#text/plain
 tests/tbf/ub0158a.pp svneol=native#text/plain
@@ -5339,6 +5340,7 @@ tests/tbs/tb0497a.pp -text
 tests/tbs/tb0497b.pp -text
 tests/tbs/tb0497c.pp -text
 tests/tbs/tb0498.pp svneol=native#text/plain
+tests/tbs/tb0499.pp svneol=native#text/plain
 tests/tbs/ub0060.pp svneol=native#text/plain
 tests/tbs/ub0069.pp svneol=native#text/plain
 tests/tbs/ub0119.pp svneol=native#text/plain
@@ -6682,6 +6684,7 @@ tests/webtbs/tw4533.pp svneol=native#text/plain
 tests/webtbs/tw4534.pp svneol=native#text/plain
 tests/webtbs/tw4537.pp svneol=native#text/plain
 tests/webtbs/tw4540.pp -text svneol=unset#text/plain
+tests/webtbs/tw4541.pp svneol=native#text/plain
 tests/webtbs/tw4557.pp svneol=native#text/plain
 tests/webtbs/tw4566.pp -text svneol=unset#text/plain
 tests/webtbs/tw4574.pp svneol=native#text/plain
@@ -6740,6 +6743,7 @@ tests/webtbs/uw4352b.pp svneol=native#text/plain
 tests/webtbs/uw4352c.pp svneol=native#text/plain
 tests/webtbs/uw4352d.pp svneol=native#text/plain
 tests/webtbs/uw4352e.pp svneol=native#text/plain
+tests/webtbs/uw4541.pp svneol=native#text/plain
 utils/Makefile svneol=native#text/plain
 utils/Makefile.fpc svneol=native#text/plain
 utils/README -text
diff --git a/tests/tbf/tb0177.pp b/tests/tbf/tb0177.pp
new file mode 100644
index 0000000000..dda725db0d
--- /dev/null
+++ b/tests/tbf/tb0177.pp
@@ -0,0 +1,16 @@
+{ %fail }
+
+procedure p;
+var
+  e1     : byte;
+  r : record
+    e : (e1,e2);
+  end;
+
+begin
+  r.e:=e1;
+end;
+
+begin
+end.
+
diff --git a/tests/tbs/tb0499.pp b/tests/tbs/tb0499.pp
new file mode 100644
index 0000000000..87c2849856
--- /dev/null
+++ b/tests/tbs/tb0499.pp
@@ -0,0 +1,16 @@
+var
+  e1     : byte;
+
+procedure p;
+var
+  r : record
+    e : (e1,e2);
+  end;
+
+begin
+  r.e:=e1;
+end;
+
+begin
+end.
+
diff --git a/tests/webtbs/tw4541.pp b/tests/webtbs/tw4541.pp
new file mode 100644
index 0000000000..9765e8fedb
--- /dev/null
+++ b/tests/webtbs/tw4541.pp
@@ -0,0 +1,12 @@
+{ Source provided for Free Pascal Bug Report 4541 }
+{ Submitted by "Vincent Snijders" on  2005-11-23 }
+{ e-mail: vsnijders@quicknet.nl }
+program tw4541;
+
+{$mode objfpc}{$H+}
+
+uses
+  uw4541;
+
+begin
+end.
diff --git a/tests/webtbs/uw4541.pp b/tests/webtbs/uw4541.pp
new file mode 100644
index 0000000000..719edb0c81
--- /dev/null
+++ b/tests/webtbs/uw4541.pp
@@ -0,0 +1,26 @@
+unit uw4541;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes;
+
+type
+
+  TA = class(TComponent)
+    D: TComponent;
+  end;
+
+  TB= class(TComponent)
+  private
+    FA: TA;
+  public
+    property C: TComponent read FA.D;
+  end;
+
+implementation
+
+end.
+