From 7241c5daff927c650804d067cdaddaaf380b3ca4 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 8 Feb 2004 23:28:38 +0000
Subject: [PATCH]   * new test

---
 tests/webtbs/tw2942a.pp | 27 +++++++++++++++++++++++++++
 tests/webtbs/tw2942b.pp | 28 ++++++++++++++++++++++++++++
 2 files changed, 55 insertions(+)
 create mode 100644 tests/webtbs/tw2942a.pp
 create mode 100644 tests/webtbs/tw2942b.pp

diff --git a/tests/webtbs/tw2942a.pp b/tests/webtbs/tw2942a.pp
new file mode 100644
index 0000000000..b4bc23598d
--- /dev/null
+++ b/tests/webtbs/tw2942a.pp
@@ -0,0 +1,27 @@
+unit tw2942a;
+
+
+interface
+{$mode Delphi}
+
+Type
+  TIdStack = class
+  public
+    constructor Create; reintroduce; virtual;
+    destructor Destroy; override;
+    end;
+
+implementation
+
+constructor TIdStack.Create;
+begin
+inherited destroy;
+end;
+
+destructor TIdStack.Destroy;
+begin
+  inherited Destroy;
+end;
+
+
+end.
diff --git a/tests/webtbs/tw2942b.pp b/tests/webtbs/tw2942b.pp
new file mode 100644
index 0000000000..bd222ef17b
--- /dev/null
+++ b/tests/webtbs/tw2942b.pp
@@ -0,0 +1,28 @@
+{ Source provided for Free Pascal Bug Report 2942 }
+{ Submitted by "Marco (Gory Bugs Department)" on  2004-02-06 }
+{ e-mail:  }
+unit tw2942b;
+
+interface
+{$mode Delphi}
+
+Uses tw2942a;
+type
+  TIdStackWindows = class(TIdStack)
+  public
+    constructor Create; override;
+    destructor Destroy; override;
+     end;
+
+implementation
+
+constructor TIdStackWindows.Create;
+begin
+  inherited destroy;
+end;
+
+destructor TIdStackWindows.Destroy;
+begin
+  inherited Destroy;
+end;
+end.