From 42129251dadbe3eabbf870e64365f3bb37f0b016 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Wed, 9 Mar 2011 16:56:19 +0000
Subject: [PATCH] Those two tests shouldn't have been commited yet...

git-svn-id: branches/svenbarth/classhelpers@17100 -
---
 tests/test/tchlp4.pp |  5 -----
 tests/test/tchlp5.pp | 11 +++--------
 2 files changed, 3 insertions(+), 13 deletions(-)

diff --git a/tests/test/tchlp4.pp b/tests/test/tchlp4.pp
index b7bc232b65..ffcdbf2a93 100644
--- a/tests/test/tchlp4.pp
+++ b/tests/test/tchlp4.pp
@@ -12,11 +12,6 @@ type
     destructor Destroy; override;
   end;
 
-destructor TObjectHelper.Destroy;
-begin
-
-end;
-
 begin
 
 end.
diff --git a/tests/test/tchlp5.pp b/tests/test/tchlp5.pp
index 4402f66b99..17816ef369 100644
--- a/tests/test/tchlp5.pp
+++ b/tests/test/tchlp5.pp
@@ -1,6 +1,6 @@
-{ %NORUN }
+{%FAIL}
 
-{ class destructors are allowed }
+{ class destructors are not allowed }
 program tchlp5;
 
 {$ifdef fpc}
@@ -9,14 +9,9 @@ program tchlp5;
 
 type
   TObjectHelper = class helper for TObject
-    class destructor Destroy;
+    class destructor Destroy; override;
   end;
 
-class destructor TObjectHelper.Destroy;
-begin
-
-end;
-
 begin
 
 end.