From 0fb8abc4c9939bfa519e09deea94f2eaccec2607 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 15 Jan 2003 00:04:19 +0000
Subject: [PATCH]   * test should fail

---
 tests/{webtbs => webtbf}/tw2285.pp | 4 ++++
 1 file changed, 4 insertions(+)
 rename tests/{webtbs => webtbf}/tw2285.pp (84%)

diff --git a/tests/webtbs/tw2285.pp b/tests/webtbf/tw2285.pp
similarity index 84%
rename from tests/webtbs/tw2285.pp
rename to tests/webtbf/tw2285.pp
index 02b748e376..91d857c572 100644
--- a/tests/webtbs/tw2285.pp
+++ b/tests/webtbf/tw2285.pp
@@ -1,3 +1,5 @@
+{ %fail }
+
 { Source provided for Free Pascal Bug Report 2285 }
 { Submitted by "Sergey Kosarevsky" on  2002-12-25 }
 { e-mail: netsurfer@au.ru }
@@ -21,6 +23,8 @@ Begin
 End;
 
 Begin
+   { This should fail, @tobject.init returns a pointer and
+     is not compatible with a methodpointer }
    CheckConstructor(@tObject.Init);
    b:=Longint(Pointer(@tObject.Init));
    WriteLn('b: ',b);